RR04
Es läuft wieder einmal so wie Du es gehofft hast: SUPER !!!
Wann gehen DIR mal die Ideen aus? Meine na klar nur bei diesem Projekt.
LG,
Crazy-A.
RR04
Es läuft wieder einmal so wie Du es gehofft hast: SUPER !!!
Wann gehen DIR mal die Ideen aus? Meine na klar nur bei diesem Projekt.
LG,
Crazy-A.
Hi Crazy-A,
manchmal sind es User Wünsche für die man erst den richtigen Rahmen schaffen muss (MadMax), neue Erkenntnisse die ich machen konnte oder man folgt einem Konzept.
PS: Die Animation in OES beim kopieren (Fliegende Blätter), funktioniert die ?
Hallo RR04.
Darauf habe ich jetzt gar nicht geachtet, da es mich nicht stören würde. Die Funktionen sind alle bestens auf meinem PC und Laptop.
Aber ich schaue mal, ob ich das heute nochmals testen kann. Bin gerade auch auf den Sprung.
EDIT: Ja, die funktioniert einwandfrei !
LG,
Crazy-A.
Der Restore-Modus ist hinzu gekommen.
Download siehe Post 1
Viel Spaß mit SiS !
Hallo RR04,
hab da ein problem mit dem sichern, egal was ich sicher, es werden nur leere Dateien erstellt.
Das mit dem Restore-Modus freut mich.
Gruss MadMax
Hallo MadMax,
danke für Deine Rückmeldung.
Ich habe bei SiS noch einige Anpassungen vorgenommen um dieses Problem zu beheben !
Weiterhin wird jetzt auch die Übertragungsdauer jeweils in Sekunden oder Minuten angegeben.
Download siehe Post 1 und viel Spaß !
Hallo RR04,
danke jetzt geht es wieder.
Gruss
MadMax
Mit Start von SiS wird ein Rundruf ausgelöst. Dieser Rundruf prüft die zur Sicherung angebotenen Ordner auf Existenz, nicht gefundene Daten stehen nicht mehr zur Auswahl.
Den Sicherungsordner einsehen kann man im Menü Datei/Öffnen, die Auswahl erfolgt über das Combofeld. Hier sind verschiedene Sicherungsordner denkbar.
Einen Überblick über den freien Speicherplatz, der im PC befindlichen Partitionen, verschafft man sich im Menü Extra/Dirinfo.
Die im Verlauf der Sicherung zunehmende Größe und abnehmenden freien Speicherplatz lässt sich im Label über „Beenden“ beobachten.
Wie im richtigen Leben hat auch dieses Script einen "Haken" !
Denn zu guter Letzt bekommen wir einen aktuellen Statusbericht des Sicherungsordners (Datum, Path, Größe, Dateien, Verzeichnisse, Dauer d. Sicherung) angezeigt.
Viel Spaß mit SiS !
Anpassung vorgenommen.
Beim sichern auf USB-Sticks wurde unter bestimmten Umständen die Ausgabe von "Path : " im Statusbericht nicht richtig angezeigt.
Eine Ressource-DLL kommt zum Einsatz und wurde mit AutoIT-Bordmitteln erstellt.
Weitere Anpassungen vorgenommen.
Download siehe Post1 und viel Spaß mit SiS !
Fragen zu:
„Eine Ressource-DLL kommt zum Einsatz und wurde mit AutoIT-Bordmitteln erstellt.“
Die Erklärung:
Die Datei „sis_rc.dll“ wurde unter Beachtung von Aufbau und Struktur einer DLL mit dem „ResHacker“ erstellt.
Warum
Auf diese Art werden alle Ressourcen zusammengefasst und können bei Bedarf auf die gleiche Weise angesprochen werden. Anders als Icl-Dateien, können DLL´s auch Animationen beinhalten.
Download siehe Post1 und viel Spaß mit SiS !
Als kleines Extra
kommt eine Computer-Info hinzu. Der Nutzer verschafft sich einen Überblick mit welcher harten und weichen Ware Er es zu tun hat. Einen besonderen Hinweis erhält der Nutzer der vergessen hat, Daten zur Sicherung auszuwählen.
Download siehe Post1 und viel Spaß mit SiS !
Anpassungen und Weiterentwicklungen in Version SiSv3811 !
Download siehe Post #1
Viel Spaß mit SiS !
Anpassung:
Durch die Position von "FileWriteLine", wurde das Schreiben der Log-Datei nach jeder einzelnen Sicherung ausgeführt. Die Log-Datei wird so unnötig groß, jetzt nur noch einmal am Ende.
Multilingual - Der Nutzer kann ab Version 3.9 zwischen Englisch und Deutsch wählen und eine fehlende Sprache auch selbst erstellen.
Download siehe Post 1
Viel Spaß mit SiS !
Moin RR04.
Wie macht man es denn mit einer neuen Sprache?
Habe das GUI dazu noch nicht gefunden.
Aber sonst läuft alles wie immer: bestens.
LG, Lina.
Hi Alina !
Danke für Dein Lob.
1.Im Menü>Optionen Sprache oder Language kommt man zum Auswahlfenster für die mitgeführten Sprachen.
2.Alina, für eine ganz neue Sprache editiere mal, mit einem Editor Deiner Wahl, eine der beiden Musterdateien „Deutsch.lng.txt oder English.lng.txt“ in Sources und ersetze die Worte – Speichern unter... \lang\MeineSprache.lng und fertig.
Der Trick:
Auf diese Weise kann man auch weitere Sprachen hinzufügen. SiS erkennt die neue Sprache und bietet sie, ohne mein zutun, von nun an zur Auswahl an.
3.Die Datei „sis_rc.dll“ in "SiS" wie auch die Datei „oes_rc.dll“ in "OES" sind nur Ressourcen-DLL´s und wurden mit dem „ResHacker“ erstellt.
Sollte jemanden noch etwas auffallen, so melde er sich.
PS: Gerne können wir auch eine weitere Sprache hinzufügen.
Viel Spaß mit SiS !
Hi Alina !
Gerne können wir auch eine weitere Sprache hinzufügen.
Okay, wenn es erlaubt ist, dann auch ein Tool bauen, das es macht? Wäre doch mal eine Aufgabe, wobei ich gerade meine HP bauen möchte.
LG,
Alina
Hallo Alina,
wie sind Deine Vorstellungen zu so einem Tool ?
Meine eigene Homepage:
Ich selbst habe keine eigene Homepage.
Jedoch bisher gute Erfahrungen mit NVU machen können.
Für eine erste eigene Homepage sind vielleicht auch diese Seiten interessant:
http://de.selfhtml.org/
http://de.selfhtml.org/layouts/index.htm
siehe auch hier:
http://www.autoit.de/index.php?page=Thread&postID=65203#post65203
Alina meinst du vielleicht so was?
RR04: Jezt hab ich dir die Arbeit weggenommen :P, hoffe es stört dich nicht.
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
#include <Math.au3>
#include <Array.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit];~ Global $SPRACHPFAD = "C:\Dokumente und Einstellungen\Andy\Lokale Einstellungen\Temp\SiSv3900_2008-11-20\SiSv3900_2008-11-20\lang\"
Global $SPRACHPFAD = @ScriptDir & "\lang\"
While Not (FileExists($SPRACHPFAD & "English.lng") And FileExists($SPRACHPFAD & "Deutsch.lng"))
MsgBox(16, 'SiS Übersetzer', "Sprachdateien ""Deutsch.lng"" und ""Englsich.lng"" nicht in diesem Ordner vorhanden" & @CRLF & $SPRACHPFAD & @CRLF & "Bitte den richtigen Ordner wählen.")
$SPRACHPFAD = FileSelectFolder("Pfad zu den Sprachdateien wählen","")
If @error Then Exit
$SPRACHPFAD &= "\"
WEnd
Global $GeladenName=""
Global $hListView
_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $TRansGUI = GUICreate("SiS Übersetzer", 600, 330)
$hListView = GUICtrlCreateListView("", 2, 2, 594, 268, BitOR($LVS_EDITLABELS, $LVS_REPORT, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS))
_GUICtrlListView_SetExtendedListViewStyle($hListView,$LVS_EX_GRIDLINES,$LVS_EX_GRIDLINES)
_GUICtrlListView_SetUnicodeFormat($hListView, True)
Local $SAVE = GUICtrlCreateButton("Speichern",10,270,100,30)
Local $SAVEAS = GUICtrlCreateButton("Speichern als:",120,270,100,30)
Local $LOAD = GUICtrlCreateButton("Laden",230,270,100,30)
Local $NEW = GUICtrlCreateButton("Neu",340,270,100,30)
GUICtrlCreateLabel("Info: Code for Tabs is: {}",10,310,300,20)
GUISetState()
; Add columns
_GUICtrlListView_InsertColumn($hListView, 0, "Übersetzung", 190)
_GUICtrlListView_InsertColumn($hListView, 1, "Deutsch", 190)
_GUICtrlListView_InsertColumn($hListView, 2, "Englisch", 190)
Local $DEUTSCH = IniReadSection($SPRACHPFAD & "Deutsch.lng","default_values")
_ArraySort($DEUTSCH,0,1,0,0)
Local $ENGLISCH = IniReadSection($SPRACHPFAD & "English.lng","default_values")
_ArraySort($ENGLISCH,0,1,0,0)
Local $MaxBound = _Max($DEUTSCH[0][0],$ENGLISCH[0][0])
Local $ITM
For $i = 1 To $MaxBound
$ITM = _GUICtrlListView_AddItem($hListView,"")
If $i<= $DEUTSCH[0][0] Then _GUICtrlListView_AddSubItem($hListView,$ITM,StringReplace($DEUTSCH[$i][1],@TAB,"{}"),1)
If $i<= $ENGLISCH[0][0] Then _GUICtrlListView_AddSubItem($hListView,$ITM,StringReplace($ENGLISCH[$i][1],@TAB,"{}"),2)
Next
$DEUTSCH=""
$ENGLISCH=""
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
; Loop until user exit
Local $MSG,$Name
Do
$MSG = GUIGetMsg()
Select
Case $MSG = $LOAD
$Name = FileOpenDialog("Lade Sprachdatei",$SPRACHPFAD,"Sprachdateien (*.lng)")
If @error Then ContinueLoop
$GeladenName = $Name
Local $NEWLANG = IniReadSection($GeladenName,"default_values")
_ArraySort($NEWLANG,0,1,0,0)
For $i = 0 To _GUICtrlListView_GetItemCount($hListView)-1
If $i >= $NEWLANG[0][0] Then ExitLoop
_GUICtrlListView_SetItemText($hListView,$i,StringReplace($NEWLANG[$i+1][1],@TAB,"{}"))
Next
$NEWLANG=""
WinSetTitle($TRansGUI,"","SiS Übersetzer - " & StringTrimLeft($GeladenName,StringInStr($GeladenName,"\",1,-1)))
Case $MSG = $NEW
For $i = 0 To _GUICtrlListView_GetItemCount($hListView)-1
_GUICtrlListView_SetItemText($hListView,$i,"")
Next
$GeladenName=""
WinSetTitle($TRansGUI,"","SiS Übersetzer")
Case $MSG = $SAVE
If $GeladenName = "" Then ContinueCase
Local $NEWLANG[_GUICtrlListView_GetItemCount($hListView)+1][2] = [[_GUICtrlListView_GetItemCount($hListView)]]
For $i = 0 To $NEWLANG[0][0]-1
$NEWLANG[$i+1][0] = StringFormat("%03d ",$i+1)
$NEWLANG[$i+1][1] = _GUICtrlListView_GetItemText($hListView,$i)
Next
IniWriteSection($GeladenName,"default_values",$NEWLANG)
$NEWLANG=""
Case $MSG = $SAVEAS
$Name = FileSaveDialog("Sprachdatei: Speicherort",$SPRACHPFAD,"Sprachdateien (*.lng)")
If @error Then ContinueLoop
If Not (StringLeft($Name,4) = ".lng") Then $Name &= ".lng"
Local $NEWLANG[_GUICtrlListView_GetItemCount($hListView)+1][2] = [[_GUICtrlListView_GetItemCount($hListView)]]
For $i = 0 To $NEWLANG[0][0]-1
$NEWLANG[$i+1][0] = StringFormat("%03d ",$i+1)
$NEWLANG[$i+1][1] = StringReplace(_GUICtrlListView_GetItemText($hListView,$i),"{}",@TAB)
Next
IniWriteSection($Name,"default_values",$NEWLANG)
$NEWLANG=""
EndSelect
Until $MSG = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
$hWndListView = $hListView
If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_BEGINLABELEDIT, $LVN_BEGINLABELEDITW ; Start of label editing for an item
Return False ; Allow the user to edit the label
;Return True ; Prevent the user from editing the label
Case $LVN_ENDLABELEDIT, $LVN_ENDLABELEDITW ; The end of label editing for an item
$tInfo = DllStructCreate($tagNMLVDISPINFO, $ilParam)
Local $tBuffer = DllStructCreate("char Text[" & DllStructGetData($tInfo, "TextMax") & "]", DllStructGetData($tInfo, "Text"))
; If Text is not empty, return True to set the item's label to the edited text, return false to reject it
; If Text is empty the return value is ignored
If StringLen(DllStructGetData($tBuffer, "Text")) Then Return True
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
_GUICtrlListView_EditLabel($hWndFrom,DllStructGetData($tInfo, "Index"))
ControlMove(HWnd(_GUICtrlListView_GetEditControl($hListView)),"","",Default,Default,186)
; No return value
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY