INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

VB 6 Read from sequential file into separate arrays

VB 6 Read from sequential file into separate arrays

(OP)
Hi - I have a text file containing student names and their exam marks:

Andrew Brown, 45
Carol Whyte, 67

etc

I need to read them into two separate arrays, one for the name and one for the exam mark. I am okay with reading from and writing to sequential files, but I don't know how to split each line, to separate the name into one array and the exam mark into another array.

Thanks!

RE: VB 6 Read from sequential file into separate arrays

You've pretty much answered your own question smile

CODE

Dim str As String

str = "Andrew Brown, 45"

MsgBox Split(str, ",")(0)
MsgBox Split(str, ",")(1) 

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

RE: VB 6 Read from sequential file into separate arrays

Seems awfully straightforward:

CODE

Dim F As Integer
Dim Count As Long
Dim RawLine As String
Dim I As Long
Dim Name() As String
Dim Mark() As Integer

'How big to make the arrays?  Guess we'll have to count since
'we have no header record to tell us!
F = FreeFile(0)
Open "marks-n-sparks.txt" For Input As #F
Do Until EOF(F)
    Line Input #F, RawLine
    Count = Count + 1
Loop

'Ok, on with the show:
ReDim Name(Count - 1), Mark(Count - 1)
Seek #F, 1
For I = 0 To Count - 1
    Input #F, Name(I), Mark(I)
Next
Close #F 

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close