StringSplit Problem

shakoon

Hallo,

Ich habe ein kleines problem und komme nicht weiter.
Ich muss dazu sagen das ich noch ein Anfänger bin Habe bisher immer durch ausprobieren überlebt Aber hier komme ich nicht weiter.

Problem ist folgendes:

Ich habe eine Inputbox, in der ich Zahlen eingebe. Entweder 0,1 oder 2.
Maximal ist diese Zahl 9 stellen lang. Es kann aber auch mal sein, das ich nur 2 oder nur 4 stellen eingebe.

Wenn ich alle 9 stellen in meine Inputbox eingebe, funktioniert mein Script wunderbar, aber sobald ich weniger als 9 eingebe kommt ein ERROR.
Kann mir da jemand helfen? das wenn ich nur 4 Zahlen eingebe, das er mir alle 5 Zahlen danach als 0 wiedergibt?

AutoIt

HotKeySet("{ESC}", "Terminate")


Func Terminate()
    Exit
EndFunc






$Input = InputBox("Arbeitspositionen", "Bitte gib den Code für die Arbeitspositionen an", "", "", -1, -1, 0, 0)


$var1 = StringSplit($Input,"")


$10 = $var1[1]
$20 = $var1[2]
$30 = $var1[3]
$40 = $var1[4]
$50 = $var1[5]
$60 = $var1[6]
$70 = $var1[7]
$80 = $var1[8]
$90 = $var1[9]


Sleep (500)


If $10 = 0 Then ShellExecuteWait ( "nix1.au3")
If $10 = 1 Then ShellExecuteWait ( "5min1.au3" )
If $10 = 2 Then ShellExecuteWait ( "istsoll1.au3" )


Sleep (300)


If $20 = 0 Then ShellExecuteWait ( "nix2.au3")
If $20 = 1 Then ShellExecuteWait ( "5min2.au3" )
If $20 = 2 Then ShellExecuteWait ( "istsoll2.au3" )
Sleep (300)
If $30 = 0 Then ShellExecuteWait ( "nix3.au3")
If $30 = 1 Then ShellExecuteWait ( "5min3.au3" )
If $30 = 2 Then ShellExecuteWait ( "istsoll3.au3" )
Sleep (300)
If $40 = 0 Then ShellExecuteWait ( "nix4.au3")
If $40 = 1 Then ShellExecuteWait ( "5min4.au3" )
If $40 = 2 Then ShellExecuteWait ( "istsoll4.au3" )
Sleep (300)
If $50 = 0 Then ShellExecuteWait ( "nix5.au3")
If $50 = 1 Then ShellExecuteWait ( "5min5.au3" )
If $50 = 2 Then ShellExecuteWait ( "istsoll5.au3" )
Sleep (300)
If $60 = 0 Then ShellExecuteWait ( "nix6.au3")
If $60 = 1 Then ShellExecuteWait ( "5min6.au3" )
If $60 = 2 Then ShellExecuteWait ( "istsoll6.au3" )
Sleep (300)
If $70 = 0 Then ShellExecuteWait ( "nix7.au3")
If $70 = 1 Then ShellExecuteWait ( "5min7.au3" )
If $70 = 2 Then ShellExecuteWait ( "istsoll7.au3" )
Sleep (300)
If $80 = 0 Then ShellExecuteWait ( "nix8.au3")
If $80 = 1 Then ShellExecuteWait ( "5min8.au3" )
If $80 = 2 Then ShellExecuteWait ( "istsoll8.au3" )
Sleep (300)
If $90 = 0 Then ShellExecuteWait ( "nix9.au3")
If $90 = 1 Then ShellExecuteWait ( "5min9.au3" )
If $90 = 2 Then ShellExecuteWait ( "istsoll9.au3" )
Sleep (800)

Alles anzeigen

Micha_he

Weil das Array $var1 bei Eingabe eines kürzeren Codes keine 9 Felder hat, du sie aber in den Zeilen 13-21 einer neuen Variable zuweisen willst. Warum auch immer... ???

So vielleicht... (ungetestet)

Spoiler anzeigen

AutoIt

HotKeySet("{ESC}", "Terminate")


Func Terminate()
    Exit
EndFunc






$Input = InputBox("Arbeitspositionen", "Bitte gib den Code für die Arbeitspositionen an", "", "", -1, -1, 0, 0)


$var1 = StringSplit($Input,"")


For $i = 1 To $var[0]
	If $var1[$i] = 0 Then ShellExecuteWait ("nix" & $i & ".au3")
	If $var1[$i] = 1 Then ShellExecuteWait ("5min" & $i & ".au3" )
	If $var1[$i] = 2 Then ShellExecuteWait ("istsoll" & $i & ".au3" )
	Sleep (300)
