String auseinander nehmen [kompliziert]

Für allgemeine Fragen zur Programmierung mit PureBasic.
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: String auseinander nehmen [kompliziert]

Beitrag von Nino »

#NULL hat geschrieben:
Moxl hat geschrieben:Dann mittels RemoveString() alle Chr(11) entfernt für den besseren Überblick.
Ach so! Erst aus einem String alle Trennzeichen entfernen, und sich dann überlegen wie der String danach am besten aufgeteilt werden kann ... :lol:
#NULL hat geschrieben:Wenn du auch noch das Jahr und das Album entfernst wird es noch übersichtlicher. :D
:mrgreen:
Moxl
Beiträge: 150
Registriert: 26.10.2012 13:19

Re: String auseinander nehmen [kompliziert]

Beitrag von Moxl »

Ach so! Erst aus einem String alle Trennzeichen entfernen, und sich dann überlegen wie der String danach am besten aufgeteilt werden kann ... :lol:
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.

Aber trotzdem Danke an alle sinnvollen Kommentare :allright:

PS: hab es hin bekommen... 8)
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: String auseinander nehmen [kompliziert]

Beitrag von Nino »

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.
Moxl
Beiträge: 150
Registriert: 26.10.2012 13:19

Re: String auseinander nehmen [kompliziert]

Beitrag von Moxl »

warum fragst du dann nicht wenn du was nicht verstanden hast? :)
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: String auseinander nehmen [kompliziert]

Beitrag von Nino »

Moxl hat geschrieben:warum fragst du dann nicht wenn du was nicht verstanden hast? :)
Warum "antwortest" du auf ein Posting, dessen Aussage du nicht ansatzweise verstanden hast?
Moxl
Beiträge: 150
Registriert: 26.10.2012 13:19

Re: String auseinander nehmen [kompliziert]

Beitrag von Moxl »

Ist okay. Schnapp dir n Snickers :bounce:
Benutzeravatar
juergenkulow
Beiträge: 188
Registriert: 22.12.2016 12:49
Wohnort: :D_üsseldorf-Wersten

Re: String auseinander nehmen [kompliziert]

Beitrag von juergenkulow »

Hallo Moxl,

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   
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
Antworten