مشكلة في VB6

sni1699per

نجم المنتدى
إنضم
16 مارس 2007
المشاركات
4.469
مستوى التفاعل
5.077
لسلام عليكم
عندي سؤال :
كيف افتح ملف 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

عضو نشيط
إنضم
20 سبتمبر 2007
المشاركات
156
مستوى التفاعل
55
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

نجم المنتدى
إنضم
16 مارس 2007
المشاركات
4.469
مستوى التفاعل
5.077
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


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