مشكلة في VB6

[sni1699per]

لسلام عليكم
عندي سؤال :
كيف افتح ملف txt. في الvb وانسخه في textbox
جربت
Private Sub Command1_Click()


Open "c:\file.txt" For Input As #1

dim a as string

Input #1, a
Text1.Text = a
end sub

لكنها تنسخ لي فقط السطر الاول من الtxt

ثم جربت
Private Sub Command1_Click()

Dim a(1 To 14) As String
Open "c:\file.txt" For Input As #1


For i = 1 To 14
Input #1, a(i)
Text1.Text = a(i)
Next i


End Sub


هذه المرة لم ينسخ شيء
هل من افكار?
شكرا

 

[dragon-lebna]

tu peux fairer comme ça


Open "C:\fichier_ping.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, ligne
If Len(ligne) <> 0 Then

'----- les traitements

End If
End If
Loop ' fin tant que

 

[sni1699per]

Private Sub Command1_Click()

Open "C:\file.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, ligne
If Len(ligne) <> 0 Then

Text1.Text = ligne

End If
Loop ' fin tant que

End Sub


هذه الطريقة تنسخ السطر الاخير من الملف