Writing Usernames | CSV File | Issue

[Snowy Mexican]

Hello everyone,

Currently facing an issue that I have with writing an Array of Records to a CSV file. The code for writing the information is shown below:



This is the code.



This is the expected output when writing to the file.



This is the actual outcome.

Why are the other 2 users being removed from the file?

Thanks,

Snowy

[I Love VB6]

If you don't type in a user name it will result in a null field. It looks like only user C was actually entered and the other 3 (not 2) nothing was entered

[DataMiser]

You should paste your actual code into your post, not screen shots.

Your code is only asking for one user and has no values for anything else

Index is defined in the sub and never assigned a value so index=0 which means you loop is from 0 to 0 and will execute only once
The code also opens the file for output so I would expect that what you are really getting is a single row of data with just whatever was typed in the input box and not what you showed above.

[techgnome]

The redim ... when you ReDim an array, it wipes out anything already in the array... if you want to keep data in the array, then you have to use the preserve keyword too:
ReDim Preserve myArray(newSize)

-tg

[I Love VB6]

You should paste your actual code into your post, not screen shots.

Your code is only asking for one user and has no values for anything else

Index is defined in the sub and never assigned a value so index=0 which means you loop is from 0 to 0 and will execute only once
The code also opens the file for output so I would expect that what you are really getting is a single row of data with just whatever was typed in the input box and not what you showed above.

Index = NumUser and NumUser is probably defined as Public in a .BAS mod and is incremented by 1 each time in the sub so Index will alway have the same value as the number of times into the sub.

His User table is redimed each time so it clears out previous entries so I suspect he entered the sub 4 times so he only picked up the last entry (#4) from the user table and wrote that out and the first 3 were not in the table because of the redim

Solution: See post #4

[DataMiser]

Yep I missed that part, hard for these old eyes to read text when it is posted as a low quality image rather than text

[westconn1]

if you just want to add an additional user to the existing file, just append the one new user

[I Love VB6]

One further note: You should change your For loop to:
For Index = 1 To Index
or move your
NumUser = NumUser + 1 line
after you write the file otherwise you get an extra line in your output file

As it is: For Index = 0 To Index

"",0,0,0
"A",0,0,0
"B",0,0,0
"C",0,0,0
"D",0,0,0


Line changed to For Index = 1 To Index

"A",0,0,0
"B",0,0,0
"C",0,0,0
"D",0,0,0

However, post #7 has the best way to go about this and you could simplify your code like this:

  '
  '
 NumUser = NumUser + 1
 
 ReDim Preserve User(0 To NumUser) As UserInfo
 
 User(NumUser).UserName = InputBox("Hello: Please enter a username")
 
 Open PlayerFile For Append As #FF
 
 Write #FF, User(NumUser).UserName, User(NumUser).NumCompletedE, User(NumUser).NumCompletedM, User(NumUser).NumCompletedH

 Close #FF
 
 Module1.Extract NumUser
  '
  '