Hi Manuit,
was meinst du mit laggt, bitte genauer
Ich mache das gleiche mit meinen GUIs in Skripte>The Stick, vielleicht kann ich helfen
Hi Manuit,
was meinst du mit laggt, bitte genauer
Ich mache das gleiche mit meinen GUIs in Skripte>The Stick, vielleicht kann ich helfen
Hallo BugFix,
Arrays habe ich bis jetzt immer vorsichtig umschifft, aber irgendwann gibt es kein zurück.
Es hat funktioniert
Danke BugFix
Hi Bugfix,
bis jetzt habe ich es so und bekomme eine leere Msgbox mit Namen letzter Eintrag
#include <file.au3>
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]])
Danke
Man liest sich...
Euer Ritzelrocker04
Hallo BugFix,
leider erhalte ich eine Fehlermeldung
Danke
Man liest sich...
Euer Ritzelrocker04
Hallo BugFix,
leider erhalte ich eine Fehlermeldung
Danke
Man liest sich...
Euer Ritzelrocker04
Hi,
in meiner erstellten Textdatei „Ritzelrocker04.log“ wird alles schön nach Lehrbuch dokumentiert, sogar gemachte Einstellungen werden erfasst (wenn vorher richtig implementiert).
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
$file = FileOpen("Ritzelrocker04.log", 0)
; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
; 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
FileClose($file)
[/autoit]Danke
Man liest sich...
Euer Ritzelrocker04
Hallo Oscar,
auf meiner gedrittelten HDD wird nur auf dem letzten Teil (E:\) das Gerät ausgegeben.
Gruß !
Man liest sich...
Euer Ritzelrocker04
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
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
Man liest sich...
Euer Ritzelrocker04
Hi,
ich habe es so gelöst und mich würde interessieren, was ist eleganter
$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)
Weiterhin viel Erfolg !
Danke
Man liest sich...
Euer Ritzelrocker04
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 ?
Schönes WE und weiterhin
viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Hi blackeagle1075 ,
auch das könnte ein Startfenster mit Logo sein.
#include <GUIConstants.au3>
$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!!
Schönes WE und Herzlich Willkommen
weiterhin viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
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
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.
Ein neuer Skin im Vista Styl ist auch dabei.
; by Ritzelrocker04 ==> USBv22_02.au3
#include <GUIConstants.au3>
#include <String.au3>
; Ziel
Global $dest_LW = StringLeft(@MyDocumentsDir,2)
; Quelle
Global $src_LW = StringLeft(@ScriptDir,2) & "\"
$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)
GUISetState(@SW_SHOW, $GUI)
[/autoit] [autoit][/autoit] [autoit]; starten Func _LW_info()
_LW_info()
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
; die Funktion _LW_info()
Func _LW_info()
; 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), ".", ",")
; 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), ".", ",")
; 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 & " %")
EndFunc ; ==> _LW_info()
[/autoit]Schönes WE und weiterhin
viel Spaß !
Man liest sich...
Euer Ritzelrocker04
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!
Schönes WE und weiterhin
viel Spaß !
Man liest sich...
Euer Ritzelrocker04
Hallo Micha_he,
Sein Script gefällt mir gut. 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 = ?).
SoundSetWaveVolume(50) ;(50)Lautstärke in %
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.
Im Allgemeinen stellt die Verwendung dieser Anredeform heutzutage eine Beleidigung dar.
Vielleicht solltest du überlegen, doch wieder in unsere Zeit zu transferieren [/OT]
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.
Schönes WE und viel Spaß !
Man liest sich...
Euer Ritzelrocker04
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.
PS: Lektion 6: Eine Lektion in Fehlerbehandlung oder in englischem Humor ?
Schönes WE und
Danke
Man liest sich...
Euer Ritzelrocker04
Hi,
beim Einsatz der Nr. 11 der 12 Lektionen wird FileOpen sehr anschaulich dargestellt “$file = FileOpen("6_datei_.txt", 1)“ .
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
#cs
Die größte Flexibilität beim Speichern von Daten bieten eigene Textdateien. Hier kannst du die Daten in
beliebiger Form speichern.
#ce
$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)"
; 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
FileWriteLine($file, "Testtextzeile")
[/autoit] [autoit][/autoit] [autoit]FileClose($file)
[/autoit]Schönes WE und
Danke
Man liest sich...
Euer Ritzelrocker04
Hallo AlkoholiX ,
siehe Er mal hier, währe das vielleicht das Problem ?
Weiterhin viel Erfolg !
Man liest sich...
Euer Ritzelrocker04