Beiträge von RR04

  • FileOpen ?

    Hi Bugfix,

    bis jetzt habe ich es so und bekomme eine leere Msgbox mit Namen letzter Eintrag :?:?(

    Spoiler anzeigen
    [autoit]


    #include <file.au3>

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

    Dim $aFile

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

    $file = "Ritzelrocker04.log"
    $ret = _FileReadToArray($file, $aFile)
    If $ret = 0 Then Exit MsgBox(0, '', 'Fehler')
    MsgBox(0, 'letzter Eintrag', $aFile[$aFile[0]])

    [/autoit]


    Danke

    Man liest sich...
    Euer Ritzelrocker04

  • FileOpen ?

    Hi,

    in meiner erstellten Textdatei „Ritzelrocker04.log“ wird alles schön nach Lehrbuch dokumentiert, sogar gemachte Einstellungen werden erfasst (wenn vorher richtig implementiert). :thumbup:
    Inzwischen sind es 10 bis 12 Einträge.

    Sorge bereitet mir die Ausgabe:
    Ich möchte die jeweils aktuellste Zeile ausgeben. Die Beiden Versuche liefern nur „Alles Zeilenweise nacheinander“ oder gleich „Alles in einer Box“. Bereits schon angewendet habe ich die Möglichkeit „$file = FileOpen("6_datei_.txt", 2)“. Doch in diesem Fall soll die inzwischen mehrzeilige Datei bestehen bleiben und nur die aktuellste Zeile ausgegeben werden. ?(

    Wie kann ich das machen :?:

    Spoiler anzeigen
    [autoit]


    $file = FileOpen("Ritzelrocker04.log", 0)

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

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

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

    ; Read in lines of text until the EOF is reached
    While 1
    ;$line = FileReadLine($file) ; 1. Versuch = Zeilenweise Alles nacheinander
    $line = FileRead($file) ; 2. Versuch = Alles in einer Box
    If @error = -1 Then ExitLoop
    MsgBox(0, "Line read:", $line)
    Wend

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

    FileClose($file)

    [/autoit]

    Danke

    Man liest sich...
    Euer Ritzelrocker04

  • SB v X.0

    Hallo Oscar,

    auf meiner gedrittelten HDD wird nur auf dem letzten Teil (E:\) das Gerät ausgegeben.

    Gruß !

    Man liest sich...
    Euer Ritzelrocker04

  • SB v X.0

    Hallo Zusammen,
    @Xeno Gratulation zum Moderator

    Es ist wirklich ein schönes Programm geworden und um einiges Mehr, was ich daraus hätte machen können. Mit Anderen macht es auch mehr Spaß.

    Aufgefallen ist mir aber ein Schönheitsfehler, beim öffnen der Optionen werden die Fenster überlagert und machen Einstellungen ohne Verschiebung unmöglich :!:

    Weiterhin viel Erfolg :!:

    Man liest sich...
    Euer Ritzelrocker04

  • The Stick

    Hallo Progandy,

    in dieser Sache gibt es eigentlich gar nicht viele gute Tools. Ich kann mich noch erinnern, dass nur zwei oder drei in die engere Wahl kamen. Daher kenne ich auch das von Herrn Sieber, weiss leider nicht mehr warum es nicht zum Einsatz kam (vielleicht WinME damals).

    Danke für den Tipp :thumbup:

    Man liest sich...
    Euer Ritzelrocker04

  • Textdatei in GUI-Control ausgeben?

    Hi,

    ich habe es so gelöst und mich würde interessieren, was ist eleganter :?:

    Spoiler anzeigen
    [autoit]


    $logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    Exit
    EndIf
    $line = FileReadLine($logfile)
    If @error = -1 Then ExitLoop
    MsgBox(64, 'About', 'The Stick ' & @CRLF & '' & @CRLF & 'Copyright by : Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
    FileClose($logfile)

    [/autoit]


    Weiterhin viel Erfolg !
    Danke

    Man liest sich...
    Euer Ritzelrocker04

  • CleanScript - verkleinert au3 und Exe deutlich ohne Funktionsverlust

    Hi Markus,
    Edit: Update 2008-02-25

    Zitat


    Bitte ausführlich testen und vielleicht auch die ein oder andere Einsparungszahl posten...
    peethebee & Markus

    wieso Ehrenrettung ? Das wurde doch bestellt und ich dachte mir, es gleich einmal für die jeweiligen Programme zu protokollieren. Das ist kein Aufwand für einzelne Programme verschafft aber den besten Überblick über ein längeres Zeitfenster. Einmal zu Eurer Information und ich bin davon ausgegangen, dass Ihr weitere Zahlen über den Wirkungsgrad erhaltet (Nicht nur meine). So könnten also meine nachgewiesenen ca. 16%, zusammen mit den Anderer ja mehr ergeben ? :thumbup:

    Schönes WE und weiterhin
    viel Erfolg !

    Man liest sich...
    Euer Ritzelrocker04

  • Routine erstellen zum Löschen, erstellen usw.

    Hi blackeagle1075 ,

    auch das könnte ein Startfenster mit Logo sein. ;)

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $gui = GUICreate("Test",300,350,-1,-1, BitOR($WS_SIZEBOX, $WS_SYSMENU))
    GuiCtrlCreateLabel("Progress:", 65, 230)
    $progress = GuiCtrlCreateProgress(65, 250, 150, 20)
    GUICtrlCreatePic("setup.bmp",65,50, 169,150)
    GUISetState ()

    For $i = 0 To 100 Step 10
    GuiCtrlSetData($progress, $i)
    Sleep(500)
    Next
    GUIDelete($gui)
    ;~ Send("{ALT down}{F4}") ; wozu?
    ;Run('C:\test.exe');==> das Prog Seiner wahl!!

    [/autoit]

    Schönes WE und Herzlich Willkommen
    weiterhin viel Erfolg !

    Man liest sich...
    Euer Ritzelrocker04

  • The Stick

    Mir schon nicht mehr bewusst, läuft bei mir das kleine Freeware Programm „AutoRun USB“. Es startet nach einstecken des USB-Sticks automatisch das Programm meiner Wahl (Pstart). Ich nutze „AutoRun USB“ schon lange unter XP sowie WinME.
    ;):)
    Schönes WE und weiterhin
    viel Spaß !

    Man liest sich...
    Euer Ritzelrocker04

  • The Stick

    Hi,

    wer Ordnung liebt ist zu faul zum suchen, nach Laufwerksbuchstaben des USB-Stick. Die obigen Scripte sind sehr personalisiert. Das ist manchmal ein Vor- oder Nachteil. Das hier erkennbare Interesse zu diesem Thema hat mich eine praktikable Lösung für Alle suchen lassen. Diese möchte ich hier vorstellen. Die Daten des USB-Sticks werden in die Eigenen Dateien\My Stick des jeweiligen Nutzers gepackt. Stick und Eigene Dateien werden natürlich automatisch erkannt. ;):rolleyes:

    Ein neuer Skin im Vista Styl ist auch dabei.

    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04 ==> USBv22_02.au3

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

    #include <GUIConstants.au3>
    #include <String.au3>

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

    ; Ziel
    Global $dest_LW = StringLeft(@MyDocumentsDir,2)
    ; Quelle
    Global $src_LW = StringLeft(@ScriptDir,2) & "\"

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

    $uccess = "USBsound\Success.wav"

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

    $GUI = GUICreate(" USB v 2.2", 300, 115, -1, 225, $WS_POPUPWINDOW)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
    $bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
    GUICtrlSetImage (-1, "USBsys\images3.bmp", 22)
    $bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 25, 0)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 25, 0)
    $bn_Autor = GUICtrlCreateButton("RR04", 2, 96, 30, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x808080)

    ; Quelle - The Stick - GUI
    $GUI_Stick = GUICreate(" The Stick", 300, 115, -1, 225, $WS_POPUPWINDOW)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
    $tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
    $tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
    $tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 57, 17, $ES_READONLY)
    $pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
    $bn_Return = GUICtrlCreateButton("zurück", 212, 80, 75, 25, 0)

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

    GUISetState(@SW_SHOW, $GUI)

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

    ; starten Func _LW_info()
    _LW_info()

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

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; window-handle
    Case $GUI
    Switch $msg[0] ; event/control-handle
    Case $bn_Pic
    GUISetState(@SW_HIDE, $GUI)
    GUISetState(@SW_SHOW, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bn_Close
    Exit
    Case $bn_Autor
    MsgBox(64, 'About', 'The Stick v 2.2.02 Build 2008-01-03/12 ' & @CRLF & '' & @CRLF & 'Copyright by : ' & @CRLF & '' & @CRLF & 'Ritzelrocker04 ' & @CRLF & '' & @CRLF & 'Thx an das http://www.Autoit.de - Team ')
    Case $bn_Sichern
    $_Userwahlsich = MsgBox(32+4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
    If $_Userwahlsich = 7 Then
    MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf

    RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
    _LW_info() ; starten Func _LW_info()
    SoundSetWaveVolume(50) ;(50)Lautstärke in %
    SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
    MsgBox(64, " Sicherung", " Sicherung abgeschlossen ! ")
    Exit
    EndSwitch
    Case $GUI_Stick
    Switch $msg[0]
    Case $bn_Return
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    EndSwitch
    EndSwitch
    WEnd

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

    ; die Funktion _LW_info()
    Func _LW_info()

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

    ; Quelle
    $VOL_Quelle = DriveGetLabel($src_LW)
    $TOTAL_Quelle = DriveSpaceTotal($src_LW)
    $FREE_Quelle = DriveSpaceFree($src_LW)
    $FREE_Quelle_Prozent = StringReplace(Round(($FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ",")
    $FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
    $Belegt_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle - $FREE_Quelle, 2), '.', ','), ".", ",")
    $TOTAL_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle, 2), '.', ','), ".", ",")
    $i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")

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

    ; Ziel
    $VOL_Ziel = DriveGetLabel($dest_LW)
    $TOTAL_Ziel = DriveSpaceTotal($dest_LW)
    $FREE_Ziel = DriveSpaceFree($dest_LW)
    $FREE_Ziel_Prozent = StringReplace(Round(($FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ",")
    $FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
    $i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")

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

    ; letzte Berechnungen und setzen der Ergebnisse
    ; Ziel
    GUICtrlSetData($pg_Ziel, $i_Progress_Ziel)
    GUICtrlSetData($gb_Ziel, "( " & $dest_LW & " )" & " = " & $FREE_Ziel_MB & " MB = " & $FREE_Ziel_Prozent & " % frei ")
    ; Quelle
    GUICtrlSetData($tb_src_Total, "Gesamt: " & $TOTAL_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Free, "Frei: " & $FREE_Quelle_MB & " MB")
    GUICtrlSetData($pg_Quelle, $i_Progress_Quelle)
    GUICtrlSetData($tb_src_Belegt, "Belegt: " & $Belegt_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Prozent, "Frei: " & $FREE_Quelle_Prozent & " %")

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

    EndFunc ; ==> _LW_info()

    [/autoit]

    Schönes WE und weiterhin
    viel Spaß !

    Man liest sich...
    Euer Ritzelrocker04

  • USB Stick entfernen per Autoit

    ich bin nur ein einfacher Mensch, der das Du bevorzugt.

    PS: Gestern ergab, eine der 12 Lektionen des Peethebee für mich keinen erkennbaren Sinn. Aber um nicht irgendetwas falsch zu interpretieren habe ich mich beim Autor selbst erkundigt. Warum macht er es genau so, wo es doch für mich keinen offensichtlichen Grund gab ? Natürlich gab es einen Grund, eine Erklärung und ich habe dazu gelernt.

    Da Er mir nun das Du angeboten hat, solltest Du mal darüber nachdenken BugFix! :rolleyes:

    Schönes WE und weiterhin
    viel Spaß !

    Man liest sich...
    Euer Ritzelrocker04

  • USB Stick entfernen per Autoit

    Hallo Micha_he,

    Sein Script gefällt mir gut. :thumbup: Ich habe zu Zeit ein ähnliches Projekt in „Skripte>The Stick“. Mit der Zeile im Spoiler kann Er sicherstellen, dass Er Gehör bekommt und das Script kein „Brüller“ wird (User Voreinstellung = ?). ;)

    Spoiler anzeigen
    [autoit]


    SoundSetWaveVolume(50) ;(50)Lautstärke in %

    [/autoit]

    Schönes WE und weiterhin
    viel Erfolg !

    Man liest sich...
    Euer Ritzelrocker04

    [color=red][b]Edit BugFix [OT]:
    Sag mal Ritzelrocker04, bist du dir sicher, dass du mit uns in einer gemeinsamen Zeit lebst?
    Die Anwendung der dritten Person als Anrede ist ein Relikt aus der Zeit verfaulenden, degenerierten Adels. Wußte gar nicht, dass du dich da zugehörig fühlst. :P
    Im Allgemeinen stellt die Verwendung dieser Anredeform heutzutage eine Beleidigung dar.
    Vielleicht solltest du überlegen, doch wieder in unsere Zeit zu transferieren :?: [/OT]

  • Welches Programm für bzw. gegen Spyware

    Hallo,

    ich nutze Spybot SD, Ad-Aware auf einer speziellen Live-CD (wieder beschreibbar). Backup werden von den sich schnell ändernden Daten angefertigt. Datensicherung (Image - Abbild) je nachdem vielleicht nach einem halben Jahr. Hier zeigen sich dann auch die Top´s und Flop´s an Software die eventuell übernommen oder aktualisiert werden. :rolleyes::)

    Schönes WE und viel Spaß !

    Man liest sich...
    Euer Ritzelrocker04

  • FileOpen ?

    Hallo peethebee,

    ein guter Rat vom Autor selbst. Mir war schon klar, dass die 12 Lektionen von Ihm sind. Daher meine Suche nach einer Erklärung, auf die ich mit meinen Kenntnissen noch nicht kommen würde. :rolleyes:

    PS: Lektion 6: Eine Lektion in Fehlerbehandlung oder in englischem Humor ? :thumbup:

    Schönes WE und
    Danke

    Man liest sich...
    Euer Ritzelrocker04

  • FileOpen ?

    Hi,

    beim Einsatz der Nr. 11 der 12 Lektionen wird FileOpen sehr anschaulich dargestellt “$file = FileOpen("6_datei_.txt", 1)“ . :thumbup:
    Sie funktioniert tadellos. Doch beim trockenen Test kommt es niemals zu einer Fehlermeldung. Sogar nach dem bewussten löschen der Textdatei wird einfach eine neue Datei erstellt ohne den nachfolgenden „If – Then“ Befehl zu berücksichtigen.

    In diese Datei soll hinein geschrieben werden, also ist doch die 1 nötig ? ?(
    Kann ich den „If – Then“ Befehl jetzt weglassen oder was mache ich falsch ? ?(

    Quelle: 12 Lektionen

    Spoiler anzeigen
    [autoit]


    #cs
    Die größte Flexibilität beim Speichern von Daten bieten eigene Textdateien. Hier kannst du die Daten in
    beliebiger Form speichern.
    #ce

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

    $file = FileOpen("6_datei_.txt", 1) ; "0 = Lesemodus (read mode), 1 = Schreibmodus zum Anhängen an die
    ;vorhandene Datei (write mode), 2 = Schreibmodus mit Löschen des vorherigen Inhaltes (write mode)"

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

    ; Datei korrekt geöffnet?
    If $file = -1 Then
    MsgBox(0, "Error", "Datei konnte nicht geöffnet werden.", 2)
    Exit
    Else
    MsgBox(0, "Error", "Datei geöffnet.", 1)
    EndIf

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

    FileWriteLine($file, "Testtextzeile")

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

    FileClose($file)

    [/autoit]

    Schönes WE und
    Danke

    Man liest sich...
    Euer Ritzelrocker04