ریختن هر خط فایل متنی در یک خانه از ارایه

[ricky22]

با سلام خدمت همه دوستان
نیاز به کمک دارم در رابطه با این که : یه برنامه دارم می نویسم که احتیاج هست یه فایل متنی رو از ورودی بخونم بعد هر خط از فایلو بریزم تو یه خونه از ارایه (لیست پیوندی که فک نکنم ویژوال بیسیک داشته باشه؟)
در رابطه با خوندن فایل از ورودی مشکلی ندارم
یه روال نوشتم که ار پر کردن ارایه رو انجام بده نمی دونم مشکلش چیه؟


Private Sub fill()
While Not ts.AtEndOfStream
Dim t As Integer
t = 0
v(t) = ts.ReadLine
t = t + 1
Wend

MsgBox v(1)
End Sub
در ضمن t تو general اینجوری تعریف کردم
dim t() as string
و اینکه چجوری یه ارایه پویا تعریف کنم؟
ارایه ای که تعداد خونه هاش معلوم نیست
م دارم واسه یه پروژه دانشجویی واسه یه بنده خدا رو یه فایل پایل یه سری کارا انجام میدم
با تشکر

[ricky22]

دوستای خوب این همه vb کار تو انجمن هست یعنی کسی جوابو نمیدونه؟

[parselearn]

Dim St As String
Dim gstrContacts() As String

Public Sub LoadSupportInfo()
On Error Resume Next
Dim InFIle
Dim LineIn As String
Dim strFilename As String
Dim i As Integer
ReDim gstrContacts(i)
i = 0
InFIle = FreeFile
strFilename = App.Path & "\my.txt"
On Error Resume Next
Open strFilename For Input As InFIle
While Not EOF(InFIle)
'get next line
Line Input #InFIle, LineIn
ReDim Preserve gstrContacts(i)
gstrContacts(i) = LineIn: i = i + 1
Wend
Close InFIle

End Sub


Public Sub RSupportInfo()
On Error Resume Next
Dim i As Integer

Call LoadSupportInfo
List1.Clear
For i = 0 To UBound(gstrContacts)
If gstrContacts(i) <> "" Then List1.AddItem gstrContacts(i)
Next i
End Sub

Private Sub Command1_Click()
RSupportInfo
End Sub