English
Entrance

HTML; Livetiming-Website read

 

Christof
Neuß
Hi,

for a Own statement (private File) would like I The Webseite [...] 
. Read
me goes it around the dargestellte (and regularly updated) scheduler with the therein encompassed Values.
If I me whom View source look at, these values but none therein include. be not so firm in the Kram, think but time, that the something with the Scripten To do has, The there quite end aufgeführt go.

has someone a idea, How the nevertheless klappen could?

in the doubt would even the following weg:
TAB in the Browser enable, over STRG+A everything select, with STRG+C into Clipboard copy, opened Kalkulationstabelle enable and STRG+V The contents insert. only ought to the whole then even any 30 sec automatically run out. not elegant - I know - and not so easy, but... in the hardship frisst the devil's fly.

however... many Thanks in the ahead and greetings

Christof
 
XProfan X4
Win10 16 GB RAM
06/04/19  
 




Thomas
Freier
Moin Christof,
having there something with 'Pascals' ocx made.
The html-View source becomes into Edit loaded and then line by line to whom Begriffen and the Values sought. Perhaps one Ansatz.
window 540,760
Window Title "Hvide Sande Sluse"
usermessages 16
@Set("ErrorLevel", 2)
 $H windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
Declare x%
x% = @MessageBox("Soll this program\n\nauf their unit launched go?\n\nDie process results\nunter exclusion jeglicher Ansprüche!","Hvide-Sande",4096+4+32+256)
Case x%=7 : END//Cancel
var font&=CreateFont("Arial",18,0,0,0,0)
SetDialogFont Font&
declare File$,Edit&,WebControl&,WebObject&,Document&,Body&,da&,fehl%,wert&,time$
Declare start%,new%,button%,end%,old$
File$="https://hyde.dk"
//for View source
Edit&=create("Multiedit",%hwnd,"",610,10,800,660)
SetFont Edit&,Font&
//Datendatei present, otherwise new

Ifnot @FileExists(($PROGDIR+"HVIDE.dbf"))

    Assign #1, "hvide.STR"
    Rewrite #1
    Print #1, "Datum; C; 10; 0"
    Print #1, "Zeit; C; 10; 0"
    Print #1, "Strom; C; 10; 0"
    Print #1, "Havn; C; 10; 0"
    Print #1, "Fjord; C; 10; 0"
    Close #1
    db("Create", "hvide.STR", "hvide.DBF")

endif

