[VB6.0] Open file

[xegallo]

Function ReadTextFile(filename As String) As String
    Dim fnum As Integer, isOpen As Boolean
    On Error GoTo Error_Handler
    fnum = FreeFile()
    Open filename For Input As #fnum
    isOpen = True
    ReadTextFile = Input(LOF(fnum), fnum)
    close #fnum
Error_Handler:

    If isOpen Then Close #fnum
    If Err Then Err.Raise Err.Number, , Err.Description
End Function

[sebamix]

Originariamente inviato da hcka
ho osservato il 3ad che mi ha linkato sebamix...il comando loop, continua a fare la serie di istruzioni scritte fino a quando non trova più nulla?

Do While EOF(N)

significa che il loop va avanti fino a che non si incontra la fine del file!

[hcka]

Scrivendo così mi va al termine della riga, poi si blocca ancora!

Dim N As Integer
N = FreeFile
Dim strIn As String
Open CommonDialog1.FileName For Input As #N
Do While EOF(N) = False
Line Input #N, strIn
txt1.Text = strIn
Close #N
Loop

Prima invece arrivava al primo segno di punteggiatura!

[sebamix]

Originariamente inviato da hcka
Scrivendo così mi va al termine della riga, poi si blocca ancora!

Dim N As Integer
N = FreeFile
Dim strIn As String
Open CommonDialog1.FileName For Input As #N
Do While EOF(N) = False
Line Input #N, strIn
txt1.Text = strIn
Close #N
Loop

Prima invece arrivava al primo segno di punteggiatura!

Dim N As Integer
N = FreeFile
Dim strIn As String
Open CommonDialog1.FileName For Input As #N
Do While EOF(N) = False
Line Input #N, strIn
txt1.Text = txt1.text & vbcrlf & strIn

Loop
Close #N

[hcka]

Posso dirti che ti amo?!?
No, forse è meglio di no!
Comunque grazie a tutti!!!
E... cosa significa quella freccia verso il basso azzurra sui primi messaggi di ogni forum?!?