Suche mit Ausgabe in ein anderen fenster

  • so habe das jetzt mal geändert ,jetzt kommt ein anderer Fehler wenn ich die exe starte (error illegal text at the end of statement (one statement per line))

    Spoiler anzeigen
    [autoit]

    #Region
    #AutoIt3Wrapper_Icon=\favicon.ico
    #EndRegion

    [/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <IE.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt('GUIOnEventMode', 1)
    Opt('GUICloseOnESC', 0)
    Opt("TrayAutoPause", 0)
    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    TraySetIcon(@ScriptDir & "\favicon.ico")

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("txt", 1177, 850, 313, 48)
    $Input1 = GUICtrlCreateInput("", 824, 120, 121, 21)
    $Button1 = GUICtrlCreateButton("Suchen", 952, 120, 75, 25)
    $oIE=_IECreateEmbedded()
    $Obj=GUICtrlCreateObj($oIE,88,80,657,729)
    GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
    GUISetState(@SW_SHOW)
    GUISetIcon(@ScriptDir & "\favicon.ico")
    $FolderIE=StringReplace(@ScriptDir,"\","/")
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    $Menu_File = GUICtrlCreateMenu("Info")
    $Menu_File_Item = GUICtrlCreateMenuItem("About", $Menu_File)
    GUICtrlSetOnEvent(-1, '_About')

    [/autoit] [autoit][/autoit] [autoit]

    TraySetState()
    TraySetToolTip("txt")
    TrayCreateItem("Beenden"),
    TrayItemSetOnEvent(-1, "_Exit")

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $hCtrl = $lParam
    If $nNotifyCode = 1024 Or $nNotifyCode = 786 Then
    If $hCtrl = GUICtrlGetHandle($Input1) Then
    $suchbegriff=GUICtrlRead($Input1)
    if FileExists($suchbegriff) then
    _IENavigate($oIE,"file://localhost/"&$FolderIE&"/"&$suchbegriff&".html")
    endif
    EndIf
    EndIf
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep(10)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Exit

    [/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _About()
    Run("About.exe")
    EndFunc

    [/autoit]

    Edit Oscar: Spoiler hinzugefügt! Bitte bei längeren Quelltexten unbedingt auch den Spoiler-Tag benutzen!

    Einmal editiert, zuletzt von Oscar (24. Februar 2015 um 20:16)

  • 1. Bitte Spoiler um lange Code-Blöcke
    2. Die Zeile der Fehlermeldung ist das wichtigste. Ich hab wenig lust, deinen gesamten Quelltext zu durchsuchen.
    3. Du solltest dir dringendst die Grundlagen durchlesen... Du hast irgendwo mehrere Befehle in eine Zeile geschrieben, bzw eine Zeile (String nicht abgeschlossen, oder ähnliches). Scite zeigt dir aber auch, wo das etwa auftritt. Ein Minimum an eigenarbeit ist dann schon erfordert (Ja... Programmieren erfordert denken und viel Übung (und gutes Lesen in der Dokumentation von AutoIt))

  • so habe nun alles soweit angepasst nun teste ich das und bekomme kein Suchergebnis mehr komisch.


    Hier mal der code

    [autoit]

    #Region
    #AutoIt3Wrapper_Icon=\favicon.ico
    #EndRegion

    [/autoit][autoit][/autoit][autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <IE.au3>

    [/autoit][autoit][/autoit][autoit]

    Opt('GUIOnEventMode', 1)
    Opt('GUICloseOnESC', 0)
    Opt("TrayAutoPause", 0)
    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)

    [/autoit][autoit][/autoit][autoit]

    TraySetIcon(@ScriptDir & "\favicon.ico")

    [/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("txt", 1060, 850, 200, 5)
    $Label1 = GUICtrlCreateLabel("ICAO", 850, 65, 36, 17)
    $Input1 = GUICtrlCreateInput("", 760, 80, 200, 21)
    $Button1 = GUICtrlCreateButton("Suchen", 980, 77, 75, 25)
    $oIE=_IECreateEmbedded()
    $Obj=GUICtrlCreateObj($oIE,88,80,657,729)
    GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
    GUISetState(@SW_SHOW)
    $FolderIE=StringReplace(@ScriptDir,"\","/")
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    GUISetIcon(@ScriptDir & "\favicon.ico")
    GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')

    [/autoit][autoit][/autoit][autoit]

    $Menu_File = GUICtrlCreateMenu("Info")
    $Menu_File_Item = GUICtrlCreateMenuItem("About", $Menu_File)
    GUICtrlSetOnEvent(-1, '_About')

    [/autoit][autoit][/autoit][autoit]

    TraySetState()
    TraySetToolTip("txt")
    TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1, "_Exit")

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $hCtrl = $lParam
    If $nNotifyCode = 1024 Or $nNotifyCode = 786 Then
    If $hCtrl = GUICtrlGetHandle($Input1) Then
    $suchbegriff=GUICtrlRead($Input1)
    if FileExists($suchbegriff) then
    _IENavigate($oIE,"file://localhost/"&$FolderIE&"/"&$suchbegriff&".html")
    endif
    EndIf
    EndIf
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    While Sleep(1000)
    WEnd

    [/autoit][autoit][/autoit][autoit]

    While 1
    Sleep(10)
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Exit

    [/autoit][autoit][/autoit][autoit]

    Func _Exit()
    Exit
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func _About()
    Run("About.exe")
    EndFunc

    [/autoit]
  • Ich glaub, der Thread ist hier falsch... Das ist ja kaum noch Hilfe und Unterstützung, als vielmehr: ich hab keine ahnung: mach mal... :(
    Wenn du versucht hättest den Quelltext zu verstehen, würdest du erkennen, dass in Zeile 57 überprüft wird, ob die Datei existiert... Dabei wird aber nur der suchbegriff verwendet. Dort muss also, ebenso wie in der Zeile darunter ein .html angehängt werden. Denn die Datei test existiert nicht, sondern test.html ...

  • Wenn ich das richtig verstanden habe und ich in den neben Ordner suchen will muss ich das da ändern von

    [autoit]

    $FolderIE=StringReplace(@ScriptDir,"\","/")

    [/autoit]


    auf

    [autoit]

    $FolderIE=StringReplace(@ScriptDir,"\data\")

    [/autoit]