خواندن از فایل در visual basic

[montevina1]

با سلام خدمت همه دوستان...من میخواستم از یک فایل متنی که شامل تعدادی عدد پشت سر هم است، بخوانم و این اعداد را یکی یکی در یک متغیر بریزم....

مثلا فایلی به نام test.txt که شامل رشته 3245345345 است را در یک فرم بخوانم و محتویاتش را در یک richtextbox ریخته و اعداد را یکی یکی استخراج کنم و در یک متغیر قرار بدهم....

(میخواهم هر چند ثانیه یکی از این اعداد را به پورت usb ارسال کنم....در قسمت ارسال به usb مشکلی ندارم...)

شاید سوالم ساده به نظر بیاد و لی متاسفانه من اصلا برنامه نویسی با ویژوال بیسیک را بلد نیستم و پروژم سخت افزاریه و وقت کمی هم دارم...

ممنون میشم کسی کد انجام این کارو در اختیارم بزاره...

[singel]

OpenFileDialog1.ShowDialog()
FILE_NAME = OpenFileDialog1.FileName
If System.IO.File.Exists(FILE_NAME) = True Then
Dim objReader As New System.IO.StreamReader(FILE_NAME)
Do While objReader.Peek() <> -1
TextLine = TextLine & objReader.ReadLine() & vbNewLine
MsgBox(TextLine )
TextLine = ""
Loop
endif

[singel]

توضيحات
1- يک FileDialog1 به برنامه اضافه کن
2- TextLine خطي از فايلت
3- براي جداکردنش ميتوني از mid استفاده کني

[montevina1]

مرسی دوست عزیز....مشکلم با خواندن از فایل حل شد....حالا تونستم یک رشته از اعداد که تو یه فایل متنی گذاشته بودم (مثلا 2342342432 ) را داخل لیست باکس نمایش بدم...
اما حالا میخوام این رشته(string) از اعداد را داخل یک آرایه اینتجر بریزم تا بتونم تک تک با اعداد کار کنم....چکار باید کنم؟

[singel]

Dim a1(10) As Integer
a1(1) = Val(TextBox1.Text)

[singel]

براي جداسازي چند تا کاراکتر هم اينطوري ميتوني انجام بدي

Dim a1(10) As Integer
a1(1) = Val(mid(TextBox1.Text,1,3))
عدد اول شروع
عدد دوم تعداد کاراکتر