Visual Basic Forum

Jings · Poster Anmeldedatum: 02.05.2008 Beiträge: 123

Hi Leute,

ich brauche mal eure Hilfe.
Und zwar lasse ich mir aus einem Seitenquelltext eine URL extrahieren und diese schreibe ich in eine
Textbox.

Nun will ich aus dieser URL einen bestimmten Abschnitt extrahieren und in einen andere Textbox
schreiben lassen. Dieser Wert, den ich extrahieren will, liegt zwischen dem 6 und 7 Slash ( / ).
Das ganze versuche ich mittels einer Schleife zu suchen und dann in die Textbox schreiben zu lassen.
das ganze mache ich mit diesem Code:

Visual Basic: [code]Private Sub cmd_2_Click(Index As Integer)
Dim j As Integer, mypos3 As String, mypos4 As String, mypos5 As String
wert2 = txt_Quellcode.Text

j = 0

For i = 0 To 7

mypos3 = InStr(j, wert2, "/", vbTextCompare)

If j = 6 Then
mypos4 = mypos3
End If

If j = 7 Then
mypos5 = mypos3
End If

j = mypos3 + 1

Next i

txt_DLLink.Text = Mid(wert2, mypos4, mypos5 - mypos4)
End Sub[/code]

Wenn ich allerdings dann auf den Button klicke, um diesen Bereich in die andere Textbox schreiben zu
lassen, bekomme ich immer folgende Fehlermeldung:

Laufzeitfehler '5':
Ungültiger Prozeduraufruf oder ungültiges Argument

Wenn ich dann auf debuggen gehe, makiert er mir den Anfang von der Schleife. Diesen hier:

Visual Basic: [code] mypos3 = InStr(j, wert2, "/", vbTextCompare)[/code]

Wo liegt dort der Fehler?
Ich finde ihn einfach nicht.

Danke schonmal im Voraus für eure Hilfe!

MfG
Jings

Edith kommt vorbei und sagt: Hat sich erledigt, habs raus! Wink

dcm · Poster Anmeldedatum: 04.05.2008 Beiträge: 101

Ähm moment mal, hab ich das richtig verstanden?
es ist der wert zwischen dem 6. und 7. "/"?
dafür ist eigentlich die split funktion da
viel komfortabler...

Visual Basic: [code]sub blabla

dim strArray() as string
strArray() = split(txt_Quellcode.txt,"/")
txt_DLLink.text = strArray(6)

End Sub[/code]

Jings · Poster Anmeldedatum: 02.05.2008 Beiträge: 123

hmmm....Danke für die Antwort.
Aber an dem Abend stand ich echt aufm Schlauch und hab erst später realisiert, dass ich einfach nur einen teil aus dem Link entfernen musste.

Also hab ich das ganze mit der Replace Funktion gemacht.

MfG
Jings