Beiträge von Alina

  • WinSetTransPer Funktion

    Hallo.

    Wieso Zeile 10 nicht so:

    Spoiler anzeigen

    $Transparency = $Transparency*2.55


    100/100*255 = 100*2.55 = 255
    50/100*255 = 50*2.55 = 127.55
    29/100*255 = 29*2.55 = 73.95

    In der Kürze, liegt die Würze.
    :D?(:D

    LG, Crazy-A.

  • Verwaltung Hardlinks

    Hallo BugFix.

    Hardlinks ?( <---- So darfst Du dir vorstellen, habe ich ausgesehen, als ich das Wort "Hardlinks" gelesen habe.
    Dachte ich doch "Da hat sich der Bug aber mal fix vertan", aber so ist es ja gar nicht gewesen.

    Aber wirklich, das die Teile diesen Namen haben, wußte ich gar nicht. Da gibt es dann ja dieses "Wiki-Sowieso" und da habe ich mich dann mal schlau gemacht.

    Danke, da habe ich doch wieder einmal etwas gelernt. Ich nehme es in meinen Wortschatz der Rubrik "Wörter die die Welt nicht kennt" auf ;)

    LG, Crazy-A.

  • Vorschlag für "AutoIt Downloads"

    Hallo.
    Damit habe ich nicht gerechnet, das so viele User ihre Stimme abgeben ;)

    Freut mich aber, das admin es nun links als festen Bestandteil im Forum veröffentlicht. Ist aber auch ein sehr hilfreiches Tool.

    Dank an den Entwickler nochmals von mir.

    GLG, Crazy-A(lina).

  • Bevor / After

    Hallo.

    Ich habe eine Textdatei (Bsp.: muster.txt)

    Diese möchte ich nun wie folgt ändern.

    bevor / vorher:
    d:\autoit\muster\test1.au3
    d:\autoit\beispiel\test2.dat
    d:\muster\muster\test3.txt
    d:\meine\muster\test4.bsp

    after / hinterher:
    vortext("  d:\autoit\muster\test1.au3" , "@scriptdir & "autoit\muster\test1.au3")
    vortext(" d:\autoit\beispiel\test2.dat" , "(@scriptdir & "autoit\beispiel\test2.dat")
    vortext(" d:\muster\muster\test3.txt" , "(@scriptdir & "muster\muster\test3.txt")
    vortext(" d:\meine\muster\test4.bsp" , "(@scriptdir & "meine\muster\test4.bsp")

    Der Text davor und dahinter bleiben immer gleich !!!

    Da es mehr als nur eine Hand voll Dateien sind, wo etwas davor und danach hinzugefügt werden soll, würde ich dieses gerne automatisch machen lassen.

    Dazu kommt, das wenn ich dieses Problem gelöst bekomme, ich auch andere Probleme damit lösen kann.

    Ich weiß, das es irgendwie mit String gehen sollte, aber bis jetzt erfolglos den Nachmittags und Abend damit verbracht.

    Ich bin für jede Hilfe dankbar.

    Crazy-A

  • Rekursive Datei/Ordner Auflistung per Objekt

    1 Fehler gefunden.
    Dieses passiert nur, wenn man das Script von der Root aus startet, da es da wohl kein '..' mnöglich ist, oder?

    1.) mit dir *.* /s >dosdir.txt kommt dieses raus, also auch das aktuelles Verzeichnis:

    Spoiler anzeigen
    [autoit]


    26.06.2008 17:02 0 dosdir.txt
    26.06.2008 17:00 2.555 test.txt
    26.06.2008 16:21 2.173 _GetFilesFolder_Rekursiv.au3
    26.06.2008 17:00 2.826 _GetFilesFolder_Rekursiv_BSP.au3

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

    Verzeichnis von E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003

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

    26.06.2008 14:50 534.519 De10.exe
    26.06.2008 14:56 265.285 De11.exe
    25.05.2008 02:21 65 De12.ini
    26.06.2008 14:55 0 De13.txt
    26.06.2008 14:57 0 De14.txt
    26.06.2008 15:00 2.723 De15.au3
    25.04.2008 14:37 10.752 De16.db
    26.06.2008 15:06 2.722 De17.au3
    26.06.2008 15:14 5.918 De18.au3
    26.06.2008 15:23 7.063 De19.au3
    26.06.2008 15:11 368.660 De20.zip
    26.06.2008 15:50 774 De21.txt
    26.06.2008 15:51 387 De22.txt
    26.06.2008 16:11 1.093 De23.txt
    26.06.2008 16:16 0 De24.txt
    26.06.2008 16:16 1.242 De25.txt
    26.06.2008 16:22 2.596 De26.txt
    26.06.2008 16:22 1.374 De27.txt
    26.06.2008 16:24 1.440 De28.txt
    26.06.2008 16:22 268.899 De29.exe
    26.06.2008 16:15 2.858 De30.au3
    26.06.2008 16:21 2.173 De31.au3
    26.06.2008 16:25 3.010 De32.au3
    26.06.2008 16:25 1.638 De33.txt
    26.06.2008 16:30 1.936 De34.txt
    26.06.2008 16:35 265.369 De35.exe
    26.06.2008 16:36 582 De36.txt
    26.06.2008 16:35 265.369 De37.exe
    26.06.2008 16:55 582 De38.txt
    26.06.2008 16:56 1.182 De39.txt
    26.06.2008 16:57 591 De40.txt
    26.06.2008 16:58 691 De41.txt
    26.06.2008 16:59 3.155 De42.txt
    26.06.2008 16:59 2.530 De43.txt
    26.06.2008 17:01 2.347 De44.txt
    26.06.2008 14:57 4.820 De7
    26.06.2008 14:56 2.572 De8.au3
    26.06.2008 14:56 2.724 De9.au3

    [/autoit]

    2.) Mit dem von Bugfix fehlt das aktuelle Verzeichnis:

    Spoiler anzeigen
    [autoit]


    E:\RECYCLER
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De10.exe
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De11.exe
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De12.ini
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De13.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De14.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De15.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De16.db
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De17.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De18.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De19.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De20.zip
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De21.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De22.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De23.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De24.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De25.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De26.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De27.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De28.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De29.exe
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De30.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De31.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De32.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De33.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De34.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De35.exe
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De36.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De37.exe
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De38.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De39.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De40.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De41.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De42.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De43.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De44.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De45.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De46.txt
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De7
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De8.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\De9.au3
    E:\RECYCLER\S-1-5-21-448539723-261903793-839522115-1003\INFO2
    E:\System Volume Information

    [/autoit]


    Wieso der Unterschied ???

    Script sieht derzeitig so aus:

    Spoiler anzeigen
    [autoit]


    #include<Array.au3>
    $ret = _GetFilesFolder_Rekursiv('.', -1,-1,1)
    If IsArray($ret) Then
    _ArrayDisplay($ret, 'Rekursiv alle au3-Dateien')
    Else
    ;ConsoleWrite($ret & @CRLF)

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

    ; Ergebnis in Datei mit dem Namen test.txt schreiben
    $file = FileOpen("test.txt", 1)

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

    ; Check if file opened for writing OK
    If $file = -1 Then
    MsgBox(0, "Error", "Fehler.")
    Exit
    EndIf
    FileWrite($file, $ret)
    FileClose($file)

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

    EndIf

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

    ;==================================================================================================
    ; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0]]])
    ; Description: Rekursive Auflistung von Dateien und/oder Ordnern
    ; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
    ; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
    ; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
    ; optional: $iRetType 0 gibt Array, 1 gibt String zurück (Einträge @LF-getrennt)
    ; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
    ; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
    ; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
    ;==================================================================================================
    Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0)
    Global $oFSO = ObjCreate('Scripting.FileSystemObject')
    Global $strFF_Ret = '', $strFiles = ''
    If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
    If $sExt = -1 Then $sExt = '*'
    If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
    _ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir)
    If $iRetType = 0 Then
    Local $aOut
    $aOut = StringSplit(StringTrimRight($strFF_Ret,1), @LF)
    If $aOut[1] = '' Then
    ReDim $aOut[1]
    $aOut[0] = 0
    EndIf
    Return $aOut
    Else
    Return StringTrimRight($strFF_Ret,1)
    EndIf
    EndFunc

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

    Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1)
    For $Subfolder in $Folder.SubFolders
    If ($Dir = -1) Or ($Dir = 1) Then $strFF_Ret &= $Subfolder.Path & @LF
    If ($Dir = -1) Or ($Dir = 0) Then
    $files = $Subfolder.Files
    For $file In $files
    If $Ext <> '*' Then
    If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
    $strFiles &= $file.Path & @LF
    Else
    $strFiles &= $file.Path & @LF
    EndIf
    Next
    EndIf
    $strFF_Ret &= $strFiles
    $strFiles = ''
    _ShowSubFolders($Subfolder, $Ext, $Dir)
    Next
    EndFunc

    [/autoit]

    Kann man das aktuelle Verzeichnis, da wo das Script sich befindet mit auflisten?
    Mach ich in Zeile 2 stat einem Punkt zwei Punkte, nimmt er alles ab dem übergeordneten Ordner, aber leider nicht den aktuellen Ordner.
    Wenn es nicht möglich ist, wäre das nicht schlimm, denn dann kommt einfach alles in einen Ordner den ich anlege und dann führe ich das Script aus. Ist eine Anregung, okay?

    Vielen Dank für die Hilfe !!!

    LG, Crazy-A.

  • Rekursive Datei/Ordner Auflistung per Objekt

    Hallo BugFix.

    Ich dachte immer, was man Warnungen beachten muss. Aber wenn Du sagst: INGOR. Okay, dann ignoriere ich es.

    Naja, das schreiben in die Datei kappppppt super. Muss nur @LF durch @CRLF ersetzen, da sonst die Bearbeitung nicht geht und er alles in eine Zeile schreibt. Aber das ist wohl eine Sache von Windows.

    Nun sollte ich die anderen Sachen (Text vor jede Zeile der Textdatei schreiben und Text hinter jede Zeiler der Textdatei schreiben) auch irgendwie hin bekommen. Ist ja jedes mal der gleiche Text der davor kommt und dahinter. Siehst Du ja am Beispiel das ich oben geschrieben habe. Mal das Script schreiben und dann aufrufen lassen.

    Danke nochmals !!!

    LG, Lina.

  • Rekursive Datei/Ordner Auflistung per Objekt

    Okay ?(:?:?(

    Ich glaube wir sind der Lsg. sehr nahe, oder?

    Zu 1)
    Was muss ich machen, damit ich die nicht ignoriere?

    zu 2)
    Wie erfolgt die Ausgabe denn in die test.txt?
    SO ?

    Spoiler anzeigen
    [autoit]


    $file = FileOpen("test.txt", 1)

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

    ; Check if file opened for writing OK
    If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
    EndIf

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

    FileWrite($file, $ret)
    FileClose($file)

    [/autoit]


    LG, Lina.

  • Rekursive Datei/Ordner Auflistung per Objekt

    Hallo BugFix.

    Erst einmal: DANKE und KnuBu.

    Bekomme folgende Fehlermeldung:
    E:\test.au3(45,78) : WARNING: $strFF_Ret possibly not declared/created yet
    If ($Dir = -1) Or ($Dir = 1) Then $strFF_Ret &= $Subfolder.Path & @LF
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    E:\test.au3(51,54) : WARNING: $strFiles possibly not declared/created yet
    $strFiles &= $file.Path & @LF
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    E:\test.au3 - 0 error(s), 2 warning(s)


    LG, Lina.

  • Rekursive Datei/Ordner Auflistung per Objekt

    Hallo BugFix.

    Cool !!!

    Ich würde gerne das, was unter der Spalte Col0 steht und da auch nur ab dem Array [1] die Daten gerne in eine Textdatei schreiben.
    Sinn ist, das ich so ein dir *.*/s machen kann ohne Datum usw. und das ich dann noch was davor mittels Replace einfügen könnte bzw. dahinter. Das habe ich früher beim Batching auch so gemacht, nur bekomme ich eine solche Liste nicht mit AutoIt hin, aber das obere Script ist doch schon mal der Weg dahin.

    Später soll das so aussehen:
    eingelesen:
    d:\autoit\muster\test1.au3
    d:\autoit\muster\test2.au3
    d:\autoit\muster\test3.au3
    d:\autoit\muster\test4.au3

    bearbeitet: (grün dazu durch z. B. replace)
    move d:\autoit\muster\test1.au3 e:\autoitneu\muster\test1.au3
    move d:\autoit\muster\test2.au3 e:\autoitneu\muster\test2.au3
    move d:\autoit\muster\test3.au3 e:\autoitneu\muster\test3.au3
    move d:\autoit\muster\test4.au3 e:\autoitneu\muster\test4.au3

    LG, Crazy-A.

  • Sleep

    Habe folgendes gerade getestet und es funktioniert einwandfrei:

    Spoiler anzeigen
    [autoit]


    AutoItSetOption("WinTitleMatchMode", 2);
    While 1
    Send("Das ist ein Beispieltext" & "{ENTER}" & "{Enter}")
    Sleep(5000)
    Send("Das ist ein zweiter Beispieltext" & "{ENTER}")
    MsgBox(0,"Test","Test")
    Exit
    WEnd

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

    Habe einen weiteres ENTER und eine MSgBox nur aus Testzwecken eingebaut.

    Gruß, Crazy-A.

  • Script paused(Tray ICON), wie geht es wieder zu aktivieren

    Hallo Leupy & Schnuffel.

    Die Schleife muss aber so aussehen, damit das Exit auch geht, wenn man auf VERLASSEN klickt:

    Spoiler anzeigen
    [autoit]


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $GO_IP
    TCPStartup()
    MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
    Case $Copyright

    Case $Verlassen
    Exit
    EndSwitch

    if _IsPressed("0D") Then
    TCPStartup()
    MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))

    if _IsPressed("$GO_IP") Then
    TCPStartup()
    MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
    EndIf
    EndIf

    ContinueLoop(1)
    WEnd

    [/autoit]

    Gruß, Crazy-A.