;Parser Version 0.01
;Diese Routinge Soll aus der ersten Zeile der karten.txt die Daten Parsen und darstellen
;
; Dies ist ein kleiner Test
; Als erstes öffnen wir die karten.txt
; Aufbau der Daten in der karten.txt
; "6";"fohmt";"fohmt";"senza torre";"Lance Corporal";"0";
; Omni Commander Basisname Clan Rank quad

karte = ReadFile ("D:\Eigene Projekte\Dwarsinfotools\karten.txt")

; eine Zeile aus der datei karten.txt auslesen

zeile$ = ReadLine (karte)

; Ermittel die länge der ausgelesenen Zeile

laenge =Len (zeile$)

; ausgabe der länge auf dem Bildschirm

Print laenge
;hier definiere ich die Start und Endposition in der Zeile für die einzelnen Daten
Omstart    = 0   ; Omni Starposition
Omende      = 0   ; Omni Endposition
Commstart   = 0 ; Commander Startposition
Commend      = 0 ; Commander Endposition
Basisstart   = 0   ; Basisstartposition
Basisend   = 0 ; Basisendposition
Clanstart   = 0 ; Clanstartposition
Clanend      = 0 ; Clanendposition
Rankstart   = 0 ; Rankstartposition
Rankend      = 0 ; Rankendposition
Quadstart   = 0 ; quadrantstartposition
Quadend      = 0 ; Quadrantendposition
zaehler    = 0 ; allgemeiner Zähler
contr      = 0 ; Controllvariable eine andere möglichkeit ist mir im moment nicht eingefallen

For i = 1 To laenge+1

buchstabe$ = Mid$ (zeile$, i,1)

;Print buchstabe$

Code = Asc (buchstabe$)

If code = 34 Then zaehler = zaehler+1 contr = 1

   ; Hier wird die Omni ermittelt
   
   If zaehler = 1 And contr = 1 Then omstart= i+1 contr = 0
   If zaehler = 2 And contr = 1 Then omende = i contr = 0
   
   
   ; Hier der Commandername
   
   If zaehler = 3 And contr = 1 Then commstart = i+1 contr = 0
   If zaehler = 4 And contr = 1 Then commend = i contr = 0
   
   
   
   ; hier der Basisname
   
   If zaehler = 5 And contr = 1 Then basisstart = i+1 contr = 0
   If zaehler = 6 And contr = 1 Then basisend = i contr = 0
   
   ; Hier der Clanname
   
   If zaehler = 7 And contr = 1 Then clanstart = i+1 contr = 0
   If zaehler = 8 And contr = 1 Then Clanend = i contr = 0
   
   ; Hier der Rank
   
   If zaehler = 9 And contr = 1 Then Rankstart = i+1 contr = 0
   If zaehler = 10 And contr = 1 Then Rankend = i contr = 0
   
   ; und hier der Quadrant
   
   If zaehler = 11 And contr = 1 Then Quadstart = i+1 contr = 0
   If zaehler = 12 And contr = 1 Then Quadend = i contr = 0


Next

; jetzt schnell noch die zeichenlänge für die Daten ermitteln

   ; für die Omni

   Omlang = omende - omstart
   
   ; und jetzt in den string schreiben
   
   Omni$ = Mid$ (zeile$, omstart,omlang)

      ; für den Commander Namen
      
      commlang = commend - commstart
      
      comm$ = Mid$ (zeile$, commstart,commlang)

         ; für den Basisnamen
         
         baselang = basisend - basisstart
         
         base$ = Mid$ (zeile$, basisstart,baselang)

         ; für den Clannamen
         
         clanlang = clanend - clanstart
         clan$ = Mid$ (zeile$, clanstart,clanlang)
         
            ;für den Rank
            ranklang = rankend - rankstart
            Rank$ = Mid$ (zeile$, rankstart,ranklang)
            
               ;für den Quadranten
               quadlang = quadend - quadstart
               quad$ = Mid$ (zeile$, quadstart,quadlang)
                  
; Ausgeben der Daten

Print "Omni            : "+Omni$
Print "Commander   : "+comm$
Print "Basis         : "+base$
Print "Clan            : "+clan$
Print "Rank            : "+rank$
Print "Quadrant      : "+quad$


CloseFile ("D:\Eigene Projekte\Dwarsinfotools\karten.txt")

WaitKey   

For i = 1 To Len(test$)
 buffer$ = Mid(test,i,1)
 
 Code = Asc (buffer$)

 Select code
  Case code = 34 ; Chr(34)
   schreiben = 1 - schreiben
  Case code = 59
   If Not schreiben Then parameter = parameter + 1
  Default
   If schreiben Then eintrag(parameter) = eintrag(parameter) + buffer
 End Select
Next