Beiträge von shadow667

  • StringReplace keine Änderung

    Der Fehler besteht darin, daß du die File noch zum Lesen geöffnet hast, dann kannst du nix rein schreiben...

    So sollt's gehen:

    [autoit]

    $sSource = FileOpen(@ScriptDir & "\test2.txt", 0)
    ;Msgbox(0,"",$sSource)
    $sSource2 = FileRead($sSource)
    FileClose($sSource)
    $rep = StringReplace($sSource2, "Hier stehen die Zeichen die im Forum leider nicht gezeigt werden", " ")
    $sSource = FileOpen(@ScriptDir & "\test2.txt", 2)
    FileWrite($sSource, $rep)
    FileClose($sSource)

    [/autoit]

    Edit:
    TheLuBu du kannst eine Zeile sparen:

    [autoit]

    _FileCreate(@ScriptDir & "\test3.txt")

    [/autoit]


    Ich zitiere mal die Hilfe unter FileOpen()

    Zitat

    Wird eine Datei im Schreibmodus (write mode) geöffnet, so wird die Datei erstellt, falls sie noch nicht existiert.

    [/Klugscheiss-Modus] :D

  • FileOpen (Datei Probem)

    FileOpen = Gibt das Handle der Datei zurück (öffnet die Datei)
    FileRead = Liest den Inhalt der Datei in die Variable (kann ausgewertet werden)
    FileClose = Schließt die Datei wieder

    Mit dem Inhalt der Variablen, welcher bei FileRead gesetzt wird kannst du danach machen was du möchtest.

  • Wieso funktioniert die ProgressBar nicht?

    Ich vermute den Fehler hier:

    [autoit]

    If $TargetSize = $Sourcegeteilt Then
    ProgressSet( 33, '33 Prozent fertig')
    If $TargetSize = $Sourcehaelfte Then
    ProgressSet( 50, '50 Prozent fertig')

    [/autoit]

    Wenn $TargetSize nicht exakt den Wert von $Sourcehaelfte bzw. $Sourcegeteilt erreicht, wird hier wahrscheinlich nix passieren

  • FileOpen (Datei Probem)

    Du mußt nach dem Öffnen der Datei natürlich noch den Inhalt derselben auslesen:

    [autoit]


    $sFile = FileOpen(@ScriptDir & "\test.txt", 0)
    $sSource = FileRead($sFile)
    FileClose($sFile)

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

    $aLink = StringRegExp($sSource,'(.*?)</a',3) ;(?i)\"\w+\"\shref="((?:http:\/\/).*?)">'
    _ArrayDisplay($aLink, "Array Auswertung")

    [/autoit]

    Edit: Vergesse zu gern das FileClose (Thx an misterspeed)

  • Problem mit dircopy - nach compilieren keine Ausführung mehr

    Zitat von Vamp

    Also wie erwartet lag es daran das der Ordner nicht mehr gefunden worden ist.

    Fullpath o.ä. hat auch nicht geholfen. Habe allerdings festgestellt das sobald es keine Überordner gibt - funktioniert es.

    Weiß da jemand vll was man anpassen muss das es mit Überordner funktioniert?

    Sollte es evtl. daran liegen, daß in Zeile 17 im hier geposteten Script der abschließende Backslash fehlt?

    [autoit]

    dircopy("Profile-Muster\IMMER\Thunderbird\",@MyDocumentsDir&"\Thunderbird\",1)

    [/autoit]

  • Komplette Fileliste eines Ordners samt Unterordnr erstellen

    Eigentlich recht simpel:

    [autoit]


    $File = Fileopen($nummer&".txt",1) ;Die 1 sagt aus, daß neue Einträge an bestehende angehängt werden
    $FolderList = _FileListToArray($directory,"*",2)
    For $I = 1 To $FolderList[0]
    $FileList = _FileListToArray($directory&"\"&$FolderList[$I])
    _FileWriteFromArray($File, $FileList) ;muß in die Schleife, da sich der Inhalt von $FileList nach jedem Durchlauf erneuert
    Next
    FileClose($File)

    [/autoit]

    Keine Garantie, nicht getestet

  • Komplette Fileliste eines Ordners samt Unterordnr erstellen

    Splitte doch einfach das Auslesen auf.
    Lies zuerst die Ordner im Hauptverzeichnis via

    [autoit]

    $FolderList = _FileListToArray("C:\DeinVerzeichnis","*",2)

    [/autoit]


    aus und den Inhalt dieser UnterOrdner liest du dann in ner kurzen Schleife etwa so:

    [autoit]

    For $I = 1 To $FolderList[0]
    $FileList = _FileListToArray($FolderList[$I])
    _ArrayDisplay($FileList)
    Next

    [/autoit]

    Gruß

  • Frage zu StringRegExpReplace

    Zitat von progandy

    Ich denke, dass das funktioniert:

    [autoit]

    $sSource = ClipGet()
    $sNew = StringRegExpReplace($sSource, "([A-Z][-.\d]+|\(.*\))", "$1 ")
    ; RegExp trifft entweder einen Befehl (Buchstabe + Zahl) oder ganze Kommentarklammer
    ; Dadurch wird in Kommentarklammern nichts ersetzt.
    MsgBox(0, "Test", $sNew)

    [/autoit]


    Genau so hat's jetz funktioniert! Ich bedanke mich vielmals bei euch allen!

    Gruß Shadow

  • Frage zu StringRegExpReplace

    Ganz so einfach scheint's dann auch net zu klappen...
    Kommazahlen z.B. 80.3 (wobei im NC-Programm das Komma nen Punkt is) werden auch geteilt dadurch

    So, hier für euch mal zum Testen ein Ausschnitt eines echten NC-Programmes:

    Spoiler anzeigen