Text Manipulation

Doesnt put anything in the list... Here is what I have

VB Code:

Private Sub cmdStart_Click()
    LoadIt
    DoReplace
    SaveIt
    MsgBox "done"
 
End Sub
 
Private Sub LoadIt()        'Or where you want to load it.
 
    Dim strBuff As String, intFF As Integer
    List1.Clear
    intFF = FreeFile
 
    Open App.Path & "\load.txt" For Input As #intFF
    Do Until EOF(intFF)
        Line Input #intFF, strBuff
        List1.AddItem strBuff
    Loop
    Close #intFF
    
End Sub
 
Private Sub DoReplace()
On Error Resume Next
Dim strString As String
Dim arrString() As String
Dim i As Long
   For i = 0 To List1.ListCount - 1
       strString = List1.List(i)
       strString = replace(strString, "(AT)", "@")
       arrString = Split(strString, " ")
       List1.RemoveItem i
       List1.AddItem arrString(0)
   Next
List1.Refresh
End Sub
 
Private Sub SaveIt()
'save new file
    Dim intFF As Integer, intIdx As Integer
        intFF = FreeFile
 
    Open App.Path & "\emails.txt" For Output As #intFF
    For intIdx = 0 To List1.ListCount - 1
        If List1.Selected(intIdx) Then Print #intFF, List1.List(intIdx)
    Next
    Close #intFF
 
End Sub
 
Private Sub Command1_Click()
DoReplace
End Sub

Maybe you can upload your version?

I don't need to attach anything. This is the entire routine

VB Code:

Private Sub Command1_Click()
On Error Resume Next
Dim strString As String
Dim arrString() As String
Dim i As Long
   For i = 0 To List1.ListCount - 1
       strString = List1.List(i)
       strString = Replace(strString, "(AT)", "@")
       arrString = Split(strString, " ")
       List1.RemoveItem i
       List1.AddItem arrString(0)
   Next
List1.Refresh
End Sub
 
Private Sub Form_Load()
List1.AddItem "email(AT)hotmail.com DD YY"
List1.AddItem "email(AT)Yahoo.com DD YY"
End Sub

I have to press it twice for it to work..

Quote:

---

Originally Posted by Steve_F

I have to press it twice for it to work..

---

Well, that is wierd, but at least you are getting something.

When you say "press it", you mean you have to click the command button twice for it to work? Does it do anything at all the first time?

I just made it do this :

VB Code:

Private Sub cmdStart_Click()
    LoadIt
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    SaveIt
    MsgBox "done"
 
End Sub

It wont save though.

Quote:

---

Originally Posted by Steve_F

I just made it do this :

VB Code:

Private Sub cmdStart_Click()
    LoadIt
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    DoReplace
    SaveIt
    MsgBox "done"
 
End Sub

It wont save though.

---

Do you want it to save everything in the listbox, or only those items that have been selected?

I want it to save the whole list after all the items in it have been "fixed"

Quote:

---

Originally Posted by Steve_F

I want it to save the whole list after all the items in it have been "fixed"

---

Then this is why it isn't working

VB Code:

If List1.Selected(intIdx) Then Print #intFF, List1.List(intIdx)

This piece of code says: "write all SELECTED items to the text file."

Take that out, and have your routine just do

VB Code:

Private Sub SaveIt()
'save new file
    Dim intFF As Integer, intIdx As Integer
    
    intFF = FreeFile
 
    Open App.Path & "\emails.txt" For Output As #intFF
    For intIdx = 0 To List1.ListCount - 1
        Print #intFF, List1.List(intIdx)
    Next
    Close #intFF
 
End Sub

I fixed it thnx for all the help

Quote:

---

Originally Posted by Steve_F

I fixed it thnx for all the help

---

No problem. :)

Anything else left?