#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.2.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; Script Start - Add your code below here
[/autoit][autoit][/autoit][autoit];[includes]
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
$mainWindow = GUICreate("Elemgen v1.0.0 - Tool to read out elements.data for PW, ES and JD (and maybe KF too) - made by KE$$", 800, 600, -1, -1)
;~ $fileWindow = GUICreate("", 800, 600, 0, 0)
$datei = GUICtrlCreateMenu("Datei")
$openFile = GUICtrlCreateMenuItem("Open...", $datei)
$editField = GUICtrlCreateEdit("", 0, 0, 800, 557)
[/autoit][autoit][/autoit][autoit]$StatusBar1 = _GUICtrlStatusBar_Create($mainWindow)
_GUICtrlStatusBar_SetSimple($StatusBar1)
_GUICtrlStatusBar_SetText($StatusBar1, " This is Beta!")
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 20)
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $openFile
$elementsDataFile = FileOpen(@ScriptDir&"\elements.data", 4)
$eleDataFileRead = FileRead($elementsDataFile, FileGetSize(@ScriptDir&"\elements.data"))
$0xWeg = StringTrimLeft($eleDataFileRead, 2)
GUICtrlSetData($editField, $0xWeg)
FileClose($elementsDataFile)
EndSwitch
WEnd
Jo, ich würde jetz gerne noch den String der in der variablen $0xWeg gespeichert ist um ein paar leerzeichen erweitern... genauer gesagt nach jedem 6. zeichen im string
Beispiel:
String: 003100300000524800
soll werden: 003100 300000 524800
der originalstring ist um einiges länger
[autoit]MsgBox(0, "", StringLen($0xWeg))
[/autoit]lieferte 57226352 Zeichen