Listbox Adding

[se7en]

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

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:

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?

[Hack]

Is this what you are looking for?

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

[se7en]

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.

[si_the_geek]

What does SiteFile contain?

[se7en]

just updates from a txt file online.

[si_the_geek]

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

[se7en]

LRMP In Development
TESTERS NEEDED!!

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

[Bazzer]

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

[westconn1]

sitefile is passed as a string
try like this

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

[se7en]

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

[Hack]

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

[westconn1]

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