How to replace text in a control from value in an INI file.

[spac3m0nk3y]

I have a listbox containing items like so:

JDM
BCC
PAJ
REP

I want to replace each item in the listbox with a corresponding item in an INI file:

INI:

[Names]
JDM=Mack, Joe (JDM)
BCC=Carver, Brian (BCC)
PAJ=Johnson, Paul (PAJ)
REP=Plink, Ralph (REP)

So, after it's done, my listbox will have:

Mack, Joe (JDM)
Carver, Brian (BCC)
Johnson, Paul (PAJ)
Plink, Ralph (REP)

How do I do this?

[evilertoaster]

GUICtrlSetData() is used to change list items. The values can be read in using IniRead()'s.

[spac3m0nk3y]

GUICtrlSetData() is used to change list items. The values can be read in using IniRead()'s.

Perhaps I didn't explain what I'm looking for well enough.

I'm looking for instruction on how to compare the items in my listbox to those in the INI file to get the full name and then place the full name in the listbox.

[Josbe]

Perhaps I didn't explain what I'm looking for well enough.

I'm looking for instruction on how to compare the items in my listbox to those in the INI file to get the full name and then place the full name in the listbox.

Like evilertoaster says:

Comparing:

Read the values stored in the INI file and listbox [GUICTRLRead()], use the '=' operator or StringInStr().

Replacing:

GUICtrlSetData() or some UDF function(GuiList UDF) for this task.

You need some help in the code? Please, try post your code first.

[spac3m0nk3y]

Here's the code that I have so far:

Func OnList()
    GUICtrlSetData($lblStatus, "Getting Providers...")
    $dictationPath = @UserProfileDir & "\Desktop\Dictation\"
    $provArray = _FileListToArrayEx($dictationPath, '*.dss')

    If (Not IsArray($provArray)) Or (@error = 1) Then
            MsgBox(262208, "List Providers Error", "No Files\Folders Found.   ")
        Return
    EndIf
    $pArray = '';$pArray has to be declared first since are using &= below to add to it
    For $x = 1 To $provArray[0] ; for loop to place the files in the list.
        $pArray &= StringLeft($provArray[$x], 3) & Chr(1); Notice &= to add each element to $pArray and notice & Chr(1) to use a delimiter for the next array
    Next
    $pArray = StringSplit(StringTrimRight($pArray, 0), Chr(1));StringTrimRight() is used to get rid of the last delimiter or we will have an empty element.
    _ArrayUnique($pArray, Chr(1), 1);Depending on which _ArrayUnique() you are using, you may have to do:  $pArray = _ArrayUnique($pArray)
    GUICtrlSetData($lstProviders, $pArray)
    ;Now we have to loop through each one to make it one string to add to the $lstproviders... of course, I can only assume that $lstProviders is an edit
    GUICtrlSetData($lstProviders, '');Empty the control $lstProviders
    $sHoldNewList = '';We will use this to hold the new list.
    For $iCC = 1 To UBound($pArray) - 1
        $sHoldNewList &= $pArray[$iCC] & Chr(124)
    Next
    $sHoldNewList = StringTrimRight($sHoldNewList, 2);@CRLF is 2 Chars, have to trim the fat off the ends
    GUICtrlSetData($lstProviders, $sHoldNewList)
    
    
    $provNames =  IniReadSection(@ScriptDir & "\providers.ini", "Names") ;Read provider names into a 2D array
    
    ; Code to place names into Listbox goes here.
    
EndFunc

[spac3m0nk3y]

Bump.

[SmOke_N]

Bump.

That code looks familiar

You have to read it into an array (the section) $inireadsection = IniReadSection()... Then you have to read the Control List into an array $splitcontrol = StringSplit(StringStripCR(GUICtrlRead(Control)), @LF), then go through the Section If $inireadsection[n][0] = $splitcontrol[n] Then do something.

There's your foundation... look forward to seeing what you come up with.

[spac3m0nk3y]

That code looks familiar

You have to read it into an array (the section) $inireadsection = IniReadSection()... Then you have to read the Control List into an array $splitcontrol = StringSplit(StringStripCR(GUICtrlRead(Control)), @LF), then go through the Section If $inireadsection[n][0] = $splitcontrol[n] Then do something.

There's your foundation... look forward to seeing what you come up with.

Heh, I wonder why it looks familiar.

Anyway, let me bang on it for a while and see what I can do. I will post whatever I come up with here.

[spac3m0nk3y]

Ugh, I totally suck at this, I'm coming up empty here.

