خواندن فایل 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 مورد نظر شماست

[R2du-soft]

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

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

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

ببخشید توی کدهای بالا از خط

AllTheText = Input(LOF(1), #1)
  
و
  
Set y = x.OpenTextFile("E:\amar.txt", ForReading)

خطا گرفته میشه ، میشه کمک کنید؟
من با vb6 کار میکنم

[just4froum]

با سلام نمی دونم مرورگر من بد نشون میده یا مشکل از سایته ولی کد های بالا درست هستند فقط به جای ( علامت ) و به جای ) علامت ( را جایگذین کن درست میشه. یعنی

AllTheText = Input(Lof(1),1)