print # statement infrequently printing 0's

  • Thread starter Thread starter strataguru
  • Start date Start date
S

strataguru

I have an output file that is not being populated correctly.

ExtractLength goes up to 18000
The messageArray array is defined from 1 to 18000
What I'm trying to do is look in an array - if there is data is offset
loopArrayCtr - print it out.


For loopArrayCtr = 1 To ExtractLength
If messageArray(loopArrayCtr) <> Empty Then
Print #1, Tab(loopArrayCtr); messageArray(loopArrayCtr);
loopArrayCtr = loopArrayCtr + Len(messageArray(loopArrayCtr)) - 1
End If
Next loopArrayCtr


If there is a more simple way of printing out an array of data from
byte 1 to x to a file exactly as the data looks in the array (imagining
the data as one long string of data that will go on one line of a file)
- that would work also.

Thanks!
 
Perhaps this is what you want:

http://support.microsoft.com/default.aspx?scid=kb;en-us;165942&Product=vb6
HOWTO: Write Data to a File Using WriteFile API

Sub Tester9()
Dim messageArray() As String
extractLength = 20
ReDim messageArray(1 To extractLength)
For loopArrayCtr = 1 To extractLength
sStr = ""
For j = 1 To Rnd() * 15 + 1
sStr = sStr & Chr(Int(Rnd() * 26 + 65))
Next
messageArray(loopArrayCtr) = sStr
Next
Open "C:\Data\Array1.Txt" For Output As #1
For loopArrayCtr = 1 To extractLength
If messageArray(loopArrayCtr) <> Empty Then
Print #1, Tab, messageArray(loopArrayCtr);
End If
Next loopArrayCtr

Close #1
End Sub

writes it all to one line
 
Back
Top