; SpionAtom:
; satz$ ist der zu untersuchende String wort gibt an, das wievielte Wort gesucht werden soll
Function nwort$(satz$, wort)
If wort < 1 Then Return ""
trenn$ = ";" ;<-- Trennzeichen
satz$ = satz$ + trenn$
w = 0
pos = 1
   While w < wort And pos > 0
      While Mid$(satz$, pos, 1) = trenn$
      pos = pos + 1
      Wend
      x = pos
      y = Instr(satz$, trenn$, pos)
      pos = y
      w = w + 1
   Wend
Return Mid$(satz$, x, y - x)
End Function

[AIRPLANE]
NAME = Lolinator 123
LENGTH = 13.37
etc.
[/AIRPLANE]

[F16]
Länge         = 14,52 m
Spanweite       = 9,45    m
Höhe          = 5,09    m
Geschwindigkeit = 2142    km/h
Schubkraft       = 76,31 kN
[/F16]

f16;14,52;9,45;5,09;2142;76,31;Die F-16 Fighting Falcon ist ein Mehrzweckkampfjet der amerikanischen Firma General Dynamics
f18;17,07;11,43;4,66;1880;106,6;Die F/A-18 Hornet ist ein zweistrahliges Mehrzweckkampfflugzeug des US-Flugzeugbauers McDonnell Douglas

Graphics(800, 600, 0, 2)

; Jeder Datenbank-Eintrag wird mit diesen Daten gefüttert:
Type TFlugzeug
   Field Typ$
   Field Lang#
   Field Spanweite#
   Field Hoch#
   Field Geschwindigkeit#
   Field Schubkraft#
   Field Beschreibung$
End Type

Datenbank_Lesen()
Datenbank_Zeigen()
Suche_Spannweite(0, 10) ;Spannweite größer 10 m
WaitKey()
End


Function Datenbank_Lesen(file$="Daten.txt")
   ;* Die Datei muss vorhanden sein, hier wird nicht darauf getestet!
   Local source = OpenFile(file$)
   ;* Einlesen der Datei Zeile für Zeile:
   Repeat
      Local zeile$ = ReadLine(source)      ;Zeile aus der Datei Lesen
      zeile$ = Replace(zeile$, ",", ".")   ;Deutsch->Englisch Komata (Achtung, Komata im Text werden auch Punkte!)
      Local F.TFlugzeug = New TFlugzeug   ;Ein neuer Datenbank-Eintrag
      ;* Jetzt wird die Zeile an den ";" gesplittet
      F\Typ$ = nwort$(zeile$, 1)
      F\Lang# = Float(nwort$(zeile$, 2)) ; nwort liefert einen String, besser man konvertiert in das ziel Format (Float)
      F\Spanweite# = Float(nwort$(zeile$, 3))
      F\Hoch# = Float(nwort$(zeile$, 4))
      F\Geschwindigkeit# = Float(nwort$(zeile$, 5))
      F\Schubkraft# = Float(nwort$(zeile$, 6))
      F\Beschreibung$= nwort$(zeile$, 7)
   Until Eof(source) ;Bis zum ende der Datei.
   ;Diese Technik funktioniert nur dann, wenn die Art der Einträge immer vorhanden sind und immer in der gleichen Reihenfolge
   ;auftauchen. Für kompliziertere Daten muss man einen größeres Parser bemühen.
   CloseFile source
End Function


Function Datenbank_Zeigen()
   ;Sollte selbsterklärend sein...
   Local F.TFlugzeug, i=0
   For F = Each TFlugzeug
      i=i+1
      Print "Typ: "+F\Typ$
      Print "Länge: "+F\Lang#
      Print "Spanweite: "+F\Spanweite#
      Print "Hoch: "+F\Hoch#
      Print "Geschwindigkeit: "+F\Geschwindigkeit#
      Print "Schubkraft: "+F\Schubkraft#
      Print "Beschreibung: "+F\Beschreibung$
      Print
   Next
   Print "-----"
   Print i+" Einträge gefunden"
End Function

; gk = 0 -> Größer als
; gk = 1 -> Kleiner als
Function Suche_Spannweite(gk=0, wert#)
   Local F.TFlugzeug, i=0
   For F = Each TFlugzeug
      If gk = 0 Then
         If F\Spanweite# > wert# Then
            Print F\Typ$ + " mit " + F\Spanweite#
         EndIf
      Else
         If F\Spanweite# < wert# Then
            Print F\Typ$ + " mit " + F\Spanweite#
         EndIf
      EndIf
   Next
End Function

; SpionAtom:
; satz$ ist der zu untersuchende String wort gibt an, das wievielte Wort gesucht werden soll
; Im String "Test;Lallilu;805" ist "Test" wort=1, "Lallilu" ist wort=2 und "805" ist wort = 3
; Achtung!: Zahlen ins passende Format kovertieren mit int() oder Float()!
Function nwort$(satz$, wort)
   If wort < 1 Then Return ""
   trenn$ = ";" ;<-- Trennzeichen
   satz$ = satz$ + trenn$
   w = 0
   pos = 1
   While w < wort And pos > 0
      While Mid$(satz$, pos, 1) = trenn$
         pos = pos + 1
      Wend
      x = pos
      y = Instr(satz$, trenn$, pos)
      pos = y
      w = w + 1
   Wend
   Return Mid$(satz$, x, y - x)
End Function

If Not CountGadgetItems (listbox2)=0
FreeGadget listbox2
listbox2 = CreateListBox (200,290, 200,190, win)
malu=0
EndIf
EndIf
first_time=0
   For i= 1 To anzz
      pos = 0
   

      input_lower$=Lower$(input_search$)
      input_lower$=Trim$(input_lower$)

      tracks_lower$=Lower$(tracks_short$(i))
      tracks_lower$=Trim$(tracks_lower$)


      pos = Instr (tracks_lower$,input_lower$)
      

      
      If pos <>0   
      
     AddGadgetItem listbox2, "("+i+") "+tracks_short$(i)
     ;Print CountGadgetItems (listbox2)
      EndIf
   Next
EndIf


If search=1 And SelectedGadgetItem (listbox2)<>-1
search=0
slu=1
sel_1=SelectedGadgetItem (listbox2)
glob$=Mid(GadgetItemText$ (listbox2, sel_1),2,-1)
pos2 = Instr (glob$,")")
akt = Mid (glob$,1,pos2-1)

SelectGadgetItem(listbox,akt)
EndIf