Frage zu StringReplace und Laufwerkauswahl mit AutoIt

bazii

Hallo,

ich benötige nochmals Hilfe. Im folgenden Code ist ein Beispiel enthalten, was zeigen soll was ich eigentlich möchte. Keine Ahnung ob das jemand nachvollziehen kann.
Zur Erklärung was ich nun versuche mit Worten zu erklären.

1. Laufwerkauswahl mit AutoIt:
Ich möchte, dass anstatt Ordner, nur Laufwerke beim Klick auf "Laufwerk auswählen" angezeigt werden. Geht das denn überhaupt? Ich nutze gerade @HomeDrive doch das ist wenig befriedigend.

2. StringReplace:
Ist es für Euch möglich, mir ein gutes Beispiel zu nennen, bei dem alle Festplattenlaufwerke von A-Z, (vorausgesetzt, wenn die diese vom Nutzer ausgewählt werden) in der Inputbox anstatt mit z. B. C:\ oder D:\ oder E:\ ohne "\" am Ende ausgegeben werden.

Wie gesagt, der Code im Anhang soll eher mehr verdeutlichen was ich möchte.
So würde es theoretisch auch funktionieren, was ich vorhabe, aber eben ohne Punkt 1 zu berücksichtigen und ohne zu Wissen, wie ich Laufwerk A-Z sinnvoll in der Inputbox ohne "\" ausgeben kann.

AutoIt

#Region
#AutoIt3Wrapper_Icon=
#AutoIt3Wrapper_Outfile=Beispiel.exe
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Res_Comment=BSP
#AutoIt3Wrapper_Res_Description=BSP
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=-BSP
#AutoIt3Wrapper_Res_Language=1031
#EndRegion
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
;;;;;;;;;;;;;;;;;;;;;;;;
;; Laufwerauswahl  ;;
;;                        ;;
;;                        ;;
;;;;;;;;;;;;;;;;;;;;;;;;
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
Global $g_hGUI, $Inputbox1, $laufwerkwahl, $Text1
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
$g_hGUI = GUICreate("Laufwerk auswählen", 758, 250, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_THICKFRAME))
    $Inputbox1 = GUICtrlCreateInput("Laufwerkauswahl nur über -Laufwerk wählen- möglich!", 230, 63, 500, 23, $ES_READONLY)
    GUICtrlSetTip(-1, "Dieses Feld füllt sich automatisch" & @CRLF & "über den Button -Laufwerk wählen-!")
    $laufwerkwahl = GUICtrlCreateButton("Laufwerk auswählen", 36, 63, 177, 25, $BS_ICON)
    $Text1 = GUICtrlCreateLabel("Bitte Laufwerk auswählen:", 36, 22, 396, 21)
    GUISetOnEvent($GUI_EVENT_CLOSE, __GUI_EVENT_CLOSE__)
    GUICtrlSetOnEvent($laufwerkwahl, __idButton_laufwerkwahl__)
    GUISetState(@SW_SHOW)
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
While Sleep(200)
WEnd
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
Func __GUI_EVENT_CLOSE__()
    Exit
