Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Ach so! Erst aus einem String alle Trennzeichen entfernen, und sich dann überlegen wie der String danach am besten aufgeteilt werden kann ...#NULL hat geschrieben:Moxl hat geschrieben:Dann mittels RemoveString() alle Chr(11) entfernt für den besseren Überblick.
#NULL hat geschrieben:Wenn du auch noch das Jahr und das Album entfernst wird es noch übersichtlicher.
Jaja...Ach so! Erst aus einem String alle Trennzeichen entfernen, und sich dann überlegen wie der String danach am besten aufgeteilt werden kann ...
Ach ja?Moxl hat geschrieben:hatte am anfang gar keine Chr(11) drin, deswegen war das gar nicht so einfach.
Hab dann eine andere Methode gefunden den Quelltext nur als Text anzeigen zu lassen und da kamen die Chr(11) erst zustande.
Warum "antwortest" du auf ein Posting, dessen Aussage du nicht ansatzweise verstanden hast?Moxl hat geschrieben:warum fragst du dann nicht wenn du was nicht verstanden hast?
Code: Alles auswählen
alben$="American Idiot2004Dookie1994Revolution Radio2016Nimrod1997"
; Finde Zahlen von hinten nach vorne aufsteigend.
Zahlen$=""
j='1'
For i=Len(alben$) To 1 Step -1
Zeichen=Asc(Mid(alben$,i,1))
If Zeichen>='0' And Zeichen<='9'
Zahlen$=Chr(j)+Zahlen$
j+1
Else
Zahlen$=" "+Zahlen$
j='1'
EndIf
Next
;Debug Zahlen$
;Finde die Anzahl der Alben heraus und gebe sie als Vari aus.
Lauf=1
k=1
GF$=Chr($22) ; " Gänsefüßchen
gefunden=FindString(Zahlen$,"4321",Lauf)
While gefunden
Debug "Album"+Str(k)+"="+GF$+Mid(alben$,Lauf,gefunden-Lauf+4)+GF$
Lauf=gefunden+4
gefunden=FindString(Zahlen$,"4321",Lauf)
k+1
Wend
AnzahlAlben=k-1
; Baue ein Feld mit den Titeln und Jahren auf.
Debug "Feld der Alben:"
Structure AlbenTyp : Titel.s : Jahr.i : EndStructure
Dim Albenfeld.AlbenTyp(AnzahlAlben)
Lauf=1
For i=1 To AnzahlAlben
gefunden=FindString(Zahlen$,"4321",Lauf)
Albenfeld(i)\Titel=Mid(alben$,Lauf,gefunden-Lauf)
Albenfeld(i)\Jahr=Val(Mid(alben$,gefunden,4))
Lauf=gefunden+4
Debug Str(i)+":"+Albenfeld(i)\Titel+" von:"+Albenfeld(i)\Jahr
Next