17735
Goto Top

(VB 6) Bestimmte Zeichenfolge aus String ausgeben

Hallo,

ich habe folgendes Problem in VB6:

Ich lade aus dem Internet eine XML-Datei herunter, den Inhalt daraus speichere ich in einer Variablen. Dies sieht etwa so aus:

HTTP/1.1 200 OK
ETag: "70cb5336-b6-437feb020c0c0"
Accept-Ranges: bytes
Content-Length: 182
Date: Sat, 18 Aug 2007 20:14:07 GMT
Connection: close
Last-Modified: Sat, 18 Aug 2007 19:55:23 GMT
Server: Apache
Content-Type: application/xml
Keep-Alive: timeout=10, max=961

<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
<Product>
<title>ProductTitle</title>
<currentversion>3.0</currentversion>
</Product>

Aus diesem Text, der in einer Variable vom Typ "String" gespeichert ist, möchte ich nun die Zeichenkette zwischen <currentversion> und </currentversion> filtern und in einer neuen Variable abspeichern, also in diesem Fall sollte in der neuen Variable 3.0 stehen. Anschließend kann ich dann mit dieser Variable weiterarbeiten.

Meine Frage: Wie kann ich diesen String aus dem String herausfiltern und dabei beachten, dass die Länge des aus dem Internet ankommenden Strings vor <currentversion> variabel (also mal länger, mal kürzer) sein kann? Ich habe bereits verschiedene Kombinationen mit den Funktionen Left(), Right(), InStr() und Len() versucht, bin jedoch nicht erfolgreich zum Ziel gekommen.

Ich hoffe, ich habe meine Frage verständlich formuliert, wenn nicht, einfach fragen...

Gruß,
Ahnenforscher

Content-Key: 66540

Url: https://administrator.de/contentid/66540

Ausgedruckt am: 29.03.2024 um 08:03 Uhr

Mitglied: miniversum
miniversum 19.08.2007 um 10:22:21 Uhr
Goto Top
Angenommen in der Variabeln Text steht dein Text dann gehts so:
pos1 = InStr(Text, "<currentversion>") + Len("<currentversion>")  
pos2 = InStr(Text, "</currentversion>")  
Zahl = Mid(Text, pos1, pos2 - pos1)

MsgBox Zahl
In Zahl steht dann dein Wert drin.

miniversum
Mitglied: 17735
17735 19.08.2007 um 11:06:59 Uhr
Goto Top
Okay danke das funktioniert.

Gruß,
Ahnenforscher