In meinem Programm soll eigentlich in Zeile 78 geguckt werden ob ich einen Text im Input habe, und daraufhin zurückgeschrieben werden aber das funktioniert einfach nicht. Ich bin jetzt seit ca 4 Stunden an diesem kleinen Problem und mit den Nerven am Ende. Kann mir jemand sagen was ich falsch gemacht habe?
AutoIt
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>
#include <WinAPIFiles.au3>
#include <Misc.au3>
#include <IE.au3>
#include <String.au3>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If Not FileExists("documents\p19data\input\01.txt") Then
DirCreate("documents\p19data")
DirCreate("documents\p19data\input")
_FileCreate("documents\p19data\input\01.txt")
FileOpen("documents\p19data\input\01.txt")
FileWriteLine("documents\p19data\input\01.txt","Hallo;Hi;Hey;")
FileClose("documents\p19data\input\01.txt")
EndIf
$i01plt = FileRead("documents\p19data\output\begruessung.txt")
$i01 = StringSplit($i01plt,";")
;;;
If Not FileExists("documents\p19data\output\01.txt") Then
DirCreate("documents\p19data")
DirCreate("documents\p19data\output")
_FileCreate("documents\p19data\output\01.txt")
FileOpen("documents\p19data\output\01.txt")
FileWriteLine("documents\p19data\output\01.txt","Hallo;Hi;Hey;")
FileClose("documents\p19data\output\01.txt")
EndIf
$o01plt = FileRead("documents\p19data\output\begruessung.txt")
$o01 = StringSplit($o01plt,";")
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HotKeySet("{ENTER}","antwort")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#Region ### START Koda GUI section ### Form=
$formp19 = GUICreate("P19", 480, 270, 694, 228)
$pic = GUICtrlCreatePic("C:\Users\plati\Desktop\viv\wallpaper.jpg", 0, 0, 480, 270)
GUICtrlSetState($pic,$GUI_DISABLE)
$iE = _IECreateEmbedded()
$obj = GUICtrlCreateObj($iE, -5, -5, 1, 1)
_IENavigate($iE, "https://translate.google.com/?hl=de#de/en/")
GUISetFont(14, 400, 0, "MS Sans Serif")
GUISetBkColor(0xFFFFDF)
GUICtrlSetFont(-1, 12, 400, 0, "Segoe UI Semilight")
$input = GUICtrlCreateInput("", 30, 24, 425, 28)
GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI Semilight")
GUICtrlSetBkColor(-1, 0xAEFFFF)
$output = GUICtrlCreateLabel("", 42, 75, 398, 148, $WS_BORDER)
GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI Semilight")
GUICtrlSetBkColor(-1, 0xAEFFFF)
$antwort = GUICtrlCreateButton("Answer", -20, -20, 1, 1)
GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI Semilight")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Case $antwort
Func antwort()
$data = GUICtrlRead($input)
$outputline1 = FileReadLine("documents\P19outputdata.txt",1)
$r2 = Random(1,2,1)
$r3 = Random(1,3,1)
$r4 = Random(1,4,1)
$r5 = Random(1,5,1)
$r6 = Random(1,6,1)
$r7 = Random(1,7,1)
If StringInStr($data,$i01) Then
GUICtrlSetData($output,$o01plt)
ConsoleWrite("hat funktioniert")
EndIf
EndFunc
EndSwitch
WEnd
Alles anzeigen