Moin MOin am Mittwochmorgen.
a) Textlänge
Ich möchte das bei betätigen des Buttons 1 geprüft wird ob die Textlänge von $Input1 ohne Rest durch 4 teilbar ist. Wenn nicht, soll mit " " (leer) aufgefüllt werden.
b) 4 Arrays
Wie man ab Zeile 21 sieht, versuche ich immer 4 Werte aus dem Array zu ziehen. Das würde so auch passen und ich könnte es so weiter machen. Jedoch ist die Länge vom Klartext in der Gesamtlänge nicht eingeschränkt und bei z. B. 240 Buchstaben oder mehr, würde das Script viel zu lang werden.
Sagt mir einer, wie es einfacher/sinnvoller ist? Ich kenne Euch und Ihr habt da bestimmt andere Gedankenlösungen wie ich.
C
#include <GUIConstantsEx.au3>
#include <Array.au3>
GUICreate("", 240, 85, 190, 125)
$Input1 = GUICtrlCreateInput("Klarer Text.", 5, 5, 225, 20) ; Stringlänge muss immer durch 4 teilbarsein ohne Rest
$Input2 = GUICtrlCreateInput("Zahlen", 5, 30, 225, 20)
$Button1 = GUICtrlCreateButton("Text2 Zahlen", 5, 55, 225, 20)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$s_String = GUICtrlRead($Input1)
GUICtrlSetData($Input2, _ArrayToString(StringToASCIIArray($s_String), '|'))
Local $aArray_1 = StringSplit(GUICtrlRead($Input2), '|')
For $i = 1 To 4 ;$aArray_1[0]
MsgBox(0, "", "1-4 $aArray_1[" & $i & "] - " & $aArray_1[$i] & " Später mit arbeiten und Resultat in Datei-X speichern.")
Next
For $i = 5 To 8 ;$aArray_1[0]
MsgBox(0, "", "5-8 $aArray_1[" & $i & "] - " & $aArray_1[$i] & " Später mit arbeiten und Resultat an Datei-X anhängen.")
Next
For $i = 9 To 12 ;$aArray_1[0]
MsgBox(0, "", "9-12 $aArray_1[" & $i & "] - " & $aArray_1[$i] & " Später mit arbeiten und Resultat an Datei-X anhängen.")
Next
For $i = 13 To 16 ;$aArray_1[0]
MsgBox(0, "", "13-16 $aArray_1[" & $i & "] - " & $aArray_1[$i] & " Später mit arbeiten und Resultat an Datei-X anhängen.")
Next
For $i = 17 To 20 ;$aArray_1[0]
MsgBox(0, "", "17-20 $aArray_1[" & $i & "] - " & $aArray_1[$i] & " Später mit arbeiten und Resultat an Datei-X anhängen.")
Next
EndSwitch
WEnd
Alles anzeigen