PureBoard

Verfasst: **08.02.2006 14:56**

Ich suche den Fehler im Script
Ich möchte lernen eine Datenbank zu programmieren,
dazu setze ich mich mit Structure und Dim auseinander,
aber ich habe einen Fehler in der For Next Schleife.
Kann man die Schleife so programmieren das er alle Felder des Array´s
absucht, also alle Eingaben werden in einer Eingabezeile gemacht.

Code: Alles auswählen

OpenConsole()
Structure Movies 
    Filmtitel$
    StarA$
    StarB$ 
EndStructure 
  
Dim Video.Movies(20) 
Video(0) \ Filmtitel$ = "James Bond 007 - Moonraker" 
Video(0) \ StarA$ = "Roger Moore"
Video(0) \ StarB$ = "Desmond Llewelyn"             

Video(1) \ Filmtitel$ = "James Bond 007 - Thunderball"
Video(1) \ StarA$ = "Sean Connery"
Video(1) \ StarA$ = "Desmond Llewelyn"

Video (2) \ Filmtitel$ = "James Bond 007 - Goldfinger"
Video (2) \ StarA$ = "Sean Connery"
Video (2) \ StarB$ = "Desmond Llewelyn"

suche$ = Input()
 For Video = 0 To 4
 DVD$ = Filmtitel (Video.b) ; diese Zeile ist böse
 If FindString (DVD$,suche$,1)
  
   PrintN("") : PrintN (DVD$)
  EndIf
  Next
Input()   
CloseConsole()

Vielen Dank schon mal dafür

Verfasst: **08.02.2006 14:59**

Code: Alles auswählen

DVD$ = Video(Video)\Filmtitel$

Verfasst: **08.02.2006 15:00**

Code: Alles auswählen

OpenConsole()
Structure Movies
  Filmtitel$
  StarA$
  StarB$
EndStructure
 
Dim Video.Movies(20)
Video(0) \ Filmtitel$ = "James Bond 007 - Moonraker"
Video(0) \ StarA$ = "Roger Moore"
Video(0) \ StarB$ = "Desmond Llewelyn"             

Video(1) \ Filmtitel$ = "James Bond 007 - Thunderball"
Video(1) \ StarA$ = "Sean Connery"
Video(1) \ StarA$ = "Desmond Llewelyn"

Video (2) \ Filmtitel$ = "James Bond 007 - Goldfinger"
Video (2) \ StarA$ = "Sean Connery"
Video (2) \ StarB$ = "Desmond Llewelyn"

suche$ = Input()
suche$ = Left(suche$,Len(suche$)-2)

For i = 0 To 4
  DVD$ = Video(i)\Filmtitel$
  If FindString (UCase(DVD$),UCase(suche$),1) 
    PrintN("") : PrintN (DVD$)
  EndIf
Next
Input()   
CloseConsole()

PureBoard

Suche in Datenbank

Suche in Datenbank