XML in Version 3.30

Anfängerfragen zum Programmieren mit PureBasic.
Tombi
Beiträge: 369
Registriert: 05.03.2008 22:05

XML in Version 3.30

Beitrag 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?
Bild Bild Bild
Intel Pentium 4 630 (3 GHZ)
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Beitrag von Fluid Byte »

Schau dir mal FindString() an.
Windows 10 Pro, 64-Bit / Outtakes | Derek
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag 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
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
Tombi
Beiträge: 369
Registriert: 05.03.2008 22:05

Beitrag von Tombi »

Fluid Byte hat geschrieben:Schau dir mal FindString() an.
Cool! :o
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 :mrgreen: ... das du so hilfsbereit bist :lol:

PS: Wie bekommst du das A hin?
Bild Bild Bild
Intel Pentium 4 630 (3 GHZ)
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag 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
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
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

eine übersicht findest du dort:
%SystemRoot%\system32\charmap.exe
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Antworten