EndFunc
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
Func __idButton_laufwerkwahl__()
    Local $laufwerkwahl_1 = FileSelectFolder("Ordner wählen", @HomeDrive, Default, "", $g_hGUI)
    If @error Then MsgBox(4096, "", "Keine Laufwerk ausgewählt")
    GUICtrlSetData($Inputbox1, $laufwerkwahl_1)
    ; Replace a blank space (' ') with a - (minus) character.
    	; Replace a blank space (' ') with a - (minus) character.
	Local $sString = StringReplace("C:\", "\", " ")
	Local $sString = StringReplace("D:\", "\", " ")
	Local $sString = StringReplace("E:\", "\", " ")
    GUICtrlSetData($Inputbox1, $sString)
EndFunc   ;==>__idButton_laufwerkwahl__

Alles anzeigen

**Xorianator**

Wenn du das Laufwerk selbst hast, und der Pfad z.B. "C:\" ist, dann sollte das mit

AutoIt

StringReplace($drive, "\\", ""); Oder nur ein Backslash? Kann das grad nicht testen

erledigt sein.

Mit

AutoIt

DriveGetDrive($DT_ALL)
;Siehe: 
;https://www.autoitscript.com/autoit3/docs/functions/DriveGetDrive.htm

bekommst du eine Liste aller Laufwerke.
Du könntest dann eine GUI bauen, in der die Laufwerke aufgelistet sind, bei der man sich dann durch Klick auf das jeweilige Laufwerk entscheidet, welches man will.

bazii

Hallo Xoriantor,

zu 1.:
Der Nutzer soll ja sein Laufwerk auswählen können. Daher fragte ich ja nach einer besseren Möglichkeit.

zu 2.:

AutoIt

Local $AlleLaufwerke = DriveGetDrive($DT_ALL)
Local $laufwerkwahl_1 = FileSelectFolder("Ordner wählen", $AlleLaufwerke, "", "", $g_hGUI)

Leider startet DriveGetDrive($DT_ALL) im @DesktopDir. Jedoch sieht dabei & $DT_REMOVABLE genauso aus wie & $DT_REMOVABLE oder auch beide zusammen.

Ich nutze Win10x64. Keine Ahnung ob es damit zusammenhängt oder ob mir FileSelectFolder dabei einen Strich durch die Rechung macht.

zu 3.:

Zitat von Xoriantor

Du könntest dann eine GUI bauen, in der die Laufwerke aufgelistet sind, bei der man sich dann durch Klick auf das jeweilige Laufwerk entscheidet, welches man will.

Das würde bestimmt die vernünftigste Lösung sein, jedoch sollen nur die Laufwerke auswählbar sein und nicht deren Verzeichnisse, wie es momentan bei mir mit DriveGetDrive($DT_ALL) leider ist. Ein FileSelectDrive wäre ideal aber das gbt es ja nicht. Leider.

Lottich

Hey. ich hab dein Script mal modifiziert. Aus dem Button zur Auswahl wurde eine Combobox...

AutoIt

#Region
#AutoIt3Wrapper_Icon=
#AutoIt3Wrapper_Outfile=Beispiel.exe
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Res_Comment=BSP
#AutoIt3Wrapper_Res_Description=BSP
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=-BSP
#AutoIt3Wrapper_Res_Language=1031
#EndRegion
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
;;;;;;;;;;;;;;;;;;;;;;;;
;; Laufwerauswahl  ;;
;;                        ;;
;;                        ;;
;;;;;;;;;;;;;;;;;;;;;;;;
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>
#include <Array.au3>
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
Global $g_hGUI, $Inputbox1, $laufwerkwahl, $Text1
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
$g_hGUI = GUICreate("Laufwerk auswählen", 758, 250, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_THICKFRAME))
$Inputbox1 = GUICtrlCreateInput("Laufwerkauswahl nur über -Laufwerk wählen- möglich!", 230, 63, 500, 23, $ES_READONLY)
GUICtrlSetTip(-1, "Dieses Feld füllt sich automatisch" & @CRLF & "über den Button -Laufwerk wählen-!")


;~ $laufwerkwahl = GUICtrlCreateButton("Laufwerk auswählen", 36, 63, 177, 25, $BS_ICON)
$laufwerkwahl = GUICtrlCreateCombo("Laufwerk auswählen", 36, 63, 177, 25)
__Laufwerke__()


$Text1 = GUICtrlCreateLabel("Bitte Laufwerk auswählen:", 36, 22, 396, 21)
GUISetOnEvent($GUI_EVENT_CLOSE, __GUI_EVENT_CLOSE__)
GUICtrlSetOnEvent($laufwerkwahl, __idButton_laufwerkwahl__)
GUISetState(@SW_SHOW)
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
While Sleep(200)
WEnd
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
Func __GUI_EVENT_CLOSE__()
	Exit
EndFunc   ;==>__GUI_EVENT_CLOSE__
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +
Func __idButton_laufwerkwahl__()
;~ 	Local $laufwerkwahl_1 = FileSelectFolder("Ordner wählen", @HomeDrive, Default, "", $g_hGUI)
;~ 	If @error Then MsgBox(4096, "", "Keine Laufwerk ausgewählt")
;~ 	GUICtrlSetData($Inputbox1, $laufwerkwahl_1)
;~ 	; Replace a blank space (' ') with a - (minus) character.
;~ 	; Replace a blank space (' ') with a - (minus) character.
;~ 	Local $sString = StringReplace("C:\", "\", " ")
;~ 	Local $sString = StringReplace("D:\", "\", " ")
;~ 	Local $sString = StringReplace("E:\", "\", " ")
;~ 	GUICtrlSetData($Inputbox1, $sString)
	GUICtrlSetData($Inputbox1, GUICtrlRead($laufwerkwahl))
EndFunc   ;==>__idButton_laufwerkwahl__


Func __Laufwerke__()
	Local $aArray = DriveGetDrive($DT_Fixed), $aRet
	If @error Then
		MsgBox(0, "", "It appears an error occurred.")
		Return 0
	Else
		For $i = 1 To $aArray[0]
			$aRet &= StringUpper($aArray[$i]) & "|"
		Next
		GUICtrlSetData($laufwerkwahl, StringTrimRight($aRet, 1))
	EndIf
EndFunc   ;==>__Laufwerke__

Alles anzeigen

Alles unnötige hab ich ausgeklammert und am Scriptende ist eine neue Funktion hinzu gekommen: __Laufwerke__()
Diese sorgt dafür, dass die Combo mit allen "Festplatten" zur Auswahl befüllt wird. Aufruf 1malig in Zeile 35

bazii

Hallo Lottich,

das ist die genau die Lösung für mein Vorhaben, welche ich benötigt habe. Herzlichen Dank.

AutoIt

Func __Laufwerke__()
	Local $aArray = DriveGetDrive($DT_Fixed), $aRet
	If @error Then
		MsgBox(0, "", "It appears an error occurred.")
		Return 0
	Else
		For $i = 1 To $aArray[0]
			$aRet &= StringUpper($aArray[$i]) & "|"
		Next
		GUICtrlSetData($laufwerkwahl, StringTrimRight($aRet, 1))
	EndIf
EndFunc   ;==>__Laufwerke__

Alles anzeigen

Ein paar Zeilen Code haben mir den Abend und sicher auch eine Menge an Freizeit gerettet.

@Xoriantor: Auch Dir vielen Dank für Deine Hilfe.

Mein Fazit für heute:
AutoIt hat so viele Möglichkeiten..... Dies wird durch die Arbeitsweise verschiedenster Benutzer mehr als deutlich. Faszinierend!

Lottich

Kommt zwar ziemlich selten vor, aber dann und wann kann ich auch mal helfen

bazii

Hallo

Der gepostete Code mit DriveGetDrive($DT_Fixed)zeigt alle Festplatten-Laufwerke an. Mit $DT_REMOVABLE ("REMOVABLE") bekomme ich auch meine eingesteckten USB Geräte angezeit.

Gibt es eine Möglichkeit, aus der Laufwerksanzeige z. B. USB-Stifte, DigitalCam und SSD-Laufwerke auszufiltern / zu entfernen?

AutoIt

Func __Laufwerke__()
	Local $aArray = DriveGetDrive($DT_Fixed), $aRet
	If @error Then
		MsgBox(0, "", "It appears an error occurred.")
		Return 0
	Else
		For $i = 1 To $aArray[0]
			$aRet &= StringUpper($aArray[$i]) & "|"
		Next
		GUICtrlSetData($laufwerkwahl, StringTrimRight($aRet, 1))
	EndIf
EndFunc   ;==>__Laufwerke__

Alles anzeigen

**autoBert**

Das Array durchsuchen, weitere Infos (DriveStatus, DriveGetType etc.) zum Device einholen und bei Bedarf aus Array löschen.

Hier noch ein Skript-Auszug:

Code

$aDrives[$i][1] = DriveGetType($aLdrives[$iFound] & '\')
				$aDrives[$i][2] = DriveGetType($aLdrives[$iFound] & '\', 2)
				$aDrives[$i][3] = DriveGetType($aLdrives[$iFound] & '\', 3)
				$aDrives[$i][4] = DriveStatus($aLdrives[$iFound] & '\')
				$aDrives[$i][5] = DriveGetSerial($aLdrives[$iFound] & '\')
				$aDrives[$i][6] = DriveGetLabel($aLdrives[$iFound] & '\')
				$aDrives[$i][7] = DriveGetFileSystem($aLdrives[$iFound] & '\')
				$aDrives[$i][8] = DriveSpaceFree($aLdrives[$iFound] & '\')
				$aDrives[$i][9] = DriveSpaceTotal($aLdrives[$iFound] & '\')
				Switch $aDrives[$i][1]
					Case 'Unknown'
						$hIcon = $UNKNOWN_ICON_INDEX
					Case 'RAMDisk'
						$hIcon = $Ram_ICON_INDEX
					Case 'CDRom'
						$hIcon = $CDRom_ICON_INDEX
					Case 'Fixed'
						$hIcon = $HDD_ICON_INDEX
					Case 'Removavle'
						$hIcon = $Removable_ICON_INDEX
					Case 'Network'
						$hIcon = $Network_ICON_INDEX
				EndSwitch
				If $bDelete Then
					$aDrives[$i][0] = _GUICtrlTreeView_AddChildFirst($idTVLocal, $hLocal, Chr($i + 65) & ':\', $hIcon, $hIcon)
				Else
					$aDrives[$i][0] = _GUICtrlTreeView_AddChild($idTVLocal, $hLocal, Chr($i + 65) & ':\', $hIcon, $hIcon)
				EndIf

Alles anzeigen

bazii

Hallo,

vielen Dank für die Antwort, hatte leider Deinen Beitrag erst heute entdeckt.