Next

Alles anzeigen

shakoon

Danke schonmal,

aber glaube das löst nicht meine Aufgabe, das Script soll ja wie folgt funktionieren.

Wenn Zeichen 1 in Code = 1 dann starte 5min1.au3
Wenn Zeichen 2 in Code = 1 dann starte 5min2.au3
Wenn Zeichen 3 in Code = 1 dann starte 5min3.au3
Wenn Zeichen 4 in Code = 0 dann starte nix4.au3
Wenn Zeichen 5 in Code = 2 dann starte istsoll5.au3
Wenn zeichen 6 ist leer dann starte nix6.au3
Wenn zeichen 7 ist leer dann starte nix7.au3
Wenn zeichen 8 ist leer dann starte nix8.au3
Wenn zeichen 9 ist leer dann starte nix9.au3

**BugFix**

Zitat von shakoon

das wenn ich nur 4 Zahlen eingebe, das er mir alle 5 Zahlen danach als 0 wiedergibt?

Ja, das ist recht simpel:

AutoIt

$Input = InputBox('Bla', 'Blub')
; sicherstellen, dass $Input 9 Stellen hat und fehlende Stellen mit 0 belegt werden
$Input = StringLeft($Input & '000000000', 9)

Aber die Array-Variante, wie von Micha_he gezeigt, ist eindeutig zu bevorzugen.
Solltest du auf jeden Fall 9 Schritte abarbeiten wollen, kombiniere beides.

shakoon

Vielen vielen dank für die schnelle Hilfe

Ich lass es aber lieber mal so wie ich es hatte, da blicke ich wenigstens durch

Für die nachwelt hier nochmal das komplette funktionierende Script

AutoIt

HotKeySet("{ESC}", "Terminate")


Func Terminate()
    Exit
EndFunc






$Input = InputBox("Arbeitspositionen", "Bitte gib den Code für die Arbeitspositionen an", "", "", -1, -1, 0, 0)


$Input = StringLeft($Input & '000000000', 9)




$var1 = StringSplit($Input,"")




	If $var1[1] = 0 Then ShellExecuteWait ("nix1.au3")
	If $var1[1] = 1 Then ShellExecuteWait ("5min1.au3" )
	If $var1[1] = 2 Then ShellExecuteWait ("istsoll1.au3" )
	Sleep (300)


	If $var1[2] = 0 Then ShellExecuteWait ("nix2.au3")
	If $var1[2] = 1 Then ShellExecuteWait ("5min2.au3" )
	If $var1[2] = 2 Then ShellExecuteWait ("istsoll2.au3" )
	Sleep (300)


	If $var1[3] = 0 Then ShellExecuteWait ("nix3.au3")
	If $var1[3] = 1 Then ShellExecuteWait ("5min3.au3" )
	If $var1[3] = 2 Then ShellExecuteWait ("istsoll3.au3" )
	Sleep (300)


	If $var1[4] = 0 Then ShellExecuteWait ("nix4.au3")
	If $var1[4] = 1 Then ShellExecuteWait ("5min4.au3" )
	If $var1[4] = 2 Then ShellExecuteWait ("istsoll4.au3" )
	Sleep (300)


   	If $var1[5] = 0 Then ShellExecuteWait ("nix5.au3")
	If $var1[5] = 1 Then ShellExecuteWait ("5min5.au3" )
	If $var1[5] = 2 Then ShellExecuteWait ("istsoll5.au3" )
	Sleep (300)


    If $var1[6] = 0 Then ShellExecuteWait ("nix6.au3")
	If $var1[6] = 1 Then ShellExecuteWait ("5min6.au3" )
	If $var1[6] = 2 Then ShellExecuteWait ("istsoll6.au3" )
	Sleep (300)


    If $var1[7] = 0 Then ShellExecuteWait ("nix7.au3")
	If $var1[7] = 1 Then ShellExecuteWait ("5min7.au3" )
	If $var1[7] = 2 Then ShellExecuteWait ("istsoll7.au3" )
	Sleep (300)


	If $var1[8] = 0 Then ShellExecuteWait ("nix8.au3")
	If $var1[8] = 1 Then ShellExecuteWait ("5min8.au3" )
	If $var1[8] = 2 Then ShellExecuteWait ("istsoll8.au3" )
	Sleep (300)


	If $var1[9] = 0 Then ShellExecuteWait ("nix9.au3")
	If $var1[9] = 1 Then ShellExecuteWait ("5min9.au3" )
	If $var1[9] = 2 Then ShellExecuteWait ("istsoll9.au3" )
	Sleep (300)

Alles anzeigen