also ich kann nur von coolmon sprechen und da lese ich die datei german.tv, die das tv-script bei mir erstellt so aus:
Code:
<C:$C2CFDF><U>tv</U>
<C:$C2CFDF><NAME=FILEDATA FORMAT="c:\german.tv">
<C:$C2CFDF><NAME=FILEDATA FORMAT="c:\german.tv,2">
<C:$C2CFDF><NAME=FILEDATA FORMAT="c:\german.tv,3">
<C:$C2CFDF><NAME=FILEDATA FORMAT="c:\german.tv,4">
.
.
.
usw bis 23
das ist n auszug aus meiner coolmon-config, weiß nicht ob die befehle im samurize ähnlich oder gleich sind.
das präfix hat nur was mit der schriftfarbe im coolmon zu tun.
jetzt noch mein tv.vbs (script) und die german.tv, die mir das script im selben verzeichnis erstellt.
damit das tv-script funktioniert muss man sich bei
www.tvinfo.de registriert haben und darf das sessioncookie nicht löschen glaub ich.
Code:
Const conURLSrc = "http://www.tvinfo.de/exe.php3" 'Dit is waar we de info vandaan halen. alleen jmmr dat ze geen V8 hadden.
Dim st(22)
st(0) = "ARD"
st(1) = "ZDF"
st(2) = "RTL"
st(3) = "Pro7"
st(4) = "Sat1"
st(5) = "VOX"
st(6) = "RTL2"
st(7) = "Bayern"
st(8) = "arte"
st(9) = "WDR"
st(10) = "3sat"
st(11) = "MTV"
st(12) = "VIVA"
st(13) = "Premiere 1"
st(14) = "Premiere 2"
st(15) = "Premiere 3"
st(16) = "Premiere 4"
st(17) = "Premiere 5"
st(18) = "n-tv"
st(19) = "N24"
st(20) = "CNN"
st(21) = "NBC"
st(22) = "Phoenix"
'Pr moet evenveel gedeclared zijn als st.
'Dit wordt namelijk gewrite in de File.
Dim pr(22)
pr(0) = "ARD"
pr(1) = "ZDF"
pr(2) = "RTL"
pr(3) = "Pro7"
pr(4) = "Sat1"
pr(5) = "VOX"
pr(6) = "RTL2"
pr(7) = "Bayern"
pr(8) = "arte"
pr(9) = "WDR"
pr(10) = "3sat"
pr(11) = "MTV"
pr(12) = "VIVA"
pr(13) = "Premiere 1"
pr(14) = "Premiere 2"
pr(15) = "Premiere 3"
pr(16) = "Premiere 4"
pr(17) = "Premiere 5"
pr(18) = "n-tv"
pr(19) = "N24"
pr(20) = "CNN"
pr(21) = "NBC"
pr(22) = "Phoenix"
Set http = CreateObject("microsoft.xmlhttp")
Set fso = CreateObject("Scripting.FileSystemObject")
' Get HTML from Teletext page
http.open "GET", conURLSrc, False
http.send
' Create array with each line as an element
Set fOutput = fso.CreateTextFile("german.tv", True) 'Okay maken we dus Onze File
aHTML = http.responsetext
For j = 0 To UBound(st)
If (InStr(aHTML, ("<b><u>" & st(j) & "</u></b></a>")) > 0) Then
a = InStr(aHTML, ("<b><u>" & st(j) & "</u></b></a>")) + Len(("<b><u>" & st(j) & "</u></b></a>"))
b = InStr(a, aHTML, "</a>") - a
c = Mid(aHTML, a, b)
d = RemoveHTML(c)
e = RemoveReturns(d)
fOutput.WriteLine pr(j) & e
End If
Next
'=================================================================================
Function RemoveReturns(strHTML)
strTmp2 = Replace(strHTML, vbCrLf, "")
strTmp3 = Replace(strTmp2, vbTab, "")
strTmp2 = Replace(strTmp3, vbLf, "")
strTmp3 = Replace(strTmp2, vbCrLf, "")
RemoveReturns = strTmp3
End Function
'=================================================================================
Function RemoveHTML(strHTM)
Dim strTmp, strTmp1, i, lngLen, charOne, ynWait4End
strTmp = ""
strTmp1 = CStr(strHTM)
strTmp1 = Replace(CStr(strHTM), "<BR>", vbCrLf)
strTmp = Replace(strTmp1, "<TR>", vbCrLf)
strTmp1 = Replace(strTmp, "</TR>", vbCrLf)
strTmp = Replace(strTmp1, "<TR>", vbCrLf)
strTmp1 = Replace(strTmp, "</TR>", vbCrLf)
strTmp = Replace(strTmp1, "<TR>", vbCrLf)
strTmp1 = Replace(strTmp, "</TR>", vbCrLf)
strTmp = Replace(strTmp1, "<TR>", vbCrLf)
strTmp1 = Replace(strTmp, "</TR>", vbCrLf)
strTmp = Replace(strTmp1, "<TD>", " ")
strTmp1 = Replace(strTmp, "</TD>", " ")
strTmp = Replace(strTmp1, "<TD>", " ")
strTmp1 = Replace(strTmp, "</TD>", " ")
strTmp = Replace(strTmp1, "<TD>", " ")
strTmp1 = Replace(strTmp, "</TD>", " ")
strTmp = Replace(strTmp1, "<TD>", " ")
strTmp1 = Replace(strTmp, "</TD>", " ")
strTmp = Replace(strTmp1, "<P>", vbCrLf)
strTmp1 = Replace(strTmp, "</P>", vbCrLf)
strTmp = Replace(strTmp1, "<P>", vbCrLf)
strTmp1 = Replace(strTmp, "</P>", vbCrLf)
strTmp = Replace(strTmp1, "<BR>", vbCrLf)
strTmp1 = Replace(strTmp, "</BR>", vbCrLf)
strTmp = Replace(strTmp1, "<BR>", vbCrLf)
strTmp1 = Replace(strTmp, "</BR>", vbCrLf)
strTmp = Replace(strTmp1, "<BR>", vbCrLf)
strTmp1 = Replace(strTmp, "</BR>", vbCrLf)
strTmp1 = Replace(strTmp, " ", " ")
strTmp = ""
ynWait4End = False
lngLen = Len(strTmp1)
For i = 1 To lngLen
charOne = Mid(strTmp1, i, 1)
If charOne = "<" Then
ynWait4End = True
charOne = ""
End If
If ynWait4End = True Then
If charOne = ">" Then
ynWait4End = False
End If
charOne = ""
End If
strTmp = strTmp & charOne
Next
RemoveHTML = strTmp
End Function und hier die ausgabedatei:
Code:
ARD | Ein pikantes Geschenk
ZDF | heute nacht
RTL | Golden Girls
Pro7 | Es lebt!
Sat1 | Frasier
VOX | MitternachtsMagazin
RTL2 | Das Todeslied des Shaolin
Bayern | Amato oder die Liebe zur Oper
arte | Pauline am Strand
WDR | Nachts kam die Angst
3sat | 10 vor 10
MTV | MTV Masters
VIVA | South Park
Premiere 1 | Proximity - Außerhalb des Gesetzes
Premiere 2 | Proximity - Außerhalb des Gesetzes
Premiere 3 | The Fast And The Furious
Premiere 4 | Pearl Harbor
Premiere 5 | Viva Knievel - Der Tod springt mit
n-tv | n-tv Trendshop
N24 | N24 Cash & Service
CNN | World Business This Week
NBC | NBC GIGA
Phoenix | der TAG
hoffe das hilft irgendwie!
Samurize 
Ähnliche Themen, die dich vielleicht interessieren 
