Multidemmesional Arrays OR arrays

gmoney060 · #1 (**permalink**) October 30th, 2004, 03:06 AM

This is the following strings I have:

"1 13032928 Grant McElroy"
"2 10928308 Bob Long"
"3 10923809 Joe Smoe"

I want to put the following into an array to work like this:
Users(0,0) = 1
Users(0,1) = 13032928
Users(0,3) = McElroy
Users(1,2) = 10928308

I just do not know how to put the values into a array, when i have to split stuff ext?

happygv · #2 (**permalink**) October 30th, 2004, 03:20 AM

You can use Split function to get that work, but the delimeiter in this case is SPACE, which also occurs within the name part, so you got to think on that. Is there anyway you can have that values come as comma separated. Then it would be easy to split them at one short and populate into array.

Cheers!

_________________________
- Vijay G
Strive for Perfection

gmoney060 · #3 (**permalink**) October 31st, 2004, 12:30 AM

I actually want the first name, and last name seperate. This is what i have now, but it is not working.

Code:

<%
'Option Explicit
' Set up constants
Const ForReading = 1 
Const Create = False

' Declare local variables
Dim objFSO         ' FileSystemObject
Dim TS             ' TextStreamObject
Dim strLine        ' local variable to store Line
Dim strFileName    ' local variable to store fileName

strFileName = Server.MapPath("/demo/dci.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)
Do While Not TS.AtEndOfStream
    TempUser = TS.ReadLine
    UserInfo = Split(TempUser," ")
    Response.Write UserInfo(0)
Loop 
'Response.Write UserInfo(1) & "<BR>"
TS.Close 
Set TS = Nothing
Set objFSO = Nothing
%>

The file is located at: http://www.topdeckcards.com/demo/dci.txt

It does not create a correct array, everything is put into UserInfo(0)... So it doesnt split the value.

happygv · #4 (**permalink**) November 1st, 2004, 03:42 PM

Replace your While loop with this one

Code:

Do While Not TS.AtEndOfStream
    TempUser = Replace(Replace(TS.ReadLine,vbTab&vbTab,","),vbTab,",")
    UserInfo = Split(TempUser,",")
    for i = 0 to ubound(UserInfo)
    Response.Write "<b>UserInfo(" & i & "):</b>" & Trim(UserInfo(i)) & " "
    Next
    Response.Write "<br>"
Loop

Since Tab usage within the text file wasn't regular, the code marked in Blue uses two replace functions, one replacing multiple tabs and the other replacing single tab with COMMA.

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

Need to download code?

Navigation