Hier also der 2. Teil der Tutorial Reihe.

Heute werde ich auf Schleifen, Strings und Dateiveränderungen eingehen.

Eine einfach Schleife generieren wir mit for … next.

Bsp.:

For x=1 To 10
; Anweisung was wärend der Schleife gemacht werden soll
Next

Unser Programm zählt nun von 1 bis 10 – Next bedeutet, dass ein weiteres mal gezählt werden soll.

Sobald die Schleife abgearbeit ist, geht es mit dem Programmcode weiter.

Wir können Schleifen auch verschachteln, Bsp.:

For x=1 to 3

Print “Schleife :”+x
For y=1 To 7 Step 2
Print “hallo”
Next
Next
WaitKey()

Step 2 bedeutet, dass er in 2er Schritten zählt, also immer 2 dazu addiert.

Wir können auch mit Repeat … Until eine Art Schleife initiieren.

Hier wird nun so lange der Programmcode innerhalb Repeat … Until abgearbeitet, bis das Ereignis wahr wird. Bsp.:

Repeat
a=a+1
Print a
Until a=5
WaitKey()

Strings zerlegen:

Eigentlich eine nervige Sache, aber gerade unter der Socketprogrammierung extrem wichtig.

Nehmen wir an, wie haben eine längere Zechenkette:

a$=”Gestern war ich im Wald und fällte 15 Bäume”

Wir möchten wissen wo in a$  unser Wert 15 steht.

Wir können die Position in der Variable a$ mit dem Befehl Instr bestimmen.

Instr(String,find) Bsp.:

a$=”Gestern war ich im Wald und fällte 15 Bäume”
zahl1=Instr(a$,”15″)
Print zahl1
WaitKey()

Wir sehen also unser wert beginnt an der 36. Stelle (Leerzeichen haben natürlich auch einen Wert).

Um Teilstücke aus einem String herauszuschneiden, gibt es 3 Möglichkeiten.

Left$(Variable$,Zähler) ; es werden aus der Variable so viele Strings von links an heraus extrahiert wie der Zähler groß ist.

Right$(Varable$,Zähler); genau das selbe, nur von rechts ausgehend.

Mid$(Varable$,Startcount,Zähler) ; Hier werden nun so viele Stellen aus dem String extrahiert, wie der Zähler groß ist – beginnenden an der Position Startcount. Bsp.:

a$=”Gestern war ich im Wald und fällte 15 Bäume”
zahl1=Instr(a$,”15″)

Print zahl1
Print Left$(a$,7)
Print Right$(a$,5)
Print Mid$(a$,zahl1,2)
WaitKey()

Dateien anlegen, verändern etc.

Wir können natürlich auch Dateien unter Blitz anlegen, verändern, löschen etc.

Am besten zeige ich das an einem Bsp.:

datei=WriteFile(“test.txt”)
WriteLine datei,”Hallo”
CloseFile (datei)

Delay(3000)
datei=OpenFile(“test.txt”)
a$=ReadLine (datei)
Print a$
CloseFile (datei)
Delay(3000)
DeleteFile (“test.txt”)
WaitKey()
End

Wir legen eine Datei mit dem Namen test.txt an (Writefile) , schreiben in Ihr eine Zeile (Hallo).

Wenn wir den Dateizugriff beendet haben, müssen wir diesen auch wieder freigeben (Closefile).

Da unser Programm schneller ist als die Festplatte, müssen wir unser Programm kurz anhalten lassen, sonst ist der erneute Zugriff auf die Datei noch nicht freigegeben.

Dies machen wir mit Delay(3000) – “1000 sind 1 Sekunde”, also warten wir 3 Sekunden.

Danach öffnen wir unser Programm (OpenFile) um zugreifen zu können.

Readline liest eine Zeil aus dem Programm aus.

Danach schließen wir es wieder – zum Schluss wird die Datei dann wieder gelöscht (DeleteFile).

!!!! Achtung !!!! mit Blitz gelöschte Dateien landen nicht im Papierkorb sondern sind komplett weg – also Vorsicht mit dem was Ihr löscht .

Viel Spass beim experimentieren.

Euer hoo