Who can help me to read string???

[neoyao]

I have 2 questions below, please help me.
1)I have a large UNIX log text file above 6Mb. And I must read it line by line. How can I do it by VB programming?
(This is my codes :
First change the file from UNIX to PC format, and read it line by line next.
Open "12345.log" For Input As 1
Open "12345.tmp" For Output As 2
While Not EOF(1)
Line Input #1, sBuffer '(VB tell me No Memory on this step!!!!!!)
sBuffer = Replace(sBuffer, Chr(10), vbCrLf)
Print #2, sBuffer
Wend
Close #2
Close #1

Open "12345.tmp" For Input As 1
Line Input #1, sBuffer
........
Do you have any good method to read UNIX log file line by line?

2)I need read something from the string like:
"aaa<SPACE or TAB>bbb<SPACE or TAB>ccc<SPACE or TAB>ddd<SPACE or TAB>...."
The string is splited by TAB or SPACE, and I need read the sub string between SPACE or TAB. For example, read the sub string between No.22 SPACE and No.23 SPACE or No.20 TAB and No.21 TAB; Or between No.21 TAB and No.22 SPACE.
How can I do it by VB programming?

Thanks for your help!!

Best Regards.

[Kaverin]

I believe the "out of memory" error is a result of how the file is delimited. I know nothing of UNIX, but from what you say, it seems that new lines are separated only by a linefeed, Chr$(10), character. Line Input treats a line as everything up to a vbCrLf, which is a Chr$(13) & Chr$(10) combo. If that's true, that Line Input statement is attempting to read the whole file, as it will probably never encounter the 13 10 combo in that order. This will do your conversion.

Dim i As Long
Dim b As Byte
Open "c:\unix.log" For Binary As #1
Open "c:\converted.log" For Binary As #2
For i = 1 To LOF(1)
   'read a byte
   Get #1, , b
   'if it was a linefeed, stick in a carriage return next
   If Chr$(b) = vbLf Then Put #2, , vbCr
   'now write the byte.  any 10 has been converted to the proper 13 10 combo
   Put #2, , b
Next i
Close #2
Close #1

For your second question, you can use the function Split() to break up the string at a specified character like space or tab, or even a group of characters.

Dim astrPieces() As String
astrPieces = Split("this is my string"," ")
'astrPieces(0) = "this"
'astrPieces(1) = "is" and so on