;--------------- Functions ---------------
Func OnList()
    GUICtrlSetData($lblStatus, "Getting Providers...")
    $dictationPath = @UserProfileDir & "\Desktop\Dictation\"
    $provArray = _FileListToArrayEx($dictationPath, '*.dss')

    If (Not IsArray($provArray)) Or (@error = 1) Then
            MsgBox(262208, "List Providers Error", "No Files\Folders Found.   ")
        Return
    EndIf
    $pArray = '';$pArray has to be declared first since are using &= below to add to it
    For $x = 1 To $provArray[0] ; for loop to place the files in the list.
        $pArray &= StringLeft($provArray[$x], 3) & Chr(1); Notice &= to add each element to $pArray and notice & Chr(1) to use a delimiter for the next array
    Next
    $pArray = StringSplit(StringTrimRight($pArray, 0), Chr(1));StringTrimRight() is used to get rid of the last delimiter or we will have an empty element.
    _ArrayUnique($pArray, Chr(1), 1);Depending on which _ArrayUnique() you are using, you may have to do:  $pArray = _ArrayUnique($pArray)
    ;Now we have to loop through each one to make it one string to add to the $lstproviders... of course, I can only assume that $lstProviders is an edit
    ;GUICtrlSetData($lstProviders, '');Empty the control $lstProviders
    ;$sHoldNewList = '';We will use this to hold the new list.
    ;For $iCC = 1 To UBound($pArray) - 1
    ;    $sHoldNewList &= $pArray[$iCC] & Chr(124)
    ;Next
    ;$sHoldNewList = StringTrimRight($sHoldNewList, 2);@CRLF is 2 Chars, have to trim the fat off the ends
    ;0GUICtrlSetData($lstProviders, $sHoldNewList)
    
    GUICtrlSetData($lstProviders, '');Empty the control $lstProviders   
    $provNames = IniReadSection(@ScriptDir & "\providers.ini", "Names") ;Read provider names into a 2D array
    ;_ArrayDisplay($provNames)
    For $z = 1 To UBound($pArray) - 1
        If $provNames[$z][0] = $pArray[$z] Then
            CtrlSetData($lstProviders, $provNames[0][$z])
        EndIf
    Next
EndFunc

--> Array variable has incorrect number of subscripts or subscript dimension range exceeded

I have no idea why this is happening, although, I guess if I knew more about arrays I might be able to figure it out, but I've gone through what seems like a hundred examples and I'm even more confused.

[Josbe]

Ugh, I totally suck at this, I'm coming up empty here.

;--------------- Functions ---------------
Func OnList()
    GUICtrlSetData($lblStatus, "Getting Providers...")
    $dictationPath = @UserProfileDir & "\Desktop\Dictation\"
    $provArray = _FileListToArrayEx($dictationPath, '*.dss')

    If (Not IsArray($provArray)) Or (@error = 1) Then
            MsgBox(262208, "List Providers Error", "No Files\Folders Found.   ")
        Return
    EndIf
    $pArray = '';$pArray has to be declared first since are using &= below to add to it
    For $x = 1 To $provArray[0] ; for loop to place the files in the list.
        $pArray &= StringLeft($provArray[$x], 3) & Chr(1); Notice &= to add each element to $pArray and notice & Chr(1) to use a delimiter for the next array
    Next
    $pArray = StringSplit(StringTrimRight($pArray, 0), Chr(1));StringTrimRight() is used to get rid of the last delimiter or we will have an empty element.
    _ArrayUnique($pArray, Chr(1), 1);Depending on which _ArrayUnique() you are using, you may have to do:  $pArray = _ArrayUnique($pArray)
    ;Now we have to loop through each one to make it one string to add to the $lstproviders... of course, I can only assume that $lstProviders is an edit
    ;GUICtrlSetData($lstProviders, '');Empty the control $lstProviders
    ;$sHoldNewList = '';We will use this to hold the new list.
    ;For $iCC = 1 To UBound($pArray) - 1
    ;    $sHoldNewList &= $pArray[$iCC] & Chr(124)
    ;Next
    ;$sHoldNewList = StringTrimRight($sHoldNewList, 2);@CRLF is 2 Chars, have to trim the fat off the ends
    ;0GUICtrlSetData($lstProviders, $sHoldNewList)
    
    GUICtrlSetData($lstProviders, '');Empty the control $lstProviders   
    $provNames = IniReadSection(@ScriptDir & "\providers.ini", "Names") ;Read provider names into a 2D array
    ;_ArrayDisplay($provNames)
    For $z = 1 To UBound($pArray) - 1
        If $provNames[$z][0] = $pArray[$z] Then
            CtrlSetData($lstProviders, $provNames[0][$z])
        EndIf
    Next
EndFunc

--> Array variable has incorrect number of subscripts or subscript dimension range exceeded

I have no idea why this is happening, although, I guess if I knew more about arrays I might be able to figure it out, but I've gone through what seems like a hundred examples and I'm even more confused.

Looks something wrong in $provNames[$z][0] variable, maybe it's exceeding its dimension. Check it.

[PsaltyDS]

Looks something wrong in $provNames[$z][0] variable, maybe it's exceeding its dimension. Check it.

Well, this is trimming zero characters from the right:

StringTrimRight($pArray, 0)oÝ÷ ٩ݶ¬$²X¤{*.­ëޮǶ¬¹»®*mÓ~³ÒÚ4Ó~³jëh×6        If $provNames[$z][0] = $pArray[$z] Then
            CtrlSetData($lstProviders, $provNames[0][$z])
        EndIf