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

Printable View

پنج شنبه 21 خرداد 1383, 12:35 عصر
احمد حسین بنا

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

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

مچکرم
پنج شنبه 21 خرداد 1383, 18:00 عصر
علیرضا مداح
سلام .
از کد زیر برای این کار میتونید استفاده کنید : :)
```
Dim AllTheText As String

Open "filepath" For Input As #1

AllTheText = Input&#40;LOF&#40;1&#41;, #1&#41;

Close #1

text1.text = AllTheText
```
شنبه 23 خرداد 1383, 14:16 عصر
روح اله معینی زاده

این هم یه جواب دیگه
سلام دوست گرامی

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

برای اجرای مثال زیر به یک جعبه متن با خاصیت چند خطی فعال نیاز خواهید داشت.
```
    Dim x As New FileSystemObject

    Dim y As TextStream

    Set y = x.OpenTextFile&#40;"E&#58;\amar.txt", ForReading&#41;

    Text1.Text = y.ReadAll
```
با احترام- خدانگهدار
جمعه 29 اردیبهشت 1385, 13:05 عصر
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 مورد نظر شماست
یک شنبه 15 مرداد 1391, 00:57 صبح
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

با احترام- خدانگهدار
ببخشید توی کدهای بالا از خط

کد HTML:

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

خطا گرفته میشه ، میشه کمک کنید؟
من با vb6 کار میکنم
یک شنبه 15 مرداد 1391, 13:42 عصر
just4froum

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

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

AllTheText = Input(Lof(1),1)