reading a reg file

[Ablecken]

If I have a .reg file I cant seem to read it. Just using the simple code :

Public Function ReadFromText(sFileName As String) As String
    'On Error Resume Next
    Dim fNum As Integer
    fNum = FreeFile
    Open sFileName For Input As #fNum
    ReadFromText = Input$(LOF(fNum), #fNum)
    Close #fNum
End Function

I get input past end of file. If I manually cut and paste this info from the file into a new text doc it works fine. I cant seem to find any info anywhere as to why this happens. As far as I know there are no hiddent characthers in the file correct?

Thanx a lot guys

 

[Ablecken]

Nevermind, I figured it out. I had to read it in as binary. Thanx anyway

 

[Brent113]

Wait a minute, I was trying to do the same thing, but I can't get mine to work. Can you explain that? All I want to do is read a .reg file line by line in ansi. How?

____________________________________________________________________________
There are only 10 types of people in the world. Those that know binary and those that don't

Brent

 

[Ablecken]

Brent. You need to read it as binary.

Public Function ReadFromText(sFileName As String) As String
    On Error Resume Next
    Dim fNum As Integer
    fNum = FreeFile
    Open sFileName For Binary As #fNum
    ReadFromText = String(LOF(fNum), 0)
    Get #fNum, , ReadFromText
    Close #fNum
End Function