Replacing Letters Resolved

[Ricky1]

I need some code that will do the following.

List1 contains

Ricky
Richard

when i click command button it will add the following to list 2. Change a certain letter to a different letter. In this case i's to l's.

RLcky
RLchard

And if possible have it so i can change the letters by having them as values when i call the function.

Thanks in advance.

[The_Grudge]

For intCount = 1 to Len(listbox1.text)
     If Mid(listbox1,intCount,1) = "i" Then
        Mid(listbox1,intCount,1) = "L" 
        intCount = intCount + 1      
    End if
Next

[Ricky1]

that doesn't use the other list because i have got it to replace in the same list box but i want it to leave list1 as it is and add the new words to list2

[RhinoBull]

The following may work for you:

Private Sub Command1_Click()
Dim i%
 
    If List1.ListCount = 0 Then Exit Sub
    For i = 0 To List1.ListCount - 1
        List2.AddItem StrConv(Replace(LCase(List1.List(i)), "i", "L"), vbProperCase)
    Next i
 
End Sub

[The_Grudge]

Dim strListValue As String
 
strListValue = listbox1.text
 
For intCount = 1 to Len(strListValue)
     If UCASE(Mid(strListValue) = "i") Then     
        Mid(strListValue,intCount,1) = "L" 
        intCount = intCount + 1      
    End if
Next
 
Listbox2.Text = strListValue

Try something like that.

[Hack]

Option Explicit
 
Private Sub ChangeLetter(pstrOldLetter As String, pstrNewLetter As String)
Dim i As Long
For i = 0 To List1.ListCount - 1
       List2.AddItem List1.List(i)
       List2.List(i) = Replace(List2.List(i), pstrOldLetter, pstrNewLetter)
   Next
   List1.Clear
End Sub
 
Private Sub Command1_Click()
ChangeLetter "i", "l"
End Sub
 
Private Sub Form_Load()
List1.AddItem "Ricky"
List1.AddItem "Richard"
End Sub

[Ricky1]

thanks people, is there a way to do it so it wil only add words to list 2 that have had letters changed ??

[Hack]

thanks people, is there a way to do it so it wil only add words to list 2 that have had letters changed ??

I don't understand what you mean?

[Ricky1]

well if list 1 had the folliwing

Rick
Ricky
Space

that i want to change i to l. So i would want

Rlck
Rlcky

in list2 and them still left in list1. Didn't add space to list 2 because no letters got changed.

[Hack]

Ok, yes you could do that, however, you would have to select, in the first listbox, which items you wanted to move, and then modify the code I originally posted to only look at selected items.

[The_Grudge]

Dim strListValue As String
Dim blnAddValue As Boolean
 
blnAddValue = False
strListValue = listbox1.text
 
For intCount = 1 to Len(strListValue)
     If UCASE(Mid(strListValue) = "I") Then     
        blnAddValue = True        
        Mid(strListValue,intCount,1) = "L" 
        intCount = intCount + 1      
    End if
Next
 
If blnAddValue = True Then 
   Listbox2.Text = strListValue
End if

[Ricky1]

Public Sub DoIt(OldLetter As String, NewLetter As String)
 
Dim I As Integer
Dim NewWord As String
 
For I = 0 To LstWord.ListCount - 1
 
[COLOR=Red]If InStr(LstWord.List(I), [/COLOR] OldLetter) Then
    NewWord = LstWord.List(I)
    NewWord = Replace(NewWord, OldLetter, NewLetter)
    LstGened.AddItem NewWord
    Next I
Else
    Next I
 
End If
 
End Sub

would this work ?
And its complaining about the red line aswel any 1 explain ?

[Ricky1]

can anyone expand on my code above ? i think im close but not sure.

[Hack]

This works

Public Sub DoIt(OldLetter As String, NewLetter As String)
 
Dim i As Integer
Dim NewWord As String
 
For i = 0 To List1.ListCount - 1
    If InStr(List1.List(i), OldLetter) Then
        NewWord = List1.List(i)
        NewWord = Replace(NewWord, OldLetter, NewLetter)
        List2.AddItem NewWord
    End If
Next
End Sub

Note: You will need to change the listbox names back to what you have. I just put a couple on a test for to use while working this out.

And, it does not remove the old words from the original list. You will need to add that as well (if that is the way you want to go.)