Listbox Adding

ok i want to show the contents of a txt file located online. iv used inet to grab the content of the text file:

form Code:

Private Sub Form_Load()
Dim UpData As String
    UpData = Inet2.OpenURL("http://lazyrecords.co.uk/topfloordjs/LRMP/data.txt")
    
        DoEvents
    Inet2.Cancel
    ServerDataParse UpData
Debug.Print UpData
End Sub

but in this txt file it has carridge return (char(10)) and i want it to show in the listbox as new items. this is wat iv got so far in the module:

Module Code:

Public Sub ServerDataParse(SiteFile As String)
For i = 0 To Form1.List2.ListIndex
' this is where im gettin lost...
 
Form1.List2.AddItem SiteFile
' Form1.Text1 = SiteFile
End Sub

Can anyone help me out?

Is this what you are looking for?

Code:

---

Public Sub ServerDataParse(SiteFile As String)
Open SiteFile For Input As #1
While Not EOF(1)
    Line Input #1, sData
    List1.AddItem sData
Wend
Close #1
End Sub

---

vb Code:

Public Sub ServerDataParse(SiteFile As String)
Open SiteFile For Input As #1
While Not EOF(1)
    Line Input #1, sData
    Form1.List2.AddItem sData
Wend
Close #1
End Sub

Open SiteFile For Input As #1
Bad file name or number.

What does SiteFile contain?

just updates from a txt file online.

It seems you misunderstood what I was asking... What value does SiteFile contain at the time of the error?

LRMP In Development
TESTERS NEEDED!!

.. thats all it is. but it has the ascii chr(10) or chr(13) cnt remember which lol.

Just my pennies worth, seems you may have 2 problems

1/
Is the text file accesible by this method via HTTP ?

2/
Public Sub ServerDataParse(SiteFile As String)
DIM i
Open SiteFile For Input As #1
While Not EOF(1)
Line Input #1, sData
if len(sdata) > 1 then 'check that sData actually contains something
for i = 1 to len(sdata)
if mid(sdata,i,1)=chr(10) or if mid(sdata,i,1)=chr(13) then
mid(sdata,i,1)=" "
endif
next
Form1.List2.AddItem trim(sData)
endif
Wend
Close #1
End Sub

sitefile is passed as a string
try like this

vb Code:

Public Sub ServerDataParse(SiteFile As String)
dim sitearr() as string
sitearr = split(sitefile,chr(10))
For i = 0 To ubound sitearr
  Form1.List2.AddItem Sitearr(i)
next
End Sub

worked like a charm. thanx Westconn!! +1 REP

:confused: You asked about a file but you were actually passing a string?

no, the interrnet file was downloaded to string and passed to sub, just his variable name was confusing