Ach so! Erst aus einem String alle Trennzeichen entfernen, und sich dann überlegen wie der String danach am besten aufgeteilt werden kann ...
Jaja...
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.
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.
Ach ja?
Offenbar hast Du die Problemstellung zu keinem Zeitpunkt hier vollständig und präzise beschrieben. In ca. jeder 2. Nachricht breschreibst du etwas anderes ... Was dein Verständnis von "sinnvoll" ist, möchte ich lieber nicht wissen.
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
Bitte stelle Deine Fragen, denn den Erkenntnisapparat einschalten entscheidet über das einzig bekannte Leben im Universum.
Jürgen Kulow Wersten :D_üsseldorf NRW D Europa Erde Sonnensystem Lokale_Flocke Lokale_Blase Orion-Arm
Milchstraße Lokale_Gruppe Virgo-Superhaufen Laniakea Sichtbares_Universum