Looping through text file

I have a text file that I would like to loop through and obtain a listing of vendors. It is a file that is seperated by the "^" simble. I would like to loop through it and place the results in a combo box. Here is the code I have so far:

Function getVendors(offnum)
Const ForReading = 1
Const Create = False

' Declare local variables
strFileName = Server.MapPath("vendors.txt")

' Instantiate the FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' use Opentextfile Method to Open the text File
Set TS = objFSO.OpenTextFile(strFileName, ForReading, Create)

strValue = Ts.Readline
strArray = Split(strValue, "^")
' - strArray is now an array
Dim i
If Not TS.AtEndOfStream Then
For i = 0 to Ubound(strArray)
'Response.Write i & " = " & strArray(i) & "<BR>"

VendorName = strArray(0)
VendorAddr = strArray(1)
VendorCity = strArray(2)
VendorState = strArray(3)
VendorZip = strArray(4)
VendorID = strArray(5)
VendorOff = strArray(6)
Next
End IF
' close TextStreamObject
' and destroy local variables to relase memory
'TS.Close
'Set TS = Nothing
'Set objFSO = Nothing
End Function

This is how I am calling it:

<option value="002"><%If Not TS.AtEndOfStream Then %><%=VendorName%>,<%=VendorAddr%>&nbsp<%=VendorCity%>,<%=vendorzip%><%END IF%></option>

The problem is that is only goes through the first line, then it stops. It places the first line in the combo box but that is it. How can I get all of them in there, also can you sort with a text file?

Attached is the text file...Thanks

Here is an example of looping through a text file using FSO

VB Code:

dim val
 
  do while f.AtEndOfStream = false
    val=f.ReadLine
    Response.Write "<option value='" & val & "'>" & val & "</option>"
  loop
 
  f.close
  Set f = Nothing
  Set fso = Nothing

Hope this helps.

Danial

Great, do you know how to sort using the file system object?

Quote:

---

Originally posted by brianh
Great, do you know how to sort using the file system object?

---

If you search on this forum you will get plenty of example of sorting algorithm, look for bubble sort. Here is an example using fso, u can adapt it to your need.

http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=118

Hope this helps.

Danial

Ack nooooooooooooooooooo.
Never ever ever use the FSO until absolutely necessary because its crap :)

Sorry, only now just noticed where this thread was.
Um I don't know if there's any other ways of doing it in ASP etc, so just ignore me :)

Quote:

---

Originally posted by plenderj
Sorry, only now just noticed where this thread was.
Um I don't know if there's any other ways of doing it in ASP etc, so just ignore me :)

---

Yes Jamie, I dont like to use FSO either, but in asp its the easiest and quickest way. There is other way of doing it, but more time consuming.

I have never really used FSO in VB but in asp i use it frequently.

Danial

In ASP, load the file contents line by line into a Scripting.Dictionary object. This doesn't need to be sorted (provided you index it correctly), as it's searchable!

Quote:

---

Originally posted by Jerry Grant
In ASP, load the file contents line by line into a Scripting.Dictionary object. This doesn't need to be sorted (provided you index it correctly), as it's searchable!

---

Well Dictionary object is pretty similar or if not the same to VB Collection Object. You can use it to store information temporerily but not permanently. I have to admint it is pretty useful sometime.