Hej!
När jag läser från en fil på detta sätt:

Dim fNr As Integer
fNr = FreeFile()
Open "temp.tmp" For Input As #fNr
Input #fNr, strInput
Close #fNr

då får jag bara med de första 133 tecken i filen.
Vad gör jag för fel?


// Jompa

Testa med denna funktionen. Fungerade att läsa din fil hoss mig i alla fall:
<code>
Public Function ReadFile(FileName As String) As String
Dim FileNo As Long
FileNo = FreeFile()
Open FileName For Binary Access Read Shared As #FileNo
ReadFile = Space(LOF(FileNo))
Get #FileNo, , ReadFile
Close #FileNo
End Function
</code>

Hej
Så här gjorde jag. Att det inte funkade innan
beror på att filen innehåller en massa Chr$(0)
Tror att du vill ha det så här

Option Explicit
Private Sub Command1_Click()
Dim fNr As Long, Char As Byte, outStr As String
Dim i As Long
fNr = FreeFile()
Open "C:\temp.tmp" For Binary As #fNr
For i = 1 To LOF(fNr)
Get #fNr, i, Char
If Int(Char) > 31 Then outStr = outStr & Chr$(Char)
Next 'i
Close #fNr
'Text1 MultiLine = True
Text1.Text = outStr
End Sub

mvh
Sven

KANON!

Bockar och bugar.....

Vilket löste det?

Hej
Min lösning,
din har Brister går inte att visa i
tex Label eller TextBox ej heller i MsgBox

Sven

Stämmer...SvenPons lösning....

Tackar Andreas ändå =)

// Jompa