Hallo zusammen,
ich bräuchte da mal eure hilfe:
Ich müsste bestimmte Daten ( Zeile und Position der Daten sind immer gleich) aus einer hTML Seite an bestimmte Positionen in einem Worddokument kopieren. an der HTML Seite darf ich nicht basteln, und das Word Dokument darf ich leider auch nicht verändern. Gibt es da Möglichkeiten?
danke
Wolfgang
Automatisiert Daten aus einer HTML Seite kopieren
Moderator: jNizM
Re: Automatisiert Daten aus einer HTML Seite kopieren
Ich bin an einem Änlichem Thema drann... habe da aber auch noch keine richtig funktionierende lösung gekommen.
Müssen einzelne Teile ausgelesen werden oder die gesammte Seite? und wenn dann etwa so?
https://autohotkey.com/board/topic/62192-read-web-page
Oder Die Gesammte Seite mackieren und in clipboard koperen
---
IN EIGENER SACHE:
Ich will von meiner Seite den User Status (Trialmember, Member oder nur Benutzer) auslesen lassen und damit mein 1klick connect TS3 programm entscheiden lassen wenn Trailmember oder + (Member,Support,Admin) dann TS3 start inkl. passw. und wenn nur Benutzer oder - (Gast) Dann muss PW des Servers manuell eingegeben werden...
1klick connect TS3 nist schopn fertig nur die Webabfrage feht mir noch... denn das was ich habe bringt mir nichts...
habe es mit einer extra .txt Datei versucht aber das ist keine gute Lösung da ich die Traimember von hand eingeben muss.. etc.. ink kleinere macken des scripts...
-------------------------------
Müssen einzelne Teile ausgelesen werden oder die gesammte Seite? und wenn dann etwa so?
https://autohotkey.com/board/topic/62192-read-web-page
Code: Select all
;~ MsgBox, % HTMLText("http://gob-clan.de/index.php?mod=clans&action=users&id=4")
FileAppend, % HTMLText("http://gob-clan.de/index.php?mod=clans&action=users&id=4"), meintest.txt
HTMLText(url, line=""){
doc := ComObjCreate("HTMLfile")
pwhr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
pwhr.Open("GET",url)
pwhr.Send()
doc.write(pwhr.ResponseText)
text := doc.body.outerText
if not line
return, text
s := InStr(text, "`n", 0, 1, line-1)
e := InStr(text, "`n", 0, s+1)
return, Trim(SubStr(text, s+1, e-s-1), "`r`n")
}
Code: Select all
WinWait, Google - Mozilla Firefox,
IfWinNotActive, Google - Mozilla Firefox, , WinActivate, Google - Mozilla Firefox,
WinWaitActive, Google - Mozilla Firefox,
Send, {CTRLDOWN}ac{CTRLUP}
page := clipboard2
Sleep, 500
send, {CTRLDOWN}c{CTRLUP}
FNN=%clipboard%
IN EIGENER SACHE:
Ich will von meiner Seite den User Status (Trialmember, Member oder nur Benutzer) auslesen lassen und damit mein 1klick connect TS3 programm entscheiden lassen wenn Trailmember oder + (Member,Support,Admin) dann TS3 start inkl. passw. und wenn nur Benutzer oder - (Gast) Dann muss PW des Servers manuell eingegeben werden...
1klick connect TS3 nist schopn fertig nur die Webabfrage feht mir noch... denn das was ich habe bringt mir nichts...
habe es mit einer extra .txt Datei versucht aber das ist keine gute Lösung da ich die Traimember von hand eingeben muss.. etc.. ink kleinere macken des scripts...
-------------------------------
Re: Automatisiert Daten aus einer HTML Seite kopieren
kurz ein Beispiel
'aac' ist internet-text und denn nach gesuchtem Text filtrieren , hier variable 'y'
'aac' ist internet-text und denn nach gesuchtem Text filtrieren , hier variable 'y'
Code: Select all
;- Example shows current playing song from :
;- HPR1: Traditional Classic Country from Heartland Public Radio
f1:="http://50.7.70.58:8708/played.html" ;- url search for
f2 =http://50.7.70.58:8708
vlcx=%a_programfiles%\VideoLAN\VLC\vlc.exe
ifexist,%vlcx%
run,%vlcx% --one-instance --qt-start-minimized %f2%,,hide,pid1 ;- play song with vlc.exe
xx:=ComObjCreate("WinHttp.WinHttpRequest.5.1") ;- Create the Object
xx.Open("GET",f1) ;- Open communication
xx.Send() ;- Send the "get" request
aac=
aac:=xx.ResponseText ;- Set the "aac" variable to the response
;- search for current song
StringReplace,y,aac,</tr>,$, All
Loop,parse,y,$,
{
if A_loopfield contains Current Song
{
y:=RegExReplace( A_loopfield, "<.*?>" )
stringreplace,y,y,Current Song,,all
stringmid,y,y,9,200
break
}
}
y :=RegExReplace(y, "\W", " ") ;- remove special characters
msgbox, 262208,Heartland Public Radio ,Current Song=`n%y% ;- show song title
return