GoFuckYourself.com - Adult Webmaster Forum - View Single Post

More Booze · 03-09-2006, 03:27 PM

Code:

Open "c:\stuff\content.txt" For Input As #1
   Do

        Input #1, texten
        If texten <> "" Then
            
            List1.AddItem texten
        End If
    Loop Until EOF(1)
    
Close #1

The problem is that each time the textline contains a comma "," it adds a new line to the listbox. I tried to fix it with this code.

Code:

texten = Replace(texten, Chr(44), "hahaha44")  <-- (special HTML chr for comma.)

But it doesn't work. How do I solve this?

03-09-2006, 03:27 PM
More Booze Confirmed User Join Date: Mar 2004 Posts: 5,116	Visual Basic help needed! Code: Open "c:\stuff\content.txt" For Input As #1 Do Input #1, texten If texten <> "" Then List1.AddItem texten End If Loop Until EOF(1) Close #1 The problem is that each time the textline contains a comma "," it adds a new line to the listbox. I tried to fix it with this code. Code: texten = Replace(texten, Chr(44), "hahaha44") <-- (special HTML chr for comma.) But it doesn't work. How do I solve this?