Beiträge von BugFix

**BugFix**

Hi ytwinky (u. alle anderen auch ),

hast natürlich recht - "chr(dec(i))" bringt das gleiche wie "_HexToString(i)" und man spart sich den include.
Aber du hast das Script zu weit gekürzt. Falls ein Virtuelles CD-Laufwerk vorhanden ist erhält dies in der Registry ebenfalls die Kennung "CdRom". Liegt es in der Lw-Buchstabenfolge vor den physikalischen CD-Lw wird das Virtuelle Lw als 1. Lw und das erste physikalischen CD-Lw als 2. Lw erkannt. Die Bezeichnung des Virtuellen Lw wird aber nicht ausgelesen, da dieses keine Firmwarebezeichnung hat (Folgestring mit "_______" beginnend).
Hab auf meinem PC zufällig diese Konstellation - sonst wär mir das sicher auch nicht aufgefallen.

**BugFix**

So, da man die Info über das(die) CD/DVD-Laufwerk(e) sicher auch anderweitig verwerten kann, hab ich das ganze jetzt in eine Funktion gepackt.
Ergänzend zu Lw-Buchstaben und Gerätebezeichnung kann jetzt auch die Firmwareversion ausgelesen werden.

Im Download hab ich gleich eine GUI zum Ausprobieren vorangestellt.
Geschrieben mit der aktuellen Beta.

Spoiler anzeigen

C

;==================================================================================================
; Function:		_GetCdDriveInfo($cd_pos, $cd_info_type)
;
; Description:	Get Info of physical CD/DVD-drives (Drive-Letter, Device-Name, Firmware)
;
; Parameter(s):	$cd_pos
;					1= First Drive;
;					2= Second Drive;
;					3= Info of Both Drives with Seperator " | "
;				$cd_info_type
;					1= Drive-Letter only
;					2= Device-Name only
;					3= Firmware-Version only
;					4= Drive-Letter & " " & Device-Name
;					5= Drive-Letter & " " & Device-Name & " " & Firmware-Version
;
; Return Value:	i.e. D:[ HL-DT-ST DVDRAM GSA-4081B][ v.A100] | [E:][ TOSHIBA DVD-ROM SD-M1612][ v.1004]
;				Sets @ERROR to:	1 - no CD/DVD-Device found
;								2 - Second CD/DVD-Device not found
;				no @ERROR sets 	if $cd_pos= 3 and Second CD/DVD-Device was'nt found
;								Return only First Drive Info
;
; Author:		BugFix (bug_fix@web.de)
;==================================================================================================
#include <String.au3>


