Need Visual Basic Help

[njolakoski]

I need some Visual Basic help. I cant think of the code something I need for my program. When I press "Get Roster" I need it to pull all the info from a Text File and the place all the info into a Listbox, I cant think of the code Blaise helped me last night but i forgot to save the code and I lost It so I need your guys help.

TIA

[vass0922]

well it depends on how you did it, there's more than one way to do it .

from ADO
or using FSO
or Input as #1

[njolakoski]

well Input as #1 but i want it to go into a Listbox

[originel]

there is a 'listboxname.additem("item name")' command you can use in conjunction with Input as #1

[njolakoski]

Originally Posted by originel

there is a 'listboxname.additem("item name")' command you can use in conjunction with Input as #1

See how do i do that? I need it to add to the list

[originel]

here's an example:

dim myArray[arraysize]

'Code that will get the info from the file using the above methods
'i don't know how to do it off the top of my head and am too lazy to read up on it

for i = 0 to arraysize - 1
     listboxname.AddItem(myArray[i])
loop

Simple as that

(btw...better check syntax...i've been coding in C++ for the last two weeks and so I'm probably mixing the two syntax's).

[vass0922]

I rarely use input as #1 not much control over it

Dim objFSO As FileSystemObject
Dim oInputFile as File

Set objFSO = New FileSystemObject
Set objFile = objFSO.OpenTextFile("C:\Somefile.txt", FOR_READING)

Do While Not objInputFile.AtEndOfStream
  sCurLine = Trim(objInputFile.ReadLine)
  If sCurLine <> "" Then
    lstBox.AddItem sCurLine
   End If
Loop
objInputFile.Close
Set objInputFile = Nothing
Set objFSO = Nothing

something like that, but make sure to add Scripting Runtime as a reference to get the FSO available.

[njolakoski]

Originally Posted by vass0922

I rarely use input as #1 not much control over it

Dim objFSO As FileSystemObject
Dim oInputFile as File

Set objFSO = New FileSystemObject
Set objFile = objFSO.OpenTextFile("C:\Somefile.txt", FOR_READING)

Do While Not objInputFile.AtEndOfStream
  sCurLine = Trim(objInputFile.ReadLine)
  If sCurLine <> "" Then
    lstBox.AddItem sCurLine
   End If
Loop
objInputFile.Close
Set objInputFile = Nothing
Set objFSO = Nothing

something like that, but make sure to add Scripting Runtime as a reference to get the FSO available.

See that looks like something ifce dones but never used al that stuff, Lets just say i havent learned anything in that Class

[mew905]

I pull off a lazy method where I load the file into a rich text box, use a bunch of loops to search for certain text, and then I do what I want with it. quite neat really

[njolakoski]

Like I remember something

Open App.Path & "\Roster.txt" For Random As #1(I think)
Line Input as #1 or something like that I cant remember at all