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?
XML in Version 3.30
XML in Version 3.30



Intel Pentium 4 630 (3 GHZ)
- Fluid Byte
- Beiträge: 3110
- Registriert: 27.09.2006 22:06
- Wohnort: Berlin, Mitte
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
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Cool!Fluid Byte hat geschrieben:Schau dir mal FindString() an.

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


PS: Wie bekommst du das A hin?



Intel Pentium 4 630 (3 GHZ)
halte Alt gedrückt und gebe auf dem Nummernblock 0197 ein.
Damit kannst du alle Acii-Zeichen schreiben, zB auch das © mit 0169
Damit kannst du alle Acii-Zeichen schreiben, zB auch das © mit 0169
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
-
- Beiträge: 17389
- Registriert: 10.11.2004 03:22