Func _GetCdDriveInfo($cd_pos = 1, $cd_info_type = 1)
	$cd1 = ""
	$cd1_name = "no_drive"
	$cd1_fw = ""
	$cd2 = ""
	$cd2_name = "no_drive"
	$cd2_fw = ""
	$p2 = 0

	For $a = 68 To 90
		$drv = Chr($a)
		$reg = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & $drv & ":")
		$val = ""
		$name = ""
		For $i = 1 To StringLen($reg) - 2 Step 2
			$tmp = _HexToString(StringMid($reg, $i, 2))
			If $tmp <> "" Then
				$val = $val & $tmp
			EndIf
		Next
		$p1 = StringInStr($val, "#") + 1
		$type = StringMid($val, $p1, 5)
		If $type = "CdRom" Then
			$p2 = StringInStr($val, "__")
			If $p2 > 6 Then
				$name = StringMid($val, $p1 + 5, $p2- ($p1 + 5))
				$name = StringReplace($name, "_", " ")
				If $cd1 = "" Then
					$cd1 = $drv & ":"
					$cd1_name = $name
				Else
					$cd2 = $drv & ":"
					$cd2_name = $name
				EndIf
				$p3 = StringInStr($val, "#", 0, 2)
				For $i = $p3 - 1 To $p2 Step - 1
					If StringMid($val, $i, 1) <> "_" Then
						$pos_fw_end = $i
						ExitLoop
					EndIf
				Next
				For $i = $pos_fw_end To $p2 Step - 1
					If StringMid($val, $i, 1) = "_" Then
						$pos_fw_begin = $i+1
						$fw_len = $pos_fw_end - $pos_fw_begin +1
						ExitLoop
					EndIf
				Next
				$cd_fw = "v." & StringMid($val, $pos_fw_begin, $fw_len)
				If $cd1_fw = "" Then
					$cd1_fw = $cd_fw
				Else
					$cd2_fw = $cd_fw
				EndIf
			EndIf
		EndIf
		$p2 = 0
	Next
	If $cd1_name = "no_drive" And $cd2_name = "no_drive" Then
		SetError(1)
		Return False
	EndIf
	If $cd2_name = "no_drive" And $cd_pos = 2 Then
		SetError(2)
		Return False
	EndIf
	Select
		Case ($cd_pos = 1 Or ($cd_pos = 3 And $cd2_name = "no_drive")) And $cd_info_type = 1
			Return $cd1
		Case ($cd_pos = 1 Or ($cd_pos = 3 And $cd2_name = "no_drive")) And $cd_info_type = 2
			Return $cd1_name
		Case ($cd_pos = 1 Or ($cd_pos = 3 And $cd2_name = "no_drive")) And $cd_info_type = 3
			Return $cd1_fw
		Case ($cd_pos = 1 Or ($cd_pos = 3 And $cd2_name = "no_drive")) And $cd_info_type = 4
			Return $cd1 & " " & $cd1_name
		Case ($cd_pos = 1 Or ($cd_pos = 3 And $cd2_name = "no_drive")) And $cd_info_type = 5
			Return $cd1 & " " & $cd1_name & " " & $cd1_fw
		Case $cd_pos = 2 And $cd_info_type = 1
			Return $cd2
		Case $cd_pos = 2 And $cd_info_type = 2
			Return $cd2_name
		Case $cd_pos = 2 And $cd_info_type = 3
			Return $cd2_fw
		Case $cd_pos = 2 And $cd_info_type = 4
			Return $cd2 & " " & $cd2_name
		Case $cd_pos = 2 And $cd_info_type = 5
			Return $cd2 & " " & $cd2_name & " " & $cd2_fw
		Case $cd_pos = 3 And $cd_info_type = 1
			Return $cd1 & " | " & $cd2
		Case $cd_pos = 3 And $cd_info_type = 2
			Return $cd1_name & " | " & $cd2_name
		Case $cd_pos = 3 And $cd_info_type = 3
			Return $cd1_fw & " | " & $cd2_fw
		Case $cd_pos = 3 And $cd_info_type = 4
			Return $cd1 & " " & $cd1_name & " | " & $cd2 & " " & $cd2_name
		Case $cd_pos = 3 And $cd_info_type = 5
			Return $cd1 & " " & $cd1_name & " " & $cd1_fw & " | " & $cd2 & " " & $cd2_name & " " & $cd2_fw
	EndSelect
EndFunc   ;==>_GetCdDriveInfo

Alles anzeigen

**BugFix**

Eigentlich wollte ich nur 'CDTray' testen.
Daraus geworden ist jetzt ein kleines Programm, dass automatisch die physikalischen CD/DVD-Laufwerke sucht mit Laufwerksbuchstaben und korrekter Bezeichnung.
Vielleicht hab ich auch das Fahrrad mal wieder neu erfunden - aber Spaß gemacht hats trotzdem.
Geschrieben mit der aktuellen Beta.

Spoiler anzeigen

C

#include <String.au3>
#include <GuiConstants.au3>


$cd1 = ""
$cd1_name = ""
$cd2 = ""
$cd2_name = ""
$p2 = 0


