Case ersten Buchstabe?

xShizoidx · 08/27/2011, 19:55

Hallo,

ich möchte, dass er sozusagen etwas bestimmtes

ausführt, wenn z.B. der erste Buchstabe a ist. Wenn der 2 te Buchstabe a ist, dann soll er wieder etwas Anderes ausführen.

Irgendwie muss es möglich sein. Ich habe mir lange genug anhören müssen, dass etwas nicht geht aber ich habe immer Wege gefunden, also wird es dafür auch ein Weg geben.

buFFy! · 08/27/2011, 20:37

nur für das 'a' / eine bestimmte zeichenkette

Code:

$String = "abcdefgehjlmnopqrstuv"

Switch StringInStr($String, "a")
	Case 1
		MsgBox("", "", "Pos1")
	Case 2
		MsgBox("", "", "Pos2")
	Case Else
		MsgBox("", "", "Nicht gefunden")
EndSwitch

und für alle buchstaben (klein)

Code:

$String = "abcdefgehjlmnopqrstuv"

For $Letter = 0x61 To 0x7A
	Switch StringInStr($String, Chr($Letter))
		Case 1
			MsgBox("", "", "Pos1")
		Case 2
			MsgBox("", "", "Pos2")
		Case Else
			MsgBox("", "", "Nicht gefunden")
	EndSwitch
Next

und für alle buchstaben (groß)

Code:

$String = "abcdefgehjlmnopqrstuv"

For $Letter = 0x41 To 0x5A
	Switch StringInStr($String, Chr($Letter))
		Case 1
			MsgBox("", "", "Pos1")
		Case 2
			MsgBox("", "", "Pos2")
		Case Else
			MsgBox("", "", "Nicht gefunden")
	EndSwitch
Next

und komplett für alle

Code:

$String = "abcdefgehjlmnopqrstuv"

For $Letter = 0x41 To 0x7A
	Switch StringInStr($String, Chr($Letter))
		Case 1
			MsgBox("", "", "Pos1")
		Case 2
			MsgBox("", "", "Pos2")
		Case Else
			MsgBox("", "", "Nicht gefunden")
	EndSwitch
	If $Letter = 0x5A Then $Letter = 0x61
Next