ComboBox with AddDir want to remove []

[roofninja]

This is a cutout of some code that works but I don't want the brackets "[]" around the name ether/or listed in the Combo Box or when the Data is displayed/or used. What am I missing?

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GUIComboBox.au3>
#include <ButtonConstants.au3>
Local $item[20]
If $item[3] = "" Then $item[3] = "Missing"
Menu($item[3])
Exit
;-------------------------------------------
Func Menu(ByRef $03)
Local $hGui, $msg, $save, $02 = "NA"
$hGui = GUICreate("Inventory", 400, 200)
GUICtrlCreateLabel("Name", 10, 90)
  $item[3] = GUICtrlCreateCombo($03, 90, 90, 250, 30)
  _GUICtrlComboBox_BeginUpdate($item[3])
  _GUICtrlComboBox_AddDir($item[3], "C:\Documents and Settings\*",$DDL_DIRECTORY)
  _GUICtrlComboBox_EndUpdate($item[3])
$save = GUICtrlCreateButton("Save", 330, 160, 60, 30)
;-----------------------------------------------------------------------------------
GUISetState()
While 1
  $msg = GUIGetMsg()
  Switch $msg
   Case $GUI_EVENT_CLOSE
    ExitLoop
   Case $save
    $item[3] = GUICtrlRead($item[3])
     ;remove the brackets from name
     If StringRegExp($item[3],"[][]",1) then
     $item[3] =StringTrimLeft(StringTrimRight($item[3],1),1)
     EndIf
     MsgBox(0,"Name","Name__"&$item[3])
    GUIDelete()
    ExitLoop
  EndSwitch
WEnd
GUIDelete()
EndFunc   ;==>Menu

[Zedna]

; Func _GUICtrlComboBox_AddDir($hWnd, $sFile, $iAttributes = 0, $fBrackets = True)

_GUICtrlComboBox_AddDir($item[3], "C:Documents and Settings*",$DDL_DIRECTORY, False)

[roofninja]

I tried that but it didn't work. I still get the brackets.

[BrewManNH]

The only time the $fBrackets parameter is used is when you're using it with $DDL_DRIVES, you'll probably have to create your own combo update routine to avoid getting those brackets around the names.

[Zedna]

Look at source of _GUICtrlComboBox_AddDir() to see how $fBracketsparameter is implemented and accomodate it to your needs.

[roofninja]

Look at source of _GUICtrlComboBox_AddDir() to see how $fBracketsparameter is implemented and accomodate it to your needs.

I have looked at the help page and I didn't see it. I was hoping that it was there but I just didn't see it there.

[BrewManNH]

He was referring to the source code for the function in the GUICombBox.au3 file. Although, that probably won't help you much as it's using a pretty convoluted work-around to get rid of the brackets for the $DDL_DRIVES command that might be hard for a newcomer to understand right away.

[roofninja]

This is still a work-in-progress but I did add an if statement to remove the brackets. I am not good with the StringRegExp syntax. It doesn't work.

Also, switching from win7 to XP, I can now see that I don't have the AddDir location correct.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GUIComboBox.au3>
#include <ButtonConstants.au3>
Local $item[20]
If $item[3] = "" Then $item[3] = "Missing"
Menu($item[3])
Exit ;end of main
;----------------------Func call list-------------
Func Menu(ByRef $03)
Local $hGui, $msg, $save, $02 = "NA"
$hGui = GUICreate("Inventory", 400, 200)
GUICtrlCreateLabel("Name", 10, 90)
  $item[3] = GUICtrlCreateCombo($03, 90, 90, 250, 30)
  _GUICtrlComboBox_BeginUpdate($item[3])
  _GUICtrlComboBox_AddDir($item[3], 'C:"Documents and Settings"*',$DDL_DIRECTORY,False)
  _GUICtrlComboBox_EndUpdate($item[3])
$save = GUICtrlCreateButton("Save", 330, 160, 60, 30)
;-----------------------------------------------------------------------------------
GUISetState()
While 1
  $msg = GUIGetMsg()
  Switch $msg
   Case $GUI_EVENT_CLOSE
    ExitLoop
   Case $save
    $item[3] = GUICtrlRead($item[3])
     ;remove the brackets from names
     If StringRegExp($item[3],"[][]",1) then
      $item[3] =StringTrimLeft(StringTrimRight($item[3],1),1)
     EndIf
     MsgBox(0,"Name","Name__"&$item[3])
    GUIDelete()
    ExitLoop
  EndSwitch
WEnd
GUIDelete()
EndFunc   ;==>Menu

[BrewManNH]

If all you're doing is getting the user folders and putting them into a combobox here's a snippet of code I made that should help with that. It will list all the users under XP and above, without listing the Administrator account or any of the other default user accounts like All Users, Default User, etc.

