Fra VBS til VB

Hvad drejer det sig om, sådan lidt mere konkret?

/Claus

jamen det er et VB script som jeg har fundet, og lavet lidt om på (noget til og hente et tv program hjem.) mit vbs virker fint nok men eftersom jeg skal ha det udvidet en anelse skal koden laves om så det virker i normal VB får lidt compile errors, med undefined data types, illegal outside procedure osv.
summa summarum er at jeg vil ende ud med en exe fil i stedet for et script, plus nogle flere funktioner selvfølgelig...

jeg kan da godt prøve om jeg kan lave det til dig, men jeg vil godt se den kode du vil bruge til det.

hej sjh

Jamen drop mig en mail så sender jeg den lige, Clausph er også gået i gang, men vi ka jo sige at den der laver det først får pointene, og goe ideer eller forslag skal jeg nok gi lidt også...

mvh
Søren

har sendt det til dig.

men du skulle nok se om du kunne få lidt orden på din kode de roder lidt :))

hehe i know, takker mange gange...
og pænt hurtigt må man sige...

svar lige så får du point..!

har lige fået en fra clausph også så syntes det er fair hvis vi deler på midten, bare i lige svarer en gang

svar og tak for point det var jo nemt :)

Svar og også tak herfra - den var en morsom en!

ja ja fint nok

du behøver ikke funktion BinToText, den kan du lave sådan:

xxx = BinToText(GetHTMLBin("http://www......."), 32000)

xxx = StrConv(GetHTMLBin("http://www........"), vbUnicode)

Jeg har også moret mig lidt...
Her er en ny Sub Main, der ikke anvender RegExp !
Det er ikke ligefrem den mest strømlinede kode, men den virker.
Både denne kode OG RegExp er afhængige af, at TV-Guiden ikke ændrer deres layout.
Tak til sjh for tippet med StrConv - den kendte jeg ikke.

Sub Main()
    Dim Tid As String
    Dim Prog As String
    Dim HTML As String
    Dim P1() As String
    Dim P2() As String
    Dim Wk  As String
    Dim IX  As Long
    Dim Pos  As Long
   
    Const HowMuch = 5 'Number of show to display
    Const cTid = "<td class=""now"" height=""25"">" '(.*?)</td>
    Const cPrg = "<td align=""left"" valign=""middle"" class=""now"">" '(.*?)</td>"
    Const cKnl = "<td class=""now"" align=""center""><img src=""channels/"  '(.*?).gif""  align=""middle""></td>"
   
    HTML = GetHTMLBin("http://www.tvguide.dk/now.php")
    HTML = StrConv(HTML, vbUnicode)
   
   
    Pos = InStr(1, HTML, cTid, vbTextCompare)
    If Pos <= 0 Then Exit Sub
    Wk = Right(HTML, Len(HTML) - Pos - Len(cTid) + 1)
    Pos = InStr(1, Wk, "</table>")
    Wk = Left(Wk, Pos - 1)
    Wk = Replace(Wk, "</td>", "", , , vbTextCompare)
    Wk = Replace(Wk, "<tr>", "", , , vbTextCompare)
    Wk = Replace(Wk, "</tr>", "", , , vbTextCompare)
    Wk = Replace(Wk, ".gif""  align=""middle"">", "", , , vbTextCompare)
    Wk = Replace(Wk, vbLf, "", , , vbTextCompare)
    Wk = Replace(Wk, cTid, "<<##>>", , , vbTextCompare)
    Wk = Replace(Wk, cPrg, "<<!!>>", , , vbTextCompare)
    Wk = Replace(Wk, cKnl, "<<!!>>", , , vbTextCompare)
    P1 = Split(Wk, "<<##>>")
    For IX = 0 To UBound(P1)
        If IX >= HowMuch Then Exit For
        P2 = Split(P1(IX), "<<!!>>")
        Prog = Prog & _
            Trim(P2(2)) & ".:" & vbTab & _
            Trim(P2(0)) & ".: " & vbTab & _
            Trim(P2(1)) & vbCrLf
    Next IX

    Prog = "Dansk TV lige nu....:" & vbTab & "...Link her..." & vbCrLf & vbCrLf & "Kanal" & vbTab & "Startet" & vbTab & _
            "Program" & vbCrLf & "------------------------------------" & vbCrLf & Prog
   
    Tid = Date
    Tid = Tid & " .:. " & Time
    Tid = "..::TV-Guide    -    " & Tid & "::.."
   
    MsgBox Prog, vbInformation + vbOKOnly, Tid

End Sub

clausph >> Ja, jeg kan mange trix. ;-)