For $a = 68 to 90
	$lw = Chr($a)
	$reg = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices","\DosDevices\" & $lw & ":")
	$wert = ""
	$name = ""
	For $i = 1 To StringLen($reg)-2 Step 2
		$tmp = _HexToString(StringMid($reg,$i,2))
		If $tmp <> "" Then
			$wert = $wert & $tmp	
		EndIf
	Next
	$p1 = StringInStr($wert, "#")+1
	$type = StringMid($wert, $p1, 5)
	If $type = "CdRom" Then
		$p2 = StringInStr($wert, "__")
		If $p2 > 6 Then
			$name = StringMid($wert, $p1+5, $p2-($p1+5))
			$name = StringReplace($name,"_"," ")
			If $cd1 = "" Then
				$cd1 = $lw & ":"
				$cd1_name = $name
			Else
				$cd2 = $lw & ":"
				$cd2_name = $name
			EndIf
		EndIf	
	EndIf
	$p2 = 0
Next


GuiCreate("CD/DVD - Laufwerke", 540, 139,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Group_1 = GuiCtrlCreateGroup("Laufwerk", 20, 20, 270, 100)
$Radio_2 = GuiCtrlCreateRadio($cd1 & "   " & $cd1_name, 40, 50, 200, 20)
GUICtrlSetState($Radio_2,$gui_checked)
$Radio_3 = GuiCtrlCreateRadio($cd2 & "   " & $cd2_name, 40, 80, 200, 20)
$Group_4 = GuiCtrlCreateGroup("Schublade", 310, 20, 120, 100)
$Button_5 = GuiCtrlCreateButton("Öffnen", 330, 50, 80, 20)
GUICtrlSetState(-1,$GUI_FOCUS)
$Button_6 = GuiCtrlCreateButton("Schließen", 330, 80, 80, 20)
$Button_7 = GuiCtrlCreateButton("Ende", 450, 100, 70, 20)
$Pic_8 = GuiCtrlCreatePic(@ScriptDir & "\DVD_Lw_68x60.jpg", 450, 27, 68, 60)


GuiSetState()
While 1
	$reader = GUICtrlRead($Radio_2)
	$writer = GUICtrlRead($Radio_3)
	$msg = GuiGetMsg()
	If $reader = 1 Then
		$lw = $cd1
	EndIf
	If $writer = 1 Then
		$lw = $cd2
	EndIf
	Select
	Case $msg = $Button_5
		CDTray($lw, "open")	
	Case $msg = $Button_6
		CDTray($lw, "closed")
	Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button_7
		ExitLoop
	EndSelect
WEnd
Exit

Alles anzeigen

**BugFix**

Vielen Dank und schönen Sonntag noch!

Edit:
Ja, ging ganz einfach - erst Beta installieren, dann die neueste Version von SciTE installieren (erkennt die alte Installation und macht ein Update) --> Fertig!

**BugFix**

Hallo,
ich habe mir die Beta-Version von Autoit installiert und möchte sie nun gern in SciTE 'zum Leben erwecken'.
In den 'au3.properties' habe ich im Kapitel '# 0 Beta RUN' die auskommentierte Zeile ';command.0.*.au3=$(autoit3dir)\beta\autoit3.exe /ErrorStdOut "$(FilePath)"' freigegeben.
Unklar ist mir aber, wie ich SciTE dazu bewegen kann die neuen Funktionen in die Autovervollständigung zu übernehmen.

**BugFix**

Hi, nach langer Zeit mal wieder was von mir.
Hintergrund:
Ich arbeite in einer Firma, die u. a. Medizin. Software vertreibt. Diese stammt aus den USA und ist dadurch sowohl in eglischen als auch deutsche Versionen am Markt.
Ich hab nun ein kleines Prog geschrieben um Inhaltsverzeichnisse von Datensicherungen zu erstellen mit Auflistung Patient und Meßdatum.
Dabei ist mir erstmals aufgefallen, dass es an deutschen und amerikanischen Datumsformaten zusammen 20 ! Variationen gibt. Um hier mit meinem Prog unabhängig zu sein brauchte ich also eine Konvertierungsfunktion. Vielleicht ist sie ja auch jemand anderem von Nutzen.

Code

;===============================================================================
;
; Function Name:   	_MultiDateToNorm()
;
; Description:      Konvertiert folgende Datumsformate: 
;					(T)T.(M)M.(JJ)JJ		(deutsch)
;					(M)M/(T)T/(JJ)JJ	  	(amerikanisch)
;					(T)T-Mon-(JJ)JJ			(amerikanisch, lang)
;
; Syntax:			_MultiDateToNorm($date,[$s_sort])
;
; Parameter:		$date  - zu konvertierendes Datum in einem der angeführten Formate
;					optional: 
;					$s_sort - Vorgabe = 0 (inaktiv); 1 für Ausgabe sortierbarer String
;
; Return Value:		(TT.MM.JJJJ); optional (JJJJ-MM-TT)
;
; Author:			BugFix (bug_fix@web.de)
;
;===============================================================================
Func _MultiDateToNorm($date,$s_sort = 0)
	If StringMid($date,2,1) = "." Then				; Tag dt. einstellig ?
		$date = "0" & $date							; Vornull Tag
	EndIf
	If StringMid($date,2,1) = "/" Then				; Monat amerik. einstellig ?
		$date = "0" & $date							; Vornull Monat
	EndIf
	If StringMid($date,2,1) = "-" Then				; Tag amerik. lang einstellig ?
		$date = "0" & $date							; Vornull Tag
	EndIf
	If StringMid($date,5,1) = "." Then				; Monat dt. einstellig ?
		$tmp = StringTrimLeft($date,3)
		$date = StringLeft($date,3) & "0" & $tmp	; Vornull Monat
	EndIf
	If StringMid($date,5,1) = "/" Then				; Tag amerik. einstellig ?
		$tmp = StringTrimLeft($date,3)
		$date = StringLeft($date,3) & "0" & $tmp	; Vornull Tag
	EndIf
	If StringLen($date) = 8 Or StringLen($date) = 9 Then	; Jahr 2-stellig ?
		$strJJ = StringRight($date,2)				; Zeichen für Jahr selektieren
		$date = StringTrimRight($date,2)			; beide Zeichen für Jahr abschneiden
		If $strJJ < 30 Then						
			$strJH = "20"							; 00 bis 29 sind 20..
		Else
			$strJH = "19"							; 30 bis 99 sind 19..
		EndIf
		$date = $date & $strJH & $strJJ				; Jahr jetzt 4-stellig
	EndIf
	Select
	Case StringMid($date,3,1) = "/"					; amerik. Format "MM/TT/JJJJ" ?
		$strMM = StringLeft($date,2)
		$strTT = StringMid($date, 4,2)
		$date = $strTT & "." & $strMM & "." & StringRight($date,4)
	Case StringMid($date,3,1) = "-"					;amerik. Format "TT-Mon-JJJJ" ?
		$strTT = StringLeft($date,2)
		$strMM = StringUpper(stringmid($date,4,3))
		Select
		Case $strMM = "JAN"
			$strMM = "01"
		Case $strMM = "FEB"
			$strMM = "02"
		Case $strMM = "MAR"
			$strMM = "03"
		Case $strMM = "APR"
			$strMM = "04"
		Case $strMM = "MAY"
			$strMM = "05"
		Case $strMM = "JUN"
			$strMM = "06"
		Case $strMM = "JUL"
			$strMM = "07"
		Case $strMM = "AUG"
			$strMM = "08"
		Case $strMM = "SEP"
			$strMM = "09"
		Case $strMM = "OCT"
			$strMM = "10"
		Case $strMM = "NOV"
			$strMM = "11"
		Case $strMM = "DEC"
			$strMM = "12"
		EndSelect
		$date = $strTT & "." & $strMM & "." & StringRight($date,4)
	EndSelect
	If $s_sort = 1 Then									; Optionsschalter gesetzt ?
		$date = StringRight($date,4) & "-" & StringMid($date,4,2) & "-" & StringMid($date,1,2) 	; als sortierbarer String
	EndIf
	Return $date
EndFunc ;==>_MultiDateToNorm()

Alles anzeigen

Edit:
Ich hab die Funktion noch etwas erweitert. Enthalten ist jetzt ein optionaler Schalter um die Ausgabe als sortierbarer String (JJJJ-MM-TT) zu erreichen. In ListView-Feldern kann man Datumsangaben nur so vernüftig sortieren.
Abgeändert habe ich auch die Zuordnung des Jahrhunderts zur Jahreszahl. Die war bisher speziell für mein Programm konfiguriert - jetzt hab ich sie wie in Windows üblich verwendet (..30 bis ..99 = 19.. / ..00 bis ..29 = 20.. ).

Wer es nur mal probieren möchte - im Code habe ich jetzt eine GUI zum Testen vorangestellt.

**BugFix**

Hi, ich bin wahrscheinlich hier der totale Grufti . Die ersten Datenträger, die ich kennen lernte hießen Lochkarten und waren damals das non plus ultra :] . Ich war da so etwa 10 Jahre und sofort fasziniert.
Ich stamme aus der ehemaligen DDR und hatte dann das Glück Anfang der 80'er Jahre einen Computerbausatz zu erstehen (64 kB RAM !!, externer Datenspeicher-Kasettenrecorder). Ja, dann gings los, Basicprogrammierung im schönsten Spaghetticode. Ich durfte auch im Betrieb an einem PC arbeiten. Da lief die lizenzfrei gekupferte Version von dBase III, hieß im Osten REDABAS :] .
Nach der Wende machte ich dann eine Umschulung zum EDV-Kaufmann. Während der Ausbildung lernten wir dann ordentlich strukturiert zu programmieren (Turbo-Pascal, Fortran), leider aber noch keine objektorientierte Programmierung. Das habe ich dann später mit Learning by doing nachgeholt (VBA).
Allerdings lassen mir mein Job und meine Familie kaum Zeit diesem Hobby intensiv und regelmäßig nachzugehen .
Somit beschränkt sich das immer auf das Erstellen von Applikationen, die ich hauptsächlich im betrieblichen Umfeld brauche.

