Open Text File As Binary

Hi!


Someone can help me?


I want open text file as binary, read each caracter, search for Line feed Without Carriage Return and replace all Line feed by a carriage return


Thanks!

JP III

Where are you kedaman, aren't you suppose to take the floor with this question?

Code:

---

Private Sub Command1_Click()
Dim buffer As String
Dim x As String
Open File For Binary As #1
  buffer = Space(LOF(1))
  Get #1, , buffer
Close #1
x = Replace(buffer, vbLf, vbCr)
End Sub

---

Is this what you want JP III?
I could be...stating the answer differently from what you want (notice: I am never wrong), but I tried :rolleyes:.

Hey Matthew, Kedaman is off for this weekend, he's visiting his mom :) (and this time I'm NOT wrong!)

:D

Thanks Matthew!


JP III

Hey Jop and Matthew, nice to see you two again :)
JP III, maybe you wanted to have carriagereturn linefeeds:
x = Replace(buffer, vbLf, vbCrlf)