//Listbox for Datenanzeige
wert& = @Create("GridBox",  %hwnd,"Datum;0;100;Zeit;0;70;Strømning;1;110;Havn;1;80;Sluse;1;80", 2, 10,10,500,660)
//old values reading
@db("Open", #1, "Hvide.DBF")

WhileNot %dbEoF=1

    time$=@Trim $(@DB("Get", "DATUM"))
    time$=time$+"|"+@Trim $(@DB("Get", "ZEIT"))
    time$=time$+"|"+@Trim $(@DB("Get", "STROM"))
    time$=time$+"|"+@Trim $(@DB("Get", "HAVN"))
    time$=time$+"|"+@Trim $(@DB("Get", "FJORD"))
    @Insertstring(wert&,0,time$)
    @db("Go", "NEXT")

ENDWHILE

@db("Close", #1)
//last power
alt$= @Trim $(@gettext$(wert&,0,4))//comparison for lukket- åben request
start%=1
WERTE//to procedure Website loading and values into first row write
start%=0
neu%=0

while 1

    Waitinput 10000// to Millisecunden becomes Waitinput durchbrochen
    case %umessage=16:break
    time$=@dt("getTime", 0)

    SELECT val(@SUBSTR$(time$,2,":"))

        CASEOF 0,10,20,30,40,50

        //any 10 minutes Web new loading
        Case new%=0
        WERTE// new read ---
        new%=1
        OTHERWISE
        new%=0

    ENDSELECT

    Case end%=1:BREAK

endwhile

DeleteObject font&
End
//procedure values read #####################################################

Proc WERTE

    ocxInit()
    WebControl&=create("HTMLWin",%hwnd,file$,1,330,10,0,0)
    WebObject&=HTMLWin("QueryInterface",WebControl&)

    while ocxGet(WebObject&,"Busy")//'--Waiting, To File loaded is

        sleep 5

    endwhile

    Document&=ocxGet(WebObject&,"Document")
    Body&=ocxGet(Document&,"Body")
    settext Edit&,ocxGet(Body&,"outerHTML")//'--HTML-View source
    //FEHLER?-------z.Z. not active
    ' whileloop @GetCount(edit&)-1
    '  if @InStr("Die piloting to the Website watts abgebrochen",@GetString$(edit&,&loop))> 0
    '    button% = @MessageBox("Programm becomes beendet","No WEB-Zugriff",0)
    '    end% = 1
    '    ocxRelease(Body&,Document&,WebObject&)
    '    WebObject&=HTMLWin("QueryInterface",WebControl&)
    '   RETURN
    ' endif
    ' endwhile
    var Startpos%=0
    Var tex$=""
    Var power$=""
    Var Sluse$=""
    Var Havn$=""
    Var tex1$=Date$(0)+"|"+@dt("getTime", 0)'+"|"
    //' View source search

    whileloop @GetCount(edit&)-1

        if @InStr("Gennemstrømning",@GetString$(edit&,&loop))> 0

            tex$= @GetString$(edit&,&loop)
            tex$=@Translate$(tex$,"<","")
            tex$=@Translate$(tex$,">","")
            tex$=@Translate$(tex$,"H2","")
            tex$=@Translate$(tex$,"SPAN","")
            tex$=@Translate$(tex$,"mSUP3/SUP/s//","m³")
            tex$=@Translate$(tex$,"class=floatright","")
            tex$=@Translate$(tex$,"Gennemstrømning","")
            power$=tex$

        endif

    EndWhile

    Tex$=""
    //' View source search

    whileloop @GetCount(edit&)-1

        if @InStr("Havnen",@GetString$(edit&,&loop))> 0

            tex$= @GetString$(edit&,&loop+1)
            tex$=@Translate$(tex$,"<TD class=alignright>","")
            tex$=@Translate$(tex$,"</TD>","")
            tex$=@Translate$(tex$,"</TR>","")
            Havn$=tex$

        endif

    endwhile

    Tex$=""
    //' View source search

    whileloop @GetCount(edit&)-1

        if @InStr("<TD>Slusedrift</TD>",@GetString$(edit&,&loop))> 0

            tex$= @GetString$(edit&,&loop+1)
            tex$=@Translate$(tex$,"<TD class=alignright>","")
            tex$=@Translate$(tex$,"</TD></TR></TBODY></TABLE>","")
            Sluse$=tex$

        endif

    EndWhile

    If start%=1

        @Insertstring(wert&,0,tex1$+"|"+power$+"|"+havn$+"|"+sluse$)

    Else

        If @Trim $(sluse$)<>""

            If old$<>@Trim $(sluse$)// val(power$)<>0'

                @db("Open", #1, $PROGDIR+"Hvide.DBF")
                @db("AppendBlank")
                @db("Put", "DATUM", Date$(0))
                @db("Put", "ZEIT", @dt("getTime",0))
                @db("Put", "STROM", power$)
                @db("Put", "HAVN", Havn$)
                @db("Put", "FJORD", sluse$)
                @db("PutRec", 0)
                @db("Close", #1)
                @Insertstring(wert&,0,tex1$+"|"+power$+"|"+havn$+"|"+sluse$)
                old$= @Trim $(sluse$)

            else

                '			  If val(gettext$(wert&,0,2))=0
                settext wert&,0,0, Date$(0)
                settext wert&,0,1, @dt("getTime",0)
                settext wert&,0,2, power$
                settext wert&,0,3, havn$
                settext wert&,0,4, sluse$
                '					Else
                '					@Insertstring(wert&,0,tex1$+"|"+power$+"|"+havn$+"|"+sluse$)
                '				endif

            EndIf

        endif

    endif

    destroywindow(WebControl&)
    ocxRelease(Body&,Document&,WebObject&)
    ocxDeInit()

endproc


10 kB
Hochgeladen:06/04/19
Downloadcounter42
Download
5 kB
Hochgeladen:06/04/19
Downloadcounter76
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
06/04/19  
 




Christof
Neuß
Hab's on the weekend again attempts. has unfortunately not functions.
"Problem" is, that The Website too only on the Rennwochende available standing. As I said, if I me whom View source the Page anschaue, are The desired data the scheduler there none include. therefore nützt too The function itself whom View source in a variable To copy and then To search unfortunately not.

If yet someone a idea has... since so.

Grüßle
 
XProfan X4
Win10 16 GB RAM
04/18/21  
 




Christof
Neuß
Hi,
The Page is again online and sends data. I try me again with some Ansätzen. whom suggestion of Thomas have I time adopted, shining but (so) not To functions.  [...] 

URL is a little differently, as supra indicated, but its dieselbe manner. by the Parameter go different run choosed.

who can and would like, must gladly mitdenken. Freue me on Your Notes.

Greeting
Christof
 
Win10 16 GB RAM
05/01/21  
 




Christof
Neuß
today and tommorrow is the Page unter [...] 
accessible. who means again look would like...
 
XProfan X4
Win10 16 GB RAM
05/08/21  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

2.189 Views

Untitledvor 0 min.
Rolf Koch06/04/22
RudiB.08/15/21
Ernst07/21/21
Sven Bader07/18/21
More...

Themeninformationen

this Topic has 2 subscriber:

Christof Neuß (4x)
Thomas Freier (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie