Who can help me to read string???

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.
:confused: :confused: :mad: :mad:

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.

VB Code:

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.

VB Code:

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