Ignorieren von Groß- oder Kleinschrift beim suchen im Array

[Ironsmurf]

Hallo zusammen
möchte gerne eine Datenbank entwickeln, nun habe ich das Problem das dass suchen und sortieren klappt, aber wie kann ich erreichen, das dass Script beim suchen Groß- oder Kleinschreibung ingnoriert.

Code: Alles auswählen

OpenConsole()
Dim Movies.s(100)                 

Movies(0) = "James Bond - die welt ist nicht genug"         
Movies(1) = "James Bond - In toedlicher Mission"               
Movies(2) = "James Bond - Octopussy"             
Movies(3) = "James Bond - Sag niemals nie"           
Movies(4) = "James Bond - Stirb an einem anderen Tag"


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

SortArray (Movies(),3)

For Index.b = 0 To 100
 film$ = movies.s(index)
 If FindString (film$,suche$,1)
   PrintN(film$)
 EndIf
Next
Input()   
CloseConsole() 

Vielen Dank im voraus für eure Mühe

[Kiffi]

Code: Alles auswählen

 If FindString (lcase(film$),lcase(suche$),1)

hättest Du auch selber drauf kommen können

Grüße ... Kiffi

[roherter]

Kiffis lösung ist besser:allright:
Aber ich hatte mich auch mal dran probiert bei mir wird der erste buchstabe in einen großbuchstaben umgewandelt!

Code: Alles auswählen

OpenConsole()
Dim Movies.s(100)                 

Movies(0) = "James Bond - die welt ist nicht genug"         
Movies(1) = "James Bond - In toedlicher Mission"               
Movies(2) = "James Bond - Octopussy"             
Movies(3) = "James Bond - Sag niemals nie"           
Movies(4) = "James Bond - Stirb an einem anderen Tag"


suche$ = Input()
suche$ = Left(suche$,Len(suche$)-2)
Debug suche$
suche2$=UCase(Left(suche$,1))+Right(suche$,Len(suche$)-1)
Debug suche2$
PrintN("")

SortArray (Movies(),3)

For Index.b = 0 To 100
  film$ = Movies.s(Index)
  If FindString (film$,suche$,1)
    PrintN(film$)
  ElseIf FindString (film$,suche2$,1)
    PrintN(film$)
  EndIf
Next
Input()   
CloseConsole()