PureBoard

Verfasst: **07.02.2006 11:47**

Hallo zusammen

versuche gerade den DIM-Befehl zu lernen und die eingegebenen Daten wieder über PrintN in einer For-Next Schleife in einem Konsolenfenster anzeigen zu lassen. Aber etwas mache ich falsch.

Code: Alles auswählen

OpenConsole()
Dim Movies.s(4)                  

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

For Index.b = 0 To 4
 film$ = movies.s(0)
PrintN (film$) ; Vermute in dieser Zeile einen Fehler !
 index.b + 1
Input()
Next   
CloseConsole() 

Vielen Dank schon mal

Verfasst: **07.02.2006 12:03**

Hi,

Du darft innerhalb einer For/Next-Schleife den Zähler nicht selbst hochsetzen... das macht die Schleife alleine. Die Zeile

Code: Alles auswählen

 index.b + 1

ist zuviel.
Außerdem musst Du auch noch sagen, welchen Index Du gerade anzeigen willst. Die Zeile

Code: Alles auswählen

film$ = movies.s(index)

lauten. (du hast da immer 0 stehen....

Verfasst: **07.02.2006 12:05**

habe die zeile raus genommen, jetzt zeigt er mir immer nur den ersten Datensatz an, das ganze 5 mal, es muss also noch ein Fehler im Script sein.

Verfasst: **07.02.2006 12:08**

zu spät... hatte den fehler auch erst übersehen... und meinen Post nochmal angepasst...

cu

Verfasst: **07.02.2006 12:08**

Code: Alles auswählen

film$ = movies.s(Index)

Verfasst: **07.02.2006 12:18**

Vielen Dank für eure Hilfe,
als Anfänger ist es nicht immer einfach, von daher

EIN NETTES DANKE SCHÖN an alle die mit uns

Anfängern so viel Geduld beweisen.

Verfasst: **07.02.2006 12:59**

Noch eine Frage bitte

Code: Alles auswählen

OpenConsole()
Dim Movies.s(4)                  

Movies(0) = "007 - James Bond - Die Welt ist nicht genug"             
Movies(1) = "007 - James Bond - In toedlicher Mission"               
Movies(2) = "007 - James Bond - Octopussy"             
Movies(3) = "007 - James Bond - Sag niemals nie"            
Movies(4) = "007 - James Bond - Stirb an einem anderen Tag"
       
For Index.b = 0 To 4
 film$ = movies.s(index)
PrintN (film$)
Input()
If FindString ("film$(index.b)","ni",1)
Else
EndIf
Next   
CloseConsole()

Versuche über Findstring, einen Teil der Datensätze zu finden, aber er gibt mir immer alle aus, wo liegt der Fehler ?
Danke

Verfasst: **07.02.2006 13:08**

Code: Alles auswählen

OpenConsole()
Dim Movies.s(4)                  

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

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

ungetestet da gerade PBlos

Verfasst: **07.02.2006 14:46**

freedimension hat geschrieben: ungetestet da gerade PBlos

Gute Besserung

Verfasst: **07.02.2006 15:27**

@freedimension:
Das ist ja interessant! Gleich 2x in deinem Code-Beispiel:

Code: Alles auswählen

$suche

Was ist das für ein Variablentyp ?

PureBoard

Text String mit PrintN in einer For Next Schleife ?

Text String mit PrintN in einer For Next Schleife ?