نوشتن و خواندن [بایگانی]

morika

پنج شنبه 17 بهمن 1387, 01:43 صبح

سلام
می خواستم بدونم چه جوری میشه کاری کرد که محتویات یک تکس باکس به صورت فایل txt تو یه آدرسی ذخیره بشه بعد محتوایات همون فایل txt جای دیگه توی یک تکس باکس خونده بشه
ممنون

parselearn

پنج شنبه 17 بهمن 1387, 07:45 صبح

خب دوست عزيز شما ذخيرش كنيد
سپس با استفاده از API وجودش رو در برنامه ديگه بررسي كنيد
در صورت وجود لودش كنيد

با استفاده از رجيستري هم ميشه
مثلا داده Dword اگر 1 بود فايل متني را باز كن

morika

پنج شنبه 17 بهمن 1387, 11:31 صبح

دوست عزیز شما با این پاسخ های کاملی که می دی یه وقع خسته نشی
خوب برادر اگه من بلد بودم چه جوری این کارایی رو که گفتی انجام بدم دیگه چرا سوال می کردم...!؟

masoud.t123

پنج شنبه 17 بهمن 1387, 12:21 عصر

دوست عزیز برای این کار شما باید از FSO استفاده کنید که اگه یهجستجویی کنید حتما پیدا می شه

e601

پنج شنبه 17 بهمن 1387, 20:47 عصر

سلام
می خواستم بدونم چه جوری میشه کاری کرد که محتویات یک تکس باکس به صورت فایل txt تو یه آدرسی ذخیره بشه بعد محتوایات همون فایل txt جای دیگه توی یک تکس باکس خونده بشه
ممنون

با سلام
دوست عزیز راحت ترین کار استفاده از کنترل Microsoft Rich Text Control6.0 هست که میتونید از لیست موجود در پنجره Components به Toolbox خودتون اضافش کنید
امکان ذخیره و لود فایلهای با پسوند txt و rtf رو به راحتی در اختیار شما قرار میده

با استفاده از کد زیر میتونید محتویاتش رو در یک فایل مثلا rft در مسیر مورد نظر ذخیره کنید

Me.RichTextBox1.SaveFile "C:\TestFile.rtf"

با مقدار دهی خاصیت FileName و فراخوانی اون هم میتونید فایل مورد نظر رو لود کنید

موفق باشید...

e601

پنج شنبه 17 بهمن 1387, 20:50 عصر

البته اگه بخواهید حرفه ای تر هم کار کنید روشهای پیشرفته تر هم وجود داره
در قسمت اعلانات بخش و فکر میکنم تاپیک یک سری آموزش فوق العاده جالب بود که آموزش کار با فایلها داده شده است

موفق باشید...

vbhamed

جمعه 18 بهمن 1387, 00:08 صبح

سلام

Private Sub Save()

Open "c:\test.txt" For Output As #1

Dim x$

x = Text1

Print #1, x

Close

End Sub

Private Sub Load()

Open "c:\test.txt" For Binary As #1

Dim x$

x = Space$(LOF(1))

Get #1, , x
Text1 = x

Close

End Sub

warden

جمعه 18 بهمن 1387, 11:29 صبح

Jassad

دوشنبه 21 بهمن 1387, 17:15 عصر

Private Sub cmdsave_click()
Open "C:\1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub cmdload_click()
Open "1.txt" For Input As #1
Input #1, A
Text2.Text = A
Close #1
End Sub

سلام
چطوری میشه این فایل تکست را از یک وبسایت لود کرد.
مثلا من یک فایل TXT در سایتی آپلود کردم و میخواهم آنرا در تکست باکس نمایش بدهم.
در ضمن من کد بالا رو استفاده کردم و مشکلی که داشتم این بود که فقط سطر اول را نمایش میداد!

r0ot$harp

دوشنبه 21 بهمن 1387, 21:27 عصر

سلام
چطوری میشه این فایل تکست را از یک وبسایت لود کرد.
مثلا من یک فایل TXT در سایتی آپلود کردم و میخواهم آنرا در تکست باکس نمایش بدهم.
در ضمن من کد بالا رو استفاده کردم و مشکلی که داشتم این بود که فقط سطر اول را نمایش میداد!

دوست عزیز برای خوندن کل فایل از تکه کد زیر استفاده کنید :

Private Sub cmdload_click()
dim a as string
Open "1.txt" For Input As #1
do while not eof(1)
Input #1, a
Text2.Text = text2.text & a
loop
Close #1

End Sub

برای خواندن مقادیر از سایت ها من مقاله ای در سایت قرار دادم لطفا در تاپیک های بنده جستجو کنید .

باتشکر احسان