خواندن فایل txt . در ویژوال بیسیک و ریختن آن در یک text box

[احمد حسین بنا]

دوستان عزیز سلام
من می خوام از داخل برنامم محتویات یک فایل text را بخوانم و درون یک text box نمایش دهم . حجم فایل مورد نظر یگ مگا بایت است . چگونه ؟؟؟

مچکرم

[علیرضا مداح]

سلام .
از کد زیر برای این کار میتونید استفاده کنید : :)


Dim AllTheText As String
Open "filepath" For Input As #1
AllTheText = Input(LOF(1), #1)
Close #1
text1.text = AllTheText

[روح اله معینی زاده]

سلام دوست گرامی

این هم یک روش دیگه که برای استفاده از اون شما باید از منوی Project و گزینه Reference، ارجاع Microsoft Scripting Runtime را انتخاب کنید تا بتوانید از آن استفاده کنید.

برای اجرای مثال زیر به یک جعبه متن با خاصیت چند خطی فعال نیاز خواهید داشت.


Dim x As New FileSystemObject
Dim y As TextStream
Set y = x.OpenTextFile("E:\amar.txt", ForReading)
Text1.Text = y.ReadAll


با احترام- خدانگهدار

[subsub]

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


Dim FileGet As String * 1
Dim Counter As Long
Open "File" For Binary As 1
For Counter = 1 To LOF(1)
Get 1, , FileGet
Text1.Text = Text1.Text + FileGet
Next
Close
جلوی فرمان open یک رشته وجود داره که نام و مسیر کامل فایل text مورد نظر شماست