چگونه محتویات یک فایل تکست را به داخل یک تکست باکس منتقل کنیم ؟

[oxblood]

با سلام
من یک تکست باکس دارم و یک فایل تکست و میخوام محتویات فایل تکست را به تکست باکس انتقال بدم و سپس محتویات تکست باکس رو هم پاک کنم :لبخند:
ممنون میشم واسم یک پروژه رو ضمیمه کنید که اینکارو میکنه :کف:

با تشکر

[oxblood]

کسی نیست جواب منو بده ؟؟
ضروریه !!!

[HamedFaa]

f = FreeFile
dim fn as string
fn = "c:\text.txt"
Open fn For Input As #f
Do While Not EOF(f)
Line Input #f, m
M1 = M1 & m & vbCrLf
Loop
Close #f
Text1.Text = M1

[محسن واژدی]

f = FreeFile
dim fn as string
fn = "c:\text.txt"
Open fn For Input As #f
Do While Not EOF(f)
Line Input #f, m
M1 = M1 & m & vbCrLf
Loop
Close #f
Text1.Text = M1

سلام
این دستور در مورد فایل های یا حجم کم مشکلی نداره اما در مورد فایل های با حجم بالا وقت زیادی را صرف میکند، برای وارد کردن محتویات یک فایل متنی یک دستور استاندارد وجود دارد، بصورت زیر که کل محتویات فایل را یکباره به TextBox وارد میکند

Private Sub Command1_Click()
Open "c:\1.txt" For Input As #1
Text1 = Input(LOF(1), 1)
Close
End Sub



موفق باشید
یاعلی