**BugFix**

@all
Danke für eure schnellen Antworten!

Die Suche hatte ich übrigens bemüht, sowohl hier als auch in den anderen Autoit-Foren. Aber zu 'systray' und 'hide icon' war nichts entsprechendes zu finden.
In der Hilfe hatte ich auch nach 'systray' statt nur 'tray' gesucht. Darum war ich nicht fündig. Hab wohl 'ne Veranlagung Dinge zu komplizieren

**BugFix**

Hallo,
ist es eigentlich möglich ein Script auszuführen, ohne dass ein Icon im Systray aktiv wird?
Das Problem ist, dass ein einfacher Klick auf das Icon genügt um das Script pausieren zu lassen (oder läßt sich das evtl. verhindern - wenn ja, wie?).

**BugFix**

Genau das suchte ich. Danke.
Hatte die Funktionsreferenz gar nicht im Einzelnen durchforstet, sondern der Faulheit halber nur die Hilfe mit Stichwort 'window' durchsucht aber nur WinGetHandle() gefunden.

**BugFix**

Hallo,
hab schon mal alle autoit-Foren durchforstet aber dazu nichts gefunden. Hat schon mal jemand versucht eine Func zu kreieren mit der ein Fenstertitel zur Laufzeit bestimmt werden kann, so in der Art: _TitleWinActiv() ?
Falls ja brauch ich nicht versuchen das Fahrrad nochmal zu erfinden.
Wenn nicht hab ich doch mal wieder 'ne lohnenswerte Aufgabe.