expandcollapse popup

If @OSVersion == "WIN_7" Or @OSVersion == "WIN_VISTA" Or @OSVersion = "WIN_2008" Then
    $NewOS = True
Else
    $NewOS = False
EndIf
If Not $NewOS Then
    $UserList = _FileListToArray("C:Documents and Settings", "*.*", 2)
    For $I = 1 To $UserList[0]
        ReDim $aUserList[$X + 1]
        Select
            Case $UserList[$I] = "All Users"
            Case $UserList[$I] = "Default User"
            Case $UserList[$I] = "NetworkService"
            Case $UserList[$I] = "LocalService"
            Case $UserList[$I] = "Administrator"
            Case Else
                $aUserList[$X] = $UserList[$I]
                $X += 1
        EndSelect
    Next
Else
    $UserList = _FileListToArray("C:Users", "*.*", 2)
    For $I = 1 To $UserList[0]
        ReDim $aUserList[$X + 1]
        Select
            Case $UserList[$I] = "All Users"
            Case $UserList[$I] = "Default"
            Case $UserList[$I] = "Default User"
            Case $UserList[$I] = "Public"
            Case Else
                $aUserList[$X] = $UserList[$I]
                $X += 1
        EndSelect
    Next
EndIf
$sUserList = _ArrayToString($aUserList, "|")
; to add this list to a combo box
Global $UserName = GUICtrlCreateCombo("", 40, 130, 100)
GUICtrlSetData(-1, $sUserList)

[roofninja]

BrewManNH,

Thanks for the snippet, but I was hoping someone had a fix that was more in line with what I started with. It looks like I will need to do some more coding when I thought that I found a shortcut.

[roofninja]

How do I get this to strip out everything but Letters. I want only letters ether capital or lower case.

StringRegExpReplace($item[3], "[^sa-zA-Z0-9òàùèéì]", "")

Edited April 17, 2012 by roofninja

[BrewManNH]

Why are you so dead set to use a function that doesn't do what you want it to do? It would be far easier to write your own routine to get the information from a directory and put it into a combobox than trying to rewrite one that doesn't work right for the results you want.

[roofninja]

I can be very single minded at times and don't want to deviate from it. It's character flaw that I have. Leighann says that it drives her crazy. It is Like, if I start something, it bothers me that I can't finish it. Especially on the same day. I have stayed up for 16 hours trying to finish something before I realize that I have to go to work the next day. That is why, at times, I don't want to ask for help and when I don't get what I am trying to do, it frustrates me to no end. I can't help it. My father and grandfather are the same way. Sorry.

[roofninja]

I was able to finally solve my problem. Here is what my code looks like.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GUIComboBox.au3>
#include <ButtonConstants.au3>
#include <Constants.au3>
#include <Misc.au3>
If _Singleton("Warning", 1) = 0 Then
MsgBox(0, "Warning", "An occurence of your program is already running")
Exit
EndIf
Local $item[20]
If $item[3] = "" Then $item[3] = "Missing"
Menu($item[3])
Exit ;end of main
;----------------------Func call list-------------
Func Menu(ByRef $03)
Local $hGui, $msg, $save, $02 = "NA", $dfiles
$hGui = GUICreate("Inventory", 400, 200)
GUICtrlCreateLabel("Name", 10, 90)
  $item[3] = GUICtrlCreateCombo($03, 90, 90, 250, 30)
  _GUICtrlComboBox_BeginUpdate($item[3])
  $search = FileFindFirstFile("C:Documents and Settings*.*") ;C:Documents and Settings
  While 1
   $dfiles = FileFindNextFile($search)
   If @error Then ExitLoop
   Switch $dfiles
    Case "All Users";skip
    Case "Default User";skip
    Case "NetworkService";skip
    Case "LocalService";skip
    Case "Administrator";skip
    Case "Default";skip
    Case "Public";skip
    Case Else
    _GUICtrlComboBox_AddString($item[3],$dfiles)
   EndSwitch
  WEnd
  FileClose($search); Close the search handle
  _GUICtrlComboBox_EndUpdate($item[3])
$save = GUICtrlCreateButton("Save", 330, 160, 60, 30)
;-----------------------------------------------------------------------------------
GUISetState()
While 1
  $msg = GUIGetMsg()
  Switch $msg
   Case $GUI_EVENT_CLOSE
    ExitLoop
   Case $save
    $item[3] = GUICtrlRead($item[3])
    MsgBox(0,"Name","Name__"&$item[3])
    GUIDelete()
    ExitLoop
  EndSwitch
WEnd
GUIDelete()
EndFunc   ;==>Menu
Exit

[BrewManNH]

Looks familiar, but at least it's working for you.