Html Datei auslesen mit Vbscript

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe folgendes Problem. Ich möchte gerne eine Internet Seite laden, diese in einer Schleife durchlaufen lassen und einen bestimmten Wert auslesen. Das innere der Seite sieht z.B. so aus:

.
.
.
[Kunde1](javascript:newFenst(‚user_card.php?&user_id=12880‘,%20’USERCARD’,%20790,%20400))[Kunde2](javascript:newFenst(‚user_card.php?&user_id=12881‘,%20’USERCARD’,%20790,%20400))[Kunde3](javascript:newFenst(‚user_card.php?&user_id=12882‘,%20’USERCARD’,%20790,%20400))[Kunde4](javascript:newFenst(‚user_card.php?&user_id=12883‘,%20’USERCARD’,%20790,%20400))
.
.
.

der Wert, den ich brauche sind die User ID’s. In diesem Beispiel also 12880, 12881, 12882 und 12883. Dafür wären nichtmal Arrays nötig, da ich die Variable, die die jeweilige ID enthält sowieso gleich nutzen würde. Aber wie lese ich die Werte aus bzw bekomme die ID’s in die Variable?

#2

Ach ja, das war der erste Versuch:

Dim var1 As String, var2 As String
Dim x As Double, i As Double, var3 As Double

var1 = „user_id=“
var2 = „“
Text1.Text = Inet1.OpenURL(„test.htm“)
i = 0
x = InStr(Text1.Text, var1)
var3 = 0

If x = 0 Then
MsgBox „Nicht vorhanden“
Else
For i = x To Len(Text1.Text)
If Not IsNumeric(Mid(Text1.Text, i + Len(var1) + 5, 1)) Then
var3 = i - x
Exit For
End If
Next
var2 = Mid(Text1.Text, x + Len(var1) + 5, var3)
MsgBox var2
End If

Tja, Windows Script Host meldet sofort einen Kompilierungsfehler bzw. das ein Anweisungsende erwartet wird. ??? Wo denn?

#3

Hallo!
Mal sehen…

Ach ja, das war der erste Versuch:

Dim var1 As String, var2 As String
Dim x As Double, i As Double, var3 As Double

usw…

Tja, Windows Script Host meldet sofort einen
Kompilierungsfehler bzw. das ein Anweisungsende erwartet wird.
??? Wo denn?

Also im Programmlauf finde ich zunächst keinen Fehler.
Aber die „Dims“ sind in der Dokumentation anders beschrieben.
Schreib doch einfach:

Dim x, i, var 3

Die Variablen sind dann Variant und ich finde auch keine andere Schreibweise für das VB-Script und zwar in der:
„Microsoft® Visual Basic® Scripting Edition
VBScript Language Reference“

In Visual Basic geht, wenn ich mich recht erinnere zwar:
„Dim x, y, z as Long“
Nicht aber:
„Dim x as Long, y as Long, z as Long“.

MfG
Matthias

#4

OK, gut. Danke. Ich habe jetzt mal die einfachste aller Möglichkeiten versucht:

Dim var1
Dim var2
Dim var3
Dim x
Dim i
.
.
.

wird auch problemlos akzeptiert. Die Version:

Dim var1 As String
Dim var2 As String
Dim x As Double
Dim i As Double
Dim var3 As Double
.
.
.

scheint dagegen in VBscript nicht zu laufen!? Wie auch immer…
das Script tut immer noch nicht; was es soll.
Es kann doch auch in VBscript nicht so schwierig sein ein paar Strings aus einer Website auszulesen. hmmm… vielleicht erkennt ja irgendwer noch den Fehler. Ich verzweifle langsam. :-/

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Hallo,

ichschlage mich zurzeit mit einem ganz ähnlichen Problem rum:
Ich will eine ganz einfache, mehrzeilige TXT-Datei in eine Variable einlesen. Dafür hab ich schon das halbe Internet und auch dieses Forum durchsucht. Aber es ist zum Verzweifeln: Überall sehe ich nur diese DIM-Anweisungen, aber wenn diese in einer *.vbs-Datei auftauchen, gibts die Probleme wie oben beschrieben. Hilf uns, wer kann :smile:.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]