Directory list to combobox - need help

[vacko]

Hi,

in my script I need list all directories in given path (not recursive). All directories are named according to some structure, I need extract some, let's call it "short name", from directory name and use it in combo box. After user select "short name" from combo box, script should return full path to corresponding directory.

Here is example of directory structure

..City1_Country_some_other_strings

..City2_Country_some_other_strings

..City3_Country_some_other_strings

..City4_City5_Country_some_other_strings

..City6_City7_City8_City9_Country_some_other_strings

"City" is some word which is always different and which I want use in combo box (I call it "short name"), but often there is more this words (separated by _)

"Country" is word which is always present (and still same) in directory name, but I no need it

some_other_strings are some other strings (letters, numbers, symbols), which I also no need

My script is already working, but it show only first short name in combo box.

How to show all short names (and return correct path) ?

In my example "output",

first column is what I want display in combobox, second column is path should be returned by script

City1 full_pathCity1_Country_some_other_strings

City2 full_pathCity2_Country_some_other_strings

City3 full_pathCity3_Country_some_other_strings

City4 full_pathCity4_City5_Country_some_other_strings

City5 full_pathCity4_City5_Country_some_other_strings

City6 full_pathCity6_City7_City8_City9_Country_some_other_strings

City7 full_pathCity6_City7_City8_City9_Country_some_other_strings

City8 full_pathCity6_City7_City8_City9_Country_some_other_strings

City9 full_pathCity6_City7_City8_City9_Country_some_other_strings\

dirTOcombo.au3

Edited October 1, 2012 by vacko

[bogQ]

cant you use something like StringSplit on _Country?

$array = StringSplit('City6_City7_City8_City9_Country_some_other_strings\ ', '_Country', 1)
MsgBox(0,'',$array[1])

[vacko]

cant you use something like StringSplit on _Country?

$array = StringSplit('City6_City7_City8_City9_Country_some_other_strings ', '_Country', 1)
MsgBox(0,'',$array[1])

No, because delimiter is not "_Country" but just "_". Country and words behind it are not necessary.

Also, City6_City7_City8_City9 should be 4 separated records in 2D array, linked with (same) path.

[abberration]

I modified this part of your code starting around line 57.

; convert 1D array into 2D (add short name into Col 0 and put original dir name into Col 1)
        Global $DirList2D[1][2]
        $j = 1
        For $A = 1 To $DirListTMP[0]
            $temp = StringLeft ($DirListTMP[$A], StringInStr($DirListTMP[$A], $constatnString)-1)
            $temp = StringSplit($temp, "_")
            _ArrayDelete($temp, UBound($temp))
            For $i = 1 To $temp[0] - 1 Step 1
                $DirList2D[$j - 1][0] = $temp[$i]
                $DirList2D[$j - 1][1] = $DirListTMP[$A]
                $j += 1
                ReDim $DirList2D[$j][2]
            Next
        Next
        _ArrayDelete($DirList2D, UBound($DirList2D)) ; gets rid of trailing space at end of array

[Spiff59]

Along the line of what BogQ said...

If the string "_Country" is in each line, and not something like "_Canada" or "_Italy" then just change line 61 to:

$DirList2D[$A-1][0] = StringLeft ($DirListTMP[$A], StringInStr($DirListTMP[$A], "_Country")-1)

[vacko]

I modified this part of your code starting around line 57.

; convert 1D array into 2D (add short name into Col 0 and put original dir name into Col 1)
Global $DirList2D[1][2]
$j = 1
For $A = 1 To $DirListTMP[0]
$temp = StringLeft ($DirListTMP[$A], StringInStr($DirListTMP[$A], $constatnString)-1)
$temp = StringSplit($temp, "_")
_ArrayDelete($temp, UBound($temp))
For $i = 1 To $temp[0] - 1 Step 1
$DirList2D[$j - 1][0] = $temp[$i]
$DirList2D[$j - 1][1] = $DirListTMP[$A]
$j += 1
ReDim $DirList2D[$j][2]
Next
Next
_ArrayDelete($DirList2D, UBound($DirList2D)) ; gets rid of trailing space at end of array

Seems to be OK, thanks a lot !