How can read a line of unicode text file? and how write to a line of unicode text fil

[r2du-soft]

hi

i have a text file with format unicodeExample this

    ; for 16-bit app support  
      
    [fonts]  
    [extensions]  
    Kill file returned: :3:  
    No Previous IE40, not an IE40 install.  
    Add preclean, crypto and maybe DCOM  
    OS is NT  
    Installing OLEAUT.exe.  
    Architecture is Intel.  
    dispci.dll: ============BEGIN DisplayClassInstaller============  
    dispci.dll: ============BEGIN OnSelectBestCompatDrv============  
    dispci.dll: ============END OnSelectBestCompatDrv==============  
    dispci.dll: DisplayClassInstaller: Returning 0xe000020e for DIF 0x17 and device VMBUS\{DA0A7802-E377-4AAC-8E77-0558EB1073F8}\{5620E0C7-8062-4DCE-AEB7-520C7EF76171}  
    .  
    .  
    .  

now i how can write a text to line 2? line 2 is free line!

after write i how can show line 2 in msgbox?!

thanks

[r2du-soft]

guys i really need your help...

[VictorN]

Read file in a buffer, then insert the needed text after the first end-of-line (as a second line)

[r2du-soft]

Read file in a buffer, then insert the needed text after the first end-of-line (as a second line)

Thanks VictorN
i test all way but i cant do that!
Possible give me sample code?
this is my test file: test.zip
thanks

[dglienna]

How about Skin-A-Cat?

Option Explicit

Private Sub Form_Load()
  Dim x As Integer, st As String, y As Integer
  Dim ff As Integer
  Dim strBuff As String
  Dim str() As String
  ff = FreeFile
On Error GoTo trapit
  Open App.Path & "\to do3.txt" For Input As #ff
    strBuff = Input(LOF(ff), ff)
  Close #ff
  ' ----------------- two ways to skin a cat --------------
  MsgBox "Lines = " & Len(strBuff) - Len(Replace(strBuff, vbCrLf, "x")) + 1
  ' -------------------------------------------------------
  str() = Split(strBuff, vbCrLf)
  MsgBox "There are " & UBound(str) + 1 & " lines in the file"
  Dim words() As String
  For x = 0 To UBound(str)
    words = Split(str(x)) ' Split into WORDS
    For y = 0 To UBound(words)
      st = st & str(x) & vbCrLf & vbCrLf ' one line for each word
    Next y
  Next x
  MsgBox st
  Exit Sub
trapit:
  If Err.Number = 53 Then
   MsgBox ("Didn't work")
  End If
End Sub

[r2du-soft]

How about Skin-A-Cat?

Option Explicit

Private Sub Form_Load()
  Dim x As Integer, st As String, y As Integer
  Dim ff As Integer
  Dim strBuff As String
  Dim str() As String
  ff = FreeFile
On Error GoTo trapit
  Open App.Path & "\to do3.txt" For Input As #ff
    strBuff = Input(LOF(ff), ff)
  Close #ff
  ' ----------------- two ways to skin a cat --------------
  MsgBox "Lines = " & Len(strBuff) - Len(Replace(strBuff, vbCrLf, "x")) + 1
  ' -------------------------------------------------------
  str() = Split(strBuff, vbCrLf)
  MsgBox "There are " & UBound(str) + 1 & " lines in the file"
  Dim words() As String
  For x = 0 To UBound(str)
    words = Split(str(x)) ' Split into WORDS
    For y = 0 To UBound(words)
      st = st & str(x) & vbCrLf & vbCrLf ' one line for each word
    Next y
  Next x
  MsgBox st
  Exit Sub
trapit:
  If Err.Number = 53 Then
   MsgBox ("Didn't work")
  End If
End Sub

thanks dglienna
but not work on the Unicode file!
I put a sample Of files in post #4
please test on that

[VictorN]

thanks dglienna
but not work on the Unicode file!

Define "not work".

[dglienna]

You'd need to split that line on ':' and also '\'