Beiträge von BugFix

  • ich bekomme es einfach nicht hin!!

    Da mußt du zusätzlich zu ID/Event auch das Fensterhandle auswerten:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    $main = GUICreate("Hallo", 300, 200)
    $bild_B = GUICtrlCreateButton("Bild öffnen", 98, 70, 100, 50)
    GUISetBkColor(0xe0c782)

    GUICtrlCreateLabel("made by codemaster", 107, 180)
    GUISetState()

    $child = GUICreate("", 700, 550)
    $back_B = GUICtrlCreateButton("Zurück", 310, 515, 80, 25)

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; Window-Handle
    Case $main
    Switch $msg[0] ; Control-ID, Event
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bild_B
    GUISetState(@SW_SHOW, $child)
    GUISetState(@SW_HIDE, $main)
    EndSwitch
    Case $child
    Select
    Case $msg[0] = $GUI_EVENT_CLOSE Or _
    $msg[0] = $back_B
    GUISetState(@SW_HIDE, $child)
    GUISetState(@SW_SHOW, $main)
    EndSelect
    EndSwitch
    WEnd

    [/autoit]

  • Wer hat Lust zu helfen?

    Zitat

    Da ich ja gerade (14.10.07 - 00.10) das Proggen mit Autoit aufgegeben habe,


    OK, habe ich kein Verständnis für - so reagieren eigentlich Kinder, wenn sie gnatzen.
    Aber damit halte ich das Thema auch für gegessen.

    [BugFix: CLOSED]

  • Scrollbarer Label?

    Zitat

    edit: Die Zeichen kann ich net kopieren, denn diese ergeben sofort eine Neue Zeile, weil ich denke,dass sie dann entshclüsselt werden oder so was in der art..


    Darum solltest du mal im HEX-Editor das anschauen.
    Vermutlich findest du dort: "0d 0a" oder dezimal: "13 10"
    Und das sind die Zeichen für @CRLF, also Zeilenumbruch.

    Du schreibst, dass sie sofort eine neue Zeile ergeben: Aber das ist es doch, was du wolltest - oder?

  • txt bearbeitung??

    Ich hoffe, dass die Lösung dem entspricht was du möchtest:
    - FileOpenDialog zum Aussuchen der zu bearbeitenden Datei
    - Einlesen Datei in Array
    - Inputbox für Ersetzung
    - in Schleife Ersetzen mit Eingabe
    - Inputbox für Ausgabedateiname
    - Zurückschreiben in Ausgabedatei

    (Wenn du so formulierst, was du möchtest, ist das viel einfacher ;) )

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    Dim $inFile = FileOpenDialog('Datei zum Bearbeiten wählen', @ScriptDir, 'Webdateien (*.htm;*.html)', 3)
    Dim $outFile
    Dim $aArray
    $ret = _FileReadToArray ( $inFile, $aArray ) ; datei in Array lesen
    If @error Then
    MsgBox(0, '', 'Datei konnte nicht eingelesen werden.')
    Exit
    EndIf

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

    $Eingabe = InputBox('Ersetzen', 'Bitte eingeben:')

    For $i = 1 To $aArray[0] ; zeilenweise durchgehen
    $aArray[$i] = StringReplace($aArray[$i], 'XX', $Eingabe) ; der String wird ersetzt durch den String mit der Eingabe
    Next

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

    $outFile = InputBox('Datei speichern', 'Bitte Dateinamen für Ausgabe festlegen.')
    _FileWriteFromArray(@ScriptDir & '\' & $outFile, $aArray, 1) ; vom Array in Ausgabedatei schreiben

    [/autoit]

  • Scrollbarer Label?

    $WrongNewsBody = Stringreplace($ServerBody,"{ENTER}",@CRLF)

    Das geht so nicht. Du mußt den exakten String aus dem Original hier eintragen (und da steht bestimmt nicht {ENTER}).
    Evtl. mit ASCII-Code arbeiten. Und auf jeden Fall CaseSensitiv aktivieren!

  • txt bearbeitung??

    Aus deiner Beschreibung habe ich entnommen, dass du zeilenweise abarbeiten möchtest. Deshalb dieser Aufbau.
    Vielleicht kannst du ja mal ganz klar und verständlich sagen, was genau ablaufen soll.
    Und zwar Schritt für Schritt.
    Momentan werd ich nicht ganz schlau draus.

  • txt bearbeitung??

    Das heißt, es ist kein Array da - also konnte die datei nicht eingelesen werden.
    Falscher Pfad oder was auch immer. Rückgabewert der Funktion prüfen.

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    Dim $sFilePath = 'Pfad....'
    Dim $outFile = 'Pfad...'
    Dim $aArray
    $ret = _FileReadToArray ( $sFilePath, $aArray ) ; datei in Array lesen
    If @error Then
    MsgBox(0, '', 'Datei konnte nicht eingelesen werden.')
    Exit
    EndIf

    For $i = 1 To $aArray[0] ; zeilenweise durchgehen
    $Eingabe = InputBox ( "title", "Prompt" ) ; hier kannst du auch die Zeile ($aArray[$i]) mit ausgeben als 'title'
    $aArray[$i] = StringReplace($aArray[$i], 'XX', $Eingabe) ; der String wird ersetzt durch den String mit der Eingabe
    Next

    If FileExists($outFile) Then FileDelete($outFile) ; falls Ausgabedatei bereits vorhanden - löschen
    _FileWriteFromArray($outFile, $aArray, 1) ; vom Array in Ausgabedatei schreiben

    [/autoit]

  • Wer hat Lust zu helfen?

    Bei solch sensiblen Themen reagieren wir auch entsprechend vorsichtig.
    Umso deutlicher wird, dass eine offene Darlegung aller Fakten von Vornherein hilft, Mißverständnisse zu vermeiden.

    Aber es bleibt wohl trotzdem dabei, dass niemand dies programmiert, weil dir die Zeit fehlt. Das geht am Sinn des Forums vorbei.

  • Wer hat Lust zu helfen?

    Zitat

    Nach meinen Erfahrungen, dürfte das nicht all zu schwer sein, ich würde es selber machen, wenn ich genügend zeit dafür hätte!

    Das trifft doch den Nagel auf den Kopf.
    Es ist weder besonders schwer NOCH zeitintensiv. Ich schätze mal, inkl. Fehlerroutinen zwischen 600 und 800 Codezeilen.

    Erzähl mir nicht, dass du diese Zeit nicht aufbringen kannst. Denn es geht ja nur um reine Schreibarbeit, da du, wie du sagst, fit bist im proggen.

    Also wird sich hier wohl niemand dafür finden.

  • txt bearbeitung??

    [autoit]

    #include <File.au3>
    Dim $sFilePath = 'Pfad....'
    Dim $outFile = 'Pfad...'
    Dim $aArray
    _FileReadToArray ( $sFilePath, $aArray ) ; datei in Array lesen

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

    For $i = 1 To $aArray[0] ; zeilenweise durchgehen
    $Eingabe = InputBox ( "title", "Prompt" ) ; hier kannst du auch die Zeile ($aArray[$i]) mit ausgeben als 'title'
    $aArray[$i] = StringReplace($aArray[$i], 'XX', $Eingabe) ; der String wird ersetzt durch den String mit der Eingabe
    Next

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

    If FileExists($outFile) Then FileDelete($outFile) ; falls Ausgabedatei bereits vorhanden - löschen
    _FileWriteFromArray($outFile, $aArray, 1) ; vom Array in Ausgabedatei schreiben

    [/autoit]

  • dateien Lesen!

    Hier, ich hab mal deine Ausleseroutine mit eingebunden.
    Check mal obs so läuft.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #Include <GuiList.au3>
    Opt("GUIOnEventMode", 1)
    Opt("MouseCoordMode", 0)
    Global $start
    Global $n = 0
    Global $MousePos = True
    Global $pos
    Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 395, 447, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRIMARYdown')
    GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup')
    $List1 = GUICtrlCreateList("", 20, 20, 355, 407, BitOR($WS_BORDER, $WS_VSCROLL))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    _FillList()

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

    While 1
    Sleep(100)
    WEnd

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

    Func Form1Close()
    Exit
    EndFunc

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

    Func _FillList()
    Local $search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
    If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
    EndIf
    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    _GUICtrlListAddItem ( $List1, $file )
    WEnd
    EndFunc

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

    Func _List_1_DblClick()
    Local $txt = _GUICtrlListGetSelItemsText ( $List1 )
    If IsArray($txt) Then ShellExecute( $txt[1] )
    EndFunc

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

    Func _PRIMARYdown()
    $pos = MouseGetPos()
    Select
    Case _CheckCtrlDblClick($Form1, $List1)
    _List_1_DblClick()
    Case Else
    $MousePos = False
    EndSelect
    EndFunc

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

    Func _PRIMARYup()
    If $MousePos Then
    If $n = 2 Then
    $n = 0
    Else
    $start = TimerInit()
    EndIf
    EndIf
    EndFunc

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

    Func _CheckCtrlDblClick($GUI, $CTRL)
    Local $CtrlPos = ControlGetPos($GUI, '', $CTRL)
    If ($pos[0] >= $CtrlPos[0] And $pos[0] <= $CtrlPos[0] + $CtrlPos[2]) And _
    ($pos[1] >= $CtrlPos[1] +20 And $pos[1] <= $CtrlPos[1] +20 + $CtrlPos[3]) Then
    $n += 1
    $MousePos = True
    If $n = 2 And (TimerDiff($start) < $clickspeed) Then
    Return True
    Else
    $start = TimerInit()
    $n = 1
    EndIf
    EndIf
    EndFunc

    [/autoit]

  • dateien Lesen!

    Guckst du :D

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #Include <GuiList.au3>
    Opt("GUIOnEventMode", 1)
    Opt("MouseCoordMode", 0) ; Maus-Koordinaten relativ zum Fenster
    Global $start
    Global $n = 0
    Global $MousePos = True
    Global $pos
    Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 467, 260, 193, 115)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRIMARYdown')
    GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup')
    $List1 = GUICtrlCreateList("", 25, 18, 290, 175, BitOR($WS_BORDER, $WS_VSCROLL))
    $Input1 = GUICtrlCreateInput("", 25, 214, 290, 21)
    $MyButton1 = GUICtrlCreateButton("Liste füllen", 340, 34, 100, 30, 0)
    GUICtrlSetOnEvent(-1, '_FillList')
    $MyButton2 = GUICtrlCreateButton("Liste leeren", 344, 148, 100, 30, 0)
    GUICtrlSetOnEvent(-1, '_ClearList')
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    Sleep(100)
    WEnd

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

    Func Form1Close()
    Exit
    EndFunc

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

    Func _FillList()
    For $i = 1 To 20
    _GUICtrlListAddItem ( $List1, "Eintrag Nummer: " & $i )
    Next
    EndFunc

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

    Func _ClearList()
    _GUICtrlListClear ( $List1 )
    EndFunc

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

    Func _List_1_DblClick()
    Local $txt = _GUICtrlListGetSelItemsText ( $List1 )
    If IsArray($txt) Then GUICtrlSetData( $Input1, $txt[1] )
    EndFunc

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

    Func _PRIMARYdown()
    $pos = MouseGetPos()
    Select
    Case _CheckCtrlDblClick($Form1, $List1)
    _List_1_DblClick()
    Case Else
    $MousePos = False
    EndSelect
    EndFunc

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

    Func _PRIMARYup()
    If $MousePos Then
    If $n = 2 Then
    $n = 0
    Else
    $start = TimerInit()
    EndIf
    EndIf
    EndFunc

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

    Func _CheckCtrlDblClick($GUI, $CTRL)
    Local $CtrlPos = ControlGetPos($GUI, '', $CTRL)
    If ($pos[0] >= $CtrlPos[0] And $pos[0] <= $CtrlPos[0] + $CtrlPos[2]) And _
    ($pos[1] >= $CtrlPos[1] +20 And $pos[1] <= $CtrlPos[1] +20 + $CtrlPos[3]) Then
    $n += 1
    $MousePos = True
    If $n = 2 And (TimerDiff($start) < $clickspeed) Then
    Return True
    Else
    $start = TimerInit()
    $n = 1
    EndIf
    EndIf
    EndFunc

    [/autoit]


    Dran denken: Verwende OnEvent-Mode

  • dateien Lesen!

    Denk doch mal etwas nach ;)
    Du mußt einen Eintrag markieren, dann auslesen und erst dann kannst du die Datei ausführen.
    Zwei Möglichkeiten:
    - Auswahl per Doppelklick oder
    - Eintrag markieren und per Kontextmenü auslesen

    Für Doppelklick habe ich im Skriptforum ein Bsp. stehen, wie du Doppelklick auf jedes Control anwenden kannst.

  • dateien Lesen!

    Du mußt erst die Liste in der GUI erstellen, dann die Daten suchen und dann die Liste befüllen.
    Ich habs mal vorbereitet.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #Include <GuiList.au3>
    Dim $arFile[1]

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

    $Form1 = GUICreate("AForm1", 395, 447, 694, 280)
    $Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)
    $liste = GUICtrlCreateList('', 0, 24, 393, 409)

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

    $search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
    If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
    EndIf
    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    ReDim $arFile[UBound($arFile)+1]
    $arFile[UBound($arFile)-1] = $file
    WEnd
    For $i = 1 To UBound($arFile) -1
    _GUICtrlListAddItem ( $liste, $arFile[$i] )
    Next

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


    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Exit
    EndSwitch
    WEnd

    [/autoit]