I'm trying to read in a file consisting of lines of text of the following sort of form...
first value 1352.2 second value 12 third value 32323
first value 1233.2 second value 22 third value 23333
first value 1233.1 second value 21 third value 64344
so I'm looking for a function analagous to fscanf or sscanf to munch each line up in one go. Is there such a function or must I pick apart each line by hand (there are several different kinds of lines).
While MarkJ has given you the VB6 way of doing things, you may want to check out FWIW:
http://www.freevbcode.com/ShowCode.asp?ID=3806
"C String Functions SScanf and StrTok Implemented in VB"
It implements a function ScanString() that's supposed to be an emulation of sscanf().
There's no equivalent of sscanf. I would just pick the lines apart by hand using Mid(). It's fairly easy.
Mid(string, start, length) will return a substring, starting at character start, and length characters long.
start is 1-based - the first character in the string is number 1. - Think carefully about the
start and length. What will the file look like if it contains a really large number? Probably the number will extend further to the left (if the numbers are right-aligned in the file, which is common in my experience - your mileage may vary).
- Use
Val to convert the substrings to numbers
- Val always uses dot as decimal separator - is that what you need?
Personally I would avoid Input #. Input # is intended for reading files written from VB6 using Write #. If you try to read an arbitrary file format with Input #, you might encounter odd edge cases.
Given a file like that, you can use whatever method you like to read the file line by line, then use the Trim and Split functions to create a string array of space-delimited strings for each line. Then parse the numbers from the resulting array by keeping those elements that return True from the IsNumeric function:
Put this in the immediate window to see how this would work:
s = Split(Trim("first value 1352.2 second value 12 third value 32323"))
For x = LBound(s) To UBound(s): _
? "'", x, s(x), IsNumeric(s(x)): _
Next x
When you press enter after Next x, you'll see this, where every number is followed by a "True":
' 0 first False
' 1 value False
' 2 1352.2 True
' 3 False
' 4 False
' 5 False
' 6 False
' 7 False
' 8 second False
' 9 value False
' 10 False
' 11 False
' 12 False
' 13 False
' 14 12 True
' 15 False
' 16 False
' 17 False
' 18 False
' 19 False
' 20 third False
' 21 value False
' 22 False
' 23 False
' 24 False
' 25 32323 True
Note: I put the leading double quote on each print line so that the syntax highlighting wouldn't mess with the output.
The Input statement should be sufficient for most cases (maybe with some logic to detect the type of line and call the relevant input statement).
There is a fairly comprehensive examination of different file IO commands in VB6 with some nice examples of reading a 'COBOL-style' fixed with file over here.
If you are dealing with an odd or inconsistent format that Input can't deal with, as you say it is possible to pick apart by hand. This might be the best option as you mention there are different formats.