**BugFix**

Hier das Script:

**BugFix**

Hallo,
das hier waren meine ersten Gehversuche mit AutoIt. Ermittlung eines beliebigen Wochentages mit der Formel von Christian Zeller und Berechnung (fast) aller Feiertage (fix und variabel) Deutschlands.
Ich bin absolut begeistert von den Möglichkeiten, die diese Scriptsprache bietet. Das folgende Prog hab ich vergleichsweise auch mal in VB geschrieben. Die fertige EXE mit allen notwendigen Bibliotheken bringt es auf runde 5 MB! Das gleiche Ergebnis mit AutoIt ca. 130 kB!! - Und keine Installation notwendig.

Edit 13.12.2009:
Ich habe die Funktion _Feiertage() (aus Post #4) erweitert um den Gültigkeitsbereich. Bundeseinheitliche Gesetzliche Feiertage sind mit BG markiert, regional unterschiedliche gesetzliche Feiertage mit den ISO-Kürzeln der jeweiligen Bundesländer (BB, BE, BY...).
Die Daten können jetzt wahlweise gegliedert nach fixen und variablen Feiertagen (innerhalb sortiert) oder alle Feiertage gemeinsam sortiert ausgegeben werden.

Edit 18.04.2009:
Fehler bei falscher Datumswahl (31.06. etc.) gefixt

Edit 17.04.2009:
Nach langer Zeit habe ich mich mal rangesetzt und dieses Erstlingswerk von mir mal auf einen aktuellen Stand gebracht, sowohl von der AutoIt-Version her, als auch programmiertechnisch (schön geschrumpft).

Edit 17.12.2012:
Da es thematisch hierher passt, folgende Funktion zusätzlich: _DateToNameWeekDayGER( )
Es wird der deutsche Wochentagsname in Lang- oder Kurzform für ein bestimmtes Datum zurückgegeben.

_DateToNameWeekDayGER

[autoit]

#include <Date.au3>
;===============================================================================
; Function Name....: _DateToNameWeekDayGER
; Description......: Gibt den Namen des Wochentags (lang od. kurz) für ein übergebenes Datum zurück
; Parameter(s).....: $_sDate Datumstring in der Form "JJJJ/MM/TT"; "-1" (Standard) für Heute
; .................: $_iShort "0" (Standard) gibt den Langnamen, "1" den Kurznamen zurück
; Requirement(s)...: #include <Date.au3>
; Return Value(s)..: Erfolg Rückgabe deutscher Wochentagsname (Lang- od. Kurzform)
; .................: Fehler Leerstring u. @error = 1 Datumstring enthält ungültiges Datum
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _DateToNameWeekDayGER($_sDate=-1, $_iShort=0)
If $_sDate = -1 Then $_sDate = @YEAR & '/' & @MON & '/' & @MDAY
If Not _DateIsValid($_sDate) Then Return SetError(1,0,'')
Local $aWDay[8][2] = [[7],['Montag','Mo'],['Dienstag','Di'],['Mittwoch','Mi'],['Donnerstag','Do'],['Freitag','Fr'],['Sonnabend','Sa'],['Sonntag','So']]
Local $aSplit = StringSplit($_sDate, '/')
Return $aWDay[_DateToDayOfWeekISO($aSplit[1], $aSplit[2], $aSplit[3])][$_iShort]
EndFunc ;==>_DateToNameWeekDayGER

[/autoit]

Und hier nun das Ergebnis:

Spoiler anzeigen

[autoit]

; ----------------------------------------------------------------------------
; AutoIt Version: 3.3.0.0
;
;Osterformel (Gauss)
; a = Jahr mod 19
; b = Jahr mod 4
; c = Jahr mod 7
; H1 = Jahr div 100
; H2 = Jahr div 400
; N = 4 + H1 - H2
; M = 15 + H1 - H2 - [(8 * H1 + 13) div 25]
; d = (19 * a + M) mod 30
; e = (2 * b + 4 * c + 6 * d + N) mod 7
;wenn d + e = 35, dann ostern = 50
;wenn d = 28 und e = 6 und a > 10, dann ostern = 49
;in allen anderen Fällen: ostern = 22 + d + e
;ostern: Ostersonntag als Märzdatum
; ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Date.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
Global $aRadioT[31], $aRadioM[12], $aHDays, $aLabel[32][2], $x, $y