@alpines Ich verstehe nicht ganz wie ich den Return mit @CRLD splitten kann
Beiträge von Peter Sativa
-
-
@alpines Ich habe jetzt dashier daraus gemacht aber es funktioniert immernoch nicht
AutoIt
Alles anzeigen$data = GUICtrlRead($input) $aData = FileRead("documents\p19data\input\data.txt") For $i = 0 To UBound($aData) - 1 If StringInStr($data, $aData[$i]) Then $zeile = FileReadLine("documents\p19data\input\data.txt",$i) GUICtrlSetData($output,$zeile) Else FileOpen("documents\p19data\input\data.txt") FileOpen("documents\p19data\input\data.txt") FileWriteLine("documents\p19data\input\data.txt","") FileClose("documents\p19data\input\data.txt") Do sleep(100) Until _IsPressed("0D") FileOpen("documents\p19data\output\data.txt") FileWriteLine("documents\p19data\output\data.txt","") FileClose("documents\p19data\output\data.txt") GUICtrlSetData($output,"Okay, danke") EndIf Next -
@alpines Jetzt habe ich nur noch ein kleines Problem: Wie weiß das Programm in WELCHE ZEILE der Substring gefunden wurde?
-
-
Ich will es in meinem Programm so machen, dass der Input als Textdatei gespeichert wird und der Benutzer alle Texte danach als Ouput bekommen kann. Das entscheidende liegt bei Zeile 52-64.
AutoIt
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <File.au3> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; If Not DirGetSize("documents\p19data") Then DirCreate("documents\p19data") DirCreate("documents\p19data\input") DirCreate("documents\p19data") DirCreate("documents\p19data\output") EndIf If Not FileExists("documents\p19data\input\data.txt") Then _FileCreate("documents\p19data\input\data.txt") FileOpen("documents\p19data\input\data.txt") FileWriteLine("documents\p19data\input\data.txt","") FileClose("documents\p19data\input\data.txt") EndIf If Not FileExists("documents\p19data\output\data.txt") Then _FileCreate("documents\p19data\output\data.txt") FileOpen("documents\p19data\output\data.txt") FileWriteLine("documents\p19data\output\data.txt","") FileClose("documents\p19data\output\data.txt") EndIf ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HotKeySet("{F5}","antwort") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $formp19 = GUICreate("P19", 480, 270, 694, 228) $input = GUICtrlCreateInput("", 30, 24, 425, 28) GUICtrlSetBkColor(-1, 0xAEFFFF) GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI Semilight") $output = GUICtrlCreateLabel("", 42, 75, 398, 148, $WS_BORDER) GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI Semilight") GUICtrlSetBkColor(-1, 0xAEFFFF) GUISetState(@SW_SHOW) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd Func antwort() $data = GUICtrlRead($input) $r2 = Random(1,2,1) $icount = _FileCountLines("documents\p19data\input\data.txt") $ocount = _FileCountLines("documents\p19data\output\data.txt") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $wait= If StringInStr($data,$idata[1<99]) Then EndIf For $icount = 1 To $wait [Step 1] next GUICtrlSetData($output,$odata[]) EndIf ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; If Not StringInStr($data,$idata[1<99999]) Then FileOpen("documents\p19data\input\data.txt") FileOpen("documents\p19data\input\data.txt") FileWriteLine("documents\p19data\input\data.txt","") FileClose("documents\p19data\input\data.txt") Do sleep(100) Until _IsPressed("0D") FileOpen("documents\p19data\output\data.txt") FileWriteLine("documents\p19data\output\data.txt","") FileClose("documents\p19data\output\data.txt") GUICtrlSetData($output,"Okay, danke") EndIf