Seite 1 von 1
XML in Version 3.30
Verfasst: 06.04.2008 15:13
von Tombi
Da es die XML-Funktion in Version 3.30 nicht gibt würde ich gerne versuchen das ganze per "suchen und finden" zu regeln.
Also er soll z.b. nach <area suchen. Wenn er es hat sucht er das nächstgelegene sys="123" und findet zwischen den " " die Zahl.
Ist sowas bereits möglich - gibt es schon eine suchen-finde procedure o.ä.?
Oder müsste ich mir erst sowas selber zusammenbasteln?
Verfasst: 06.04.2008 15:48
von Fluid Byte
Schau dir mal FindString() an.
Verfasst: 06.04.2008 16:40
von STARGÅTE
hier ein Beispiel
Code: Alles auswählen
String$ = "<area blabla=1234 sys= "+Chr(34)+"123"+Chr(34)+" > <area sys="+Chr(34)+"456"+Chr(34)+">"
Debug String$
Pos = 0
Repeat
Pos = FindString(String$, "<area", Pos+1)
If Pos
Pos2 = FindString(String$, "sys", Pos+1)
If Pos2
Start = FindString(String$, Chr(34), Pos2+1)
Ende = FindString(String$, Chr(34), Start+1)
Wert$ = Mid(String$, Start+1, Ende-Start-1)
Debug Wert$
EndIf
EndIf
Until Pos=0
Verfasst: 06.04.2008 16:47
von Tombi
Fluid Byte hat geschrieben:Schau dir mal FindString() an.
Cool!
STARGÅTE hat geschrieben:hier ein Beispiel
Code:
String$ = "<area blabla=1234 sys= "+Chr(34)+"123"+Chr(34)+" > <area sys="+Chr(34)+"456"+Chr(34)+">"
Debug String$
Pos = 0
Repeat
Pos = FindString(String$, "<area", Pos+1)
If Pos
Pos2 = FindString(String$, "sys", Pos+1)
If Pos2
Start = FindString(String$, Chr(34), Pos2+1)
Ende = FindString(String$, Chr(34), Start+1)
Wert$ = Mid(String$, Start+1, Ende-Start-1)
Debug Wert$
EndIf
EndIf
Until Pos=0
Krass
... das du so hilfsbereit bist
PS: Wie bekommst du das A hin?
Verfasst: 06.04.2008 17:41
von STARGÅTE
halte Alt gedrückt und gebe auf dem Nummernblock 0197 ein.
Damit kannst du alle Acii-Zeichen schreiben, zB auch das © mit 0169
Verfasst: 06.04.2008 18:33
von Kaeru Gaman
eine übersicht findest du dort:
%SystemRoot%\system32\charmap.exe