DANKE ALLEN !!!
Habe mich nun doch kurzfristig für die Lösung aus Musashi Beitrag entschieden.
Dieses kleine, aber sehr feine Searchtool ist genau das was ich brauche ! ! !
Beiträge von Alina
-
-
Peter S. Taler
Erst einmal: Danke !
Die erste Variante sehe ich mir gleich mal durch.
Die zweite Variante würde riesig werden. Bin seit 01/2007 mit Scripten am schreiben und seit 04/2007 im Forum. Und ich weiß gar nicht ob das dann noch von Adobe gelesen / durchsucht werden kann. Habe zwar die große Lizenz, aber auch die hat Grenzen. -
Moin Peter.
Bist DU dir sicher, das der Stick nicht zu formatieren ist? Wenn nichts mehr geht, dann evtl. kaputt ohne das es mit der Datenmenge auf dem Stick zu tun hat? Hast Du Garantie, einfach mal mit dem Hersteller in Verbindung setzen und ihn evtl. einschicken. Nicht um einen neuen zu bekommen, sondern um zu erfahren, woran es gescheitert ist, den Stick zu formatieren. Davon lernen evtl. die Hersteller, weil sie vielleicht nicht zum ersten mal davon bei ihren Sticks hören und so sich weiter entwickeln können. Ich würde das sogar ohne Garantie versuchen. Nur vorher überlegen "Was ist auf dem Stick und darf es jede sehen" !
Vielleicht war der Werbestick ja "Billigware aus .....". Die dürfen ja am liebsten nichts kosten.Ich selber tausche meine Datensticks alle 18 Monate aus. Die alten entsorge ich fachgerecht und nehme mir 1:1 neu aus dem Serverraum (IT-Lagerschrank). Kostet mich ein Formular für die IT-ler:innen ausfüllen, damit die nachbestellen wenn sie mal da sind.ü
Die paar Zeilen wären schon einmal gut einzusehen.
-
Moin.
Mal für euch etwas zum schmunzeln.
Da saß ich auf dem Sofa und schaute Fernsehn. Auf einmal erwischte ich mich dabei, das ich mir die 36 BIlder ( hängen nordöstlich bzw. auf ca. 13:30 Uhr) ansehe. Aber nicht einfach nur ansehe, sondern das ich im Kopf denke "6 x 6 Bilderrahmen? Das ist ein gutes 2D Array" und dann geht es im Kopf rund und das richtig. Da spielt das TV Programm keine wesentliche Rolle, wobei ich es dennoch mitverfolgen kann. Mit einer Gehirnhälfte TV sehen, mit der anderen über dieses Array an der Wand nachdenken.
Dazu muss ich sagen, das ich gaaaanz am Anfang, als ich das erste mal von Arrays gelesen habe, gedacht habe das ein Array immer quadratisch ist. So wie Quadratzahlen. Und da es Zahlen sind, ist das mein "must have / knowing". -
Moin zusammen.
Ich weiß nicht ob ich das hier posten soll oder gleich in der Hilfe. Ja, aucvh als Poweruserin ist man manchmal nicht ganz im Klaren. Sagt man so? 69 bzw. 88!
Sachverhalt:
Ich habe einen Ordner namens Autoit und in den sind alle Autoit Sachen in fast schon unzähligen Ordnern abgespeichert. Für jede neue stabile Version ein Ordner in dem die Scripte und Informationen drinne sind, die mit der Version kompatibel sind / waren.
Fragestellung:
In dem o. g. Chaos suche ich nun nach einem Schlagwort, z. B. "7D-Array " . Aber das Schlagwort ist nicht in den Dateinamen, sondern in den Dateien (*.au3 oder *.txt).
Gibt es da eine Möglichkeit "Suche nach Schlagwort im Ordner xyz incl. Unterordner und zwar in den Dateiinhalten" ?
Hintergrund:
Ich habe irgendwann einmal für einen Mandanten ein kleines Script geschrieben und ich weiß das ich mir dazu (entweder in dem Script oder in der Textdatei) einen Zusatz geschrieben habe, so das ich es wieder finde, wenn es nochmals von ihm benötigt wird. Nur ich finde es nicht mehr.
Und das geht mir ab und zu mal. Ich nenne es bereits meine "unübersichtliche Übersicht". -
Es gibt ja immer diese kleinen Spiele.
Hier ist so eines.
Also die vorgegebenen 10 Sekunden um die beiden Zahlen einzutragen, um so auf das verhergesagte Ergebnis zu kommen brauche ich nicht?
Das ganze kann man auf jeder Kinderparty als Zaubertrick zeigen.Spoiler anzeigen
C
Alles anzeigen#include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Zahlen", 418, 256, 381, 324) $Label1 = GUICtrlCreateLabel("Gast, gebe eine vierstellige Zahl ein: ", 16, 16, 178, 17) $Input1 = GUICtrlCreateInput(Random(1000, 9999, 1), 312, 16, 57, 21) GUICtrlSetBkColor(-1, 0xC0DCC0) $Label2 = GUICtrlCreateLabel("Gast, gebe noch eine vierstellige Zahl ein: + ", 16, 48, 286, 17) $Input2 = GUICtrlCreateInput(Random(1000, 9999, 1) , 312, 48, 57, 21) GUICtrlSetBkColor(-1, 0xC0DCC0) sleep(100) $Label3 = GUICtrlCreateLabel("jetzt gebe ich eine vierstellige Zahl ein: +", 16, 80, 285, 17) $Input3 = GUICtrlCreateInput("0000", 312, 76, 57, 21) $Label4 = GUICtrlCreateLabel("Gast, gebe noch eine vierstellige Zahl ein: +", 11, 108, 292, 17) $Input4 = GUICtrlCreateInput(Random(1000, 9999, 1), 311, 107, 57, 21) GUICtrlSetBkColor(-1, 0xC0DCC0) $Label5 = GUICtrlCreateLabel("jetzt gebe ich noch eine vierstellige Zahl ein: +", 17, 136, 285, 17) $Input5 = GUICtrlCreateInput("0000", 309, 135, 57, 21) $Label6 = GUICtrlCreateLabel("Ergebnis: =", 16, 168, 288, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input6 = GUICtrlCreateInput("0000", 309, 167, 57, 21) GUICtrlSetBkColor(-1, 0xB9D1EA) $Label7 = GUICtrlCreateLabel("Wenn der Gast die erste Zahl eingegeben hat, nehme ich ein Zettel und schreibe", 16, 200, 386, 17) $Label8 = GUICtrlCreateLabel("eine Zahl auf . Meinem Gast sage ich, das ich das Ergebnis schon einmal aufgeschrieben", 16, 216, 382, 17) $Label9 = GUICtrlCreateLabel("habe. ", 16, 232, 34, 17) GUISetState(@SW_SHOW) ; MsgBox(0, "Ergebnis wird sein ?", "Das Ergebnis wird sein ? " & (Number(GUICtrlRead($Input1)) -2 +20000)) $Ergebnis = Number(GUICtrlRead($Input1)) + Number(GUICtrlRead($Input2)) + Number(GUICtrlRead($Input3)) + Number(GUICtrlRead($Input4)) + Number(GUICtrlRead($Input5)) GUICtrlSetData($Input6,$Ergebnis) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch MsgBox(0, "Das Ergebnis wird sein ?", "Das Ergebnis wird sein ? " & (Number(GUICtrlRead($Input1)) -2 +20000)) $Ergebnis = Number(GUICtrlRead($Input1)) + Number(GUICtrlRead($Input2)) + Number(GUICtrlRead($Input3)) + Number(GUICtrlRead($Input4)) + Number(GUICtrlRead($Input5)) GUICtrlSetData($Input6,$Ergebnis) sleep(10000) WEnd
Gute Nacht ! -
Moin.
Ich habe etwas in meinen ganzen Autoit Ordnern gesucht. Gefunden habe ich dabei eine kleine Sache die ich mal 2007 für irgendjemanden gescriptet habe.Spoiler anzeigen
Code
Alles anzeigen;=============================================================================== ; Download- und Installationsfunktion von mIRC zzgl. Update der Chatgruppe ;=============================================================================== ; Variable Const $A1 = FileReadLine(@ScriptDir & "\parameter.txt", 1) ; SplashTextOn für alle Hinweisfenster $res = StringMid($A1, 1, 9) FileClose($A1) Const $A2 = FileReadLine(@ScriptDir & "\parameter.txt", 2); SplashTextOn Hinweisfenster 1 Inhalt $res = StringMid($A2, 1, 50) FileClose($A2) Const $A3 = FileReadLine(@ScriptDir & "\parameter.txt", 3) ; INetGetAdresse bzw. Downloadadresse $res = StringMid($A3, 1, 45) FileClose($A3) Const $A4 = FileReadLine(@ScriptDir & "\parameter.txt", 4) ; Name der Datei die gedownloadet und installiert werden soll $res = StringMid($A4, 1, 11) FileClose($A4) Const $A5 = FileReadLine(@ScriptDir & "\parameter.txt", 5) ; zu löschende Datei nach erfolgreichem installieren von $A4 $res = StringMid($A5, 1, 12) FileClose($A5) Const $B2 = FileReadLine(@ScriptDir & "\parameter.txt", 6) ; SplashTextOn Hinweisfenster 2 Inhalt $res = StringMid($B2, 1, 25) FileClose($B2) Const $B3 = FileReadLine(@ScriptDir & "\parameter.txt", 7) ; Laufwerk wo installiert wird $res = StringMid($B3, 1, 3) FileClose($B3) Const $B4 = FileReadLine(@ScriptDir & "\parameter.txt", 8) ; nach welcher Datei soll nach Installation von $A4 gesucht werden $res = StringMid($B4, 1, 8) FileClose($B4) Const $B5 = FileReadLine(@ScriptDir & "\parameter.txt", 9) ; Error-Meldung, das $B5 nicht gefunden wurde $res = StringMid($B5, 1, 61) FileClose($B5) Const $C1 = FileReadLine(@ScriptDir & "\parameter.txt", 10) ; erste zu kopierende Datei $res = StringMid($C1, 1, 11) FileClose($C1) Const $C2 = FileReadLine(@ScriptDir & "\parameter.txt", 11) ; wohin soll $C1 hin kopiert werden, hier ist gleiche Verzeichnis $res = StringMid($C2, 1, 4) FileClose($C2) Const $C3 = FileReadLine(@ScriptDir & "\parameter.txt", 12) ; zweite zu kopierende Datei $res = StringMid($C3, 1, 11) FileClose($C3) Const $C4 = FileReadLine(@ScriptDir & "\parameter.txt", 13) ; wohin soll $C3 hin kopiert werden, hier ist gleiche Verzeichnis $res = StringMid($C4, 1, 4) FileClose($C4) Const $C5 = FileReadLine(@ScriptDir & "\parameter.txt", 14) ; Dritte zu kopierende Datei und gleichzeitig zweite Installationsdatei $res = StringMid($C5, 1, 11) FileClose($C5) Const $C6 = FileReadLine(@ScriptDir & "\parameter.txt", 15) ; wohin soll $C5 hin kopiert werden, hier ist gleiche Verzeichnis $res = StringMid($C6, 1, 4) FileClose($C6) Const $D1 = FileReadLine(@ScriptDir & "\parameter.txt", 16) ; SplashTextOn Hinweisfenster 3 Inhalt $res = StringMid($D1, 1, 21) FileClose($D1) Const $D2 = FileReadLine(@ScriptDir & "\parameter.txt", 17) ; zu löschende Datei nach erfolgreichem installieren von $C5 $res = StringMid($D2, 1, 10) FileClose($D2) Const $E1 = FileReadLine(@ScriptDir & "\parameter.txt", 18) ; Meldung das Instalaltion abgeschlossen ist $res = StringMid($E1, 1, 26) FileClose($E1) Const $E2 = "Erstellt von Alina H.-L. Änderungswünscht an mich." Const $E3 = 3000 ; Anzeigedauer der Fenster in tauselsten Sekunde hier 3 Sekunden SplashTextOn($A1, $A2,400,20,-1,-1,1) Sleep(3000) SplashOff() InetGet($A3, @ScriptDir & $A4) Run(@ScriptDir & $A4) ProcessWaitClose($A5) SplashTextOn($A1, $B2,400,20,-1,-1,1) Sleep($E3) SplashOff() $filelist = _FileListToArrayEx($B3,$B4) ;Recursive filelist If Not IsArray($filelist) Then If MsgBox(20,"Error",$B5) = 7 Then Exit ;Bei nein wird beenden Else $dir = StringLeft($filelist[1],StringInStr($filelist[1],"\",-1,-1)) ;3b FileCopy(@ScriptDir & $C1,$dir&$C2) FileCopy(@ScriptDir & $C3,$dir&$C4) FileCopy(@ScriptDir & $C5,$dir&$C6) EndIf ;=============================================================================== ; Löschen der mirclook.exe ;=============================================================================== FileDelete(@ScriptDir & $A4) ;=============================================================================== ; Installation des (Update der Chatgruppe) ;=============================================================================== SplashTextOn($A1, $D1,400,20,-1,-1,1) Sleep($E3) SplashOff() Run(@ScriptDir & $C5) ProcessWaitClose($D2) ;=============================================================================== ; Löschen der setup2.exe (Update der Chatgruppe) ;=============================================================================== FileDelete($dir & $C5) ;=============================================================================== ; Abschlußmeldung und kleine 10 Sekunden "Info Texte" ;=============================================================================== SplashTextOn($A1, $E1,300,20,-1,-1,1) Sleep($E3) SplashOff() SplashTextOn($A1, $E2,400,20,-1,-1,1) Sleep(10000) SplashOff() ;=============================================================================== ; SuchArray erstellen ohne oben stehende Variablen ;=============================================================================== Func _FileListToArrayEx($sPath, $sFilter = '*.*', $iFlag = 0, $sExclude = '', $iRecurse = True) If Not FileExists($sPath) Then Return SetError(1, 1, '') If $sFilter = -1 Or $sFilter = Default Then $sFilter = '*.*' If $iFlag = -1 Or $iFlag = Default Then $iFlag = 0 If $sExclude = -1 Or $sExclude = Default Then $sExclude = '' Local $aBadChar[6] = ['\', '/', ':', '>', '<', '|'] $sFilter = StringRegExpReplace($sFilter, '\s*;\s*', ';') If StringRight($sPath, 1) <> '\' Then $sPath &= '\' For $iCC = 0 To 5 If StringInStr($sFilter, $aBadChar[$iCC]) Or _ StringInStr($sExclude, $aBadChar[$iCC]) Then Return SetError(2, 2, '') Next If StringStripWS($sFilter, 8) = '' Then Return SetError(2, 2, '') If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, '') Local $oFSO = ObjCreate("Scripting.FileSystemObject"), $sTFolder $sTFolder = $oFSO.GetSpecialFolder (2) Local $hOutFile = @TempDir & $oFSO.GetTempName If Not StringInStr($sFilter, ';') Then $sFilter &= ';' Local $aSplit = StringSplit(StringStripWS($sFilter, 8), ';'), $sRead, $sHoldSplit For $iCC = 1 To $aSplit[0] If StringStripWS($aSplit[$iCC], 8) = '' Then ContinueLoop If StringLeft($aSplit[$iCC], 1) = '.' And UBound(StringSplit($aSplit[$iCC], '.')) - 2 = 1 Then $aSplit[$iCC] = '*' & $aSplit[$iCC] $sHoldSplit &= '"' & $sPath & $aSplit[$iCC] & '" ' Next $sHoldSplit = StringTrimRight($sHoldSplit, 1) If $iRecurse Then RunWait(@ComSpec & ' /c dir /b /s /a ' & $sHoldSplit & ' > "' & $hOutFile & '"', '', @SW_HIDE) Else RunWait(@ComSpec & ' /c dir /b /a ' & $sHoldSplit & ' /o-e /od > "' & $hOutFile & '"', '', @SW_HIDE) EndIf $sRead &= FileRead($hOutFile) If Not FileExists($hOutFile) Then Return SetError(4, 4, '') FileDelete($hOutFile) If StringStripWS($sRead, 8) = '' Then SetError(4, 4, '') Local $aFSplit = StringSplit(StringTrimRight(StringStripCR($sRead), 1), @LF) Local $sHold For $iCC = 1 To $aFSplit[0] If $sExclude And StringLeft($aFSplit[$iCC], _ StringLen(StringReplace($sExclude, '*', ''))) = StringReplace($sExclude, '*', '') Then ContinueLoop Switch $iFlag Case 0 If StringLeft($aFSplit[$iCC], StringLen($sPath)) <> $sPath Then $sHold &= $sPath & $aFSplit[$iCC] & Chr(1) Else $sHold &= $aFSplit[$iCC] & Chr(1) EndIf Case 1 If StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') Then ContinueLoop If StringLeft($aFSplit[$iCC], StringLen($sPath)) <> $sPath Then $sHold &= $sPath & $aFSplit[$iCC] & Chr(1) Else $sHold &= $aFSplit[$iCC] & Chr(1) EndIf Case 2 If Not StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') Then ContinueLoop If StringLeft($aFSplit[$iCC], StringLen($sPath)) <> $sPath Then $sHold &= $sPath & $aFSplit[$iCC] & Chr(1) Else $sHold &= $aFSplit[$iCC] & Chr(1) EndIf EndSwitch Next If StringTrimRight($sHold, 1) Then Return StringSplit(StringTrimRight($sHold, 1), Chr(1)) Return SetError(4, 4, '') EndFunc ;==>_FileListToArrayEx
parameter.txt:
Spoiler anzeigen
Code
Alles anzeigenEIGENES UPDATE INCLUSIV Installiere mIRC und danach das gruppenbezogene Update (setup2.exe). http://www.duborg.dk/download/mirc621.exe \mirc.exe mirc.exe Gleich geht es weiter ... C:\ mirc.ini mirc.ini wurde nicht gefunden. Installation wird abgebrochen. \meine1.txt \*.* \meine2.txt \*.* \setup2.exe \*.* Installiere das gruppenbezogene Update. setup2.exe Das Setup war erfolgreich.
Ob ich das heute auch noch so scripten würde? Ich weiß noch das ich damals lange dafür gebraucht habe. Aber es war damals DIE Herausforderung.
Habe nie mIRC oder der gleicher selber genutzt, weil ich mich nie informiert habe, was das eigentlich GENAU ist.
Habe es später mit den Variablen so gemacht, das ich sie direkt ins Script geschrieben habe. Hab dann so aus:Spoiler anzeigen
Code
Alles anzeigen; Variable Const $A1 = "EIGENES UPDATE INCLUSIV" ; SplashTextOn für alle Hinweisfenster Const $A2 = "Installiere mIRC und danach das gruppenbezogene Update (setup2.exe)." ; SplashTextOn Hinweisfenster 1 Inhalt Const $A3 = "http://www.duborg.dk/download/mirc621.exe" ; INetGetAdresse bzw. Downloadadresse Const $A4 = "\mirclook.exe" ; Name der Datei die gedownloadet und installiert werden soll Const $A5 = "mirclook.exe" ; zu löschende Datei nach erfolgreichem installieren von $A4 Const $B2 = "Gleich geht es weiter ..." ; SplashTextOn Hinweisfenster 2 Inhalt Const $B3 = "C:\" ; Laufwerk wo installiert wird Const $B4 = "mirc.ini" ; nach welcher Datei soll nach Installation von $A4 gesucht werden Const $B5 = "mirc.ini" ;wurde nicht gefunden, trozdem fortfahren?" ; Error-Meldung, das $B5 nicht gefunden wurde Const $C1 = "\meine1.txt" ; erste zu kopierende Datei Const $C2 = "\*.*" ; wohin soll $C1 hin kopiert werden, hier ist gleiche Verzeichnis Const $C3 = "\meine2.txt" ; zweite zu kopierende Datei Const $C4 = "\*.*" ; wohin soll $C1 hin kopiert werden, hier ist gleiche Verzeichnis Const $C5 = "\setup2.exe" ; Dritte zu kopierende Datei und gleichzeitig zweite Installationsdatei Const $C6 = "\*.*" ; wohin soll $C1 hin kopiert werden, hier ist gleiche Verzeichnis Const $D1 = "Installiere das gruppenbezogene Update." ; SplashTextOn Hinweisfenster 3 Inhalt Const $D2 = "setup2.exe" ; zu löschende Datei nach erfolgreichem installieren von $C5 Const $E1 = "Das Setup war erfolgreich." ; Meldung das Instalaltion abgeschlossen ist Const $E2 = "Erstellt von Alina H.-L. Änderungswünscht an mich." Const $E3 = 3000 ; Anzeigedauer der Fenster in tauselsten Sekunde hier 3 Sekunden
-
Very nice !!!
-
Willkommen zurück im Forum.
-
Mit einem StringRegExpReplace bekomme ich es leider nicht hin - darum in zwei Schritten :
Danke.
-
Moin
Ich habe folgenden String als Eingabe (Beispiel):ab cd ef gh ij kl mn op qr st uv wx yz 01 23 45 67 89 ij kl mn op qr st uv ab cd ef gh ij kl mn op qr st uv wx yz 01 23 45 67 89 ij kl j7 55 6p
Nun möchte ich die Ausgabe wie folgt haben:
sieben "2-er" dem jeweils 1 " " folgt, danach ein "2-er" dem dann zwei " " folgen und danach acht "2-er" mit einem " " und dann ein Zeilenumbruchsollte dann so aussehen:
xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx
xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx
xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx
#ce
Mit folgendem Script bekomme ich das dopppelte Leerzeichen, nach 8 "2er" und den Zeilenumbruch nach 16 "2er" nicht hin.
Wie ändere ich dieses, das es wie o. g. hin kommt?Spoiler anzeigen
Code
Alles anzeigenGlobal $_Texteingang = 'xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx' Global $_Ausgabe = StringRegExpReplace($_Texteingang, "(.{1,47})(?:\s|$)", "$1" & @CRLF) ConsoleWrite($_Ausgabe) #cs ; Eingabe: ab cd ef gh ij kl mn op qr st uv wx yz 01 23 45 67 89 ij kl mn o7 qr st uv ab cd ef gh ij kl mn op qr st uv wx yz 01 23 45 67 89 ij kl ij kl mn ; Sollausgabe: sieben Zahlen mit einem " " gefolgt, danach eine Zhal mit zwei " ", danach wieder sieben Zahlen mit einem " " und dann ein Umbruch xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx #ce
-
-
Moin.
Ich wähle mit den folgenden Zeilen eine Datei aus. Nehmen wir mal die vorher.abc als BeispielSpoiler anzeigen
Jetzt möchte ich die ausgewählte Datei vorher.abc in nachher.123 (Beispielname) umbenennen und mit diesem Dateinamen dann bei $sFileRead weiter arbeiten.
FileRename hat autoit ja nicht und mit FileMove bekomme ich es so nicht hin. -
Moin Zusammen.
Ich hatte mich gefragt, wie ich nur an den Dateinamen (ohne Dateiendung) komme.
Wie das mit einem festen Pfad (C:\Dokumente und Einstellungen\bla\muster.txt) habe ich ja im Forum gefunden und es unten nach meinem Bedarf"angepasst".
Aber was ist, wenn ich nicht beim Laufwerksbuchstabe beginne, sondern im @ScriptDir Verzeichnis und die eigene Datei (@ScriptName) verwende?Spoiler anzeigen
C
Alles anzeigen#include <file.au3> #include <array.au3> ConsoleWrite("########################################################" & @CRLF) ConsoleWrite("# Pfad = C:\Dokumente und Einstellungen\bla\muster.txt #" & @CRLF) ConsoleWrite("########################################################" & @CRLF) Dim $szDrive, $szDir, $szFName, $szExt $TestPath = _PathSplit("C:\Dokumente und Einstellungen\Username\muster.txt", $szDrive, $szDir, $szFName, $szExt) ; Ganzer Pfad $_filename_ganzer_pfad = $szDrive & $szDir & $szFName & $szExt ConsoleWrite("Pfad ganz : " & $_filename_ganzer_pfad & @crlf) ; Pfad zur Datei $_filename_pfad_zur_datei = $szDrive & $szDir ConsoleWrite("Pfad zur Datei : " & $_filename_pfad_zur_datei & @crlf) ; Dateiname mit Dateiendung $_filename_datei_mit_endung = $szFName & $szExt ConsoleWrite("Dateiname mit Endun : " & $_filename_datei_mit_endung & @crlf) ; Dateiname ohne Dateiendung $_filename_datei_ohne_endung = $szFName ConsoleWrite("Dateiname ohne Endung : " & $_filename_datei_ohne_endung & @crlf) ; Dateiendung mit Punkt $_filename_dateiendung_punkt = $szExt ConsoleWrite("Punkt und Dateiendung : " & $_filename_dateiendung_punkt & @crlf) ; Dateiendung mit Punkt $_filename_dateiendung_ohnepunkt = StringTrimLeft($_filename_dateiendung_punkt, 1) ; Entfernt 1 Zeichen von links des Strings. ConsoleWrite("Dateiendung ohne Punkt : " & $_filename_dateiendung_ohnepunkt & @crlf & @crlf) ConsoleWrite("#################################" & @CRLF) ConsoleWrite("# Pfad = @ScriptDir\@ScriptName #" & @CRLF) ConsoleWrite("#################################" & @CRLF) ;################################# ;# Pfad = @ScriptDir\@ScriptName # ;################################# Dim $s2zDrive, $s2zDir, $s2zFName, $s2zExt $Test2Path = _PathSplit(@ScriptDir & "\" & @ScriptName, $s2zDrive, $s2zDir, $s2zFName, $s2zExt) ; Ganzer Pfad $_filename_ganzer_pfad2 = $s2zDrive & $s2zDir & $s2zFName & $s2zExt ConsoleWrite("Pfad ganz : " & $_filename_ganzer_pfad2 & @crlf) ; Pfad zur Datei $_filename_pfad_zur_datei2 = $s2zDrive & $s2zDir ConsoleWrite("Pfad zur Datei : " & $_filename_pfad_zur_datei2 & @crlf) ; Dateiname mit Dateiendung $_filename_datei_mit_endung2 = $s2zFName & $s2zExt ConsoleWrite("Dateiname mit Endung : " & $_filename_datei_mit_endung2 & @crlf) ; Dateiname ohne Dateiendung $_filename_datei_ohne_endung2 = $s2zFName ConsoleWrite("Dateiname ohne Endung : " & $_filename_datei_ohne_endung2 & @crlf) ; Dateiendung $_filename_dateiendung2 = $s2zExt ConsoleWrite("Punkt und Dateiendung : " & $_filename_dateiendung2 & @crlf) ; Dateiendung mit Punkt $_filename_dateiendung_ohnepunkt2 = StringTrimLeft($_filename_dateiendung2, 1) ; Entfernt 1 Zeichen von links des Strings. ConsoleWrite("Dateiendung ohne Punkt : " & $_filename_dateiendung_ohnepunkt2 & @crlf & @crlf)
Weiß nicht ob es hier her gehört, sonst gerne verschieben.
-
-
Stimmt, Brutto ist wirklich nur eine Zahl.
Das Du mehr raus hast kann ich mir denken. Bei mir bringt die "Extras" und "Sonderzahlungen" am meisten.
Du bist über 1 Cent die Sekunde. Dann zählst auch Du zu den "Gutverdiener:innen", was nicht heißt, das ich unter dem Strich mit allem zusammen nicht über dem Cent pro Sekunde bin.
.
Tja, viele denken. "Für einen Cent die Sekunde gehe ich nicht arbeiten." -
Danke !
Läuft alles ! -
Ich habe gerade mal ausgerechnet, was ich Brutto pro Arbeitssekunde bekomme.
Bedigungen:
Abrechnungszeitraum: 01.01.2021 - 31.12.2021
Keine Sonderzahlungen ( 13. Gehalt / Weihnachtsgehalt , Urlaubsgeld, Prämien, usw.)
mit berechnet werden aber Überstunden und Pauschalen für Reisekosten (ab 12 Std. / ab 24 Std.)
Da komme ich auf 0,99869 Cent / Sekunde.
Viel oder wie sieht es bei Euch aus ? -
Moin Oscar.
Separat läuft das Script. Danke !
Aber ich habe bereits diese WM_COMMAND Function.Code
Alles anzeigenFunc WM_COMMAND($hGui, $iMsg, $wParam, $lParam) Local $Char If ($lParam = GUICtrlGetHandle($Separa)) And (BitAND(BitShift($wParam, 16), 0xFFFF) = $EN_CHANGE) Then $Char = GUICtrlRead($Separa) If ($Char <> '') And Not StringRegExp($Char, '^[^\d-]$') Then GUICtrlSetState($Separa, $GUI_FOCUS) _GUICtrlEdit_ShowBalloonTip($lParam, "Unzulässiges!", "Unzulässiges Trennzeichen!", 6) EndIf EndIf Return $GUI_RUNDEFMSG EndFunc ;==>WM_COMMAND
Wie mache ich zwei dieser FWM_COMMAND Functionen? Das ist bei mir das erste mal der Fall. Einmal die bestehende und dann die von Dir dazu.
-
Moin zusammen
Ich würde gerne, wenn in Input1 ein Minuszeichen vorhanden ist, das dann in Input 2 die Hintergrundfarbe "rot" ist.
Spoiler anzeigen
C
Alles anzeigen#include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 380, 75, 300, 600) $Input1 = GUICtrlCreateInput("Input1", 5, 5, 370, 30) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 2) $Input2 = GUICtrlCreateInput("Input2", 5, 40, 370, 30) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 4) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Input2 EndSwitch WEnd
LG Lina.