PDA

نسخه کامل مشاهده نسخه کامل : یک سوال ساده درباره تکست باکس !



TAMIZI
07-04-2006, 19:24
سلام
میشه بگید چه جوری میشه مشخص کرد که text یه تکس باکس از یک فایل .txt خوانده بشه
یهنی مثلا text1.text جمله ای باشه که در یک فایل متنی در یک درایو و در یک پوشه مشخص قرار گرفته باشه
خیلی خیلی ممنون میشم
این رو هم بگم که من خودم اون فایل رو ننوشتم پس بنابراین فکر کنم نمیشه از دستور input کمک گرفت(یعنی اون فایل تکست از قبل وجو داشته )

blackroos
07-04-2006, 22:40
از open استفاده کن

Blue Rose
08-04-2006, 04:27
راستش دقیقا متوجه نشدم اما فکر کنم به این نیاز داری

یه تابع تعریف میکنی
کامپوننت microsoft CommonDialog رو اضافه میکنی
کد رو میدی

CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #تابع
Text1.Text = Input(LOF(تابع), #تابع)


اگه منظورت چیز دیگه ایه بیشتر توضیح بده

vandu
17-04-2006, 04:33
از دستور های زیر استفاده کن:
Open Filename For Input As #1
dim t as string
text1.multiline=true
while not eof(1)
line input #1,t
text1.text=text1.text+t
wend
close

tomcat
13-05-2006, 06:10
به جای Text از RichTextBox استفاده کن هم میتونی فایل باز کنی و هم میتونی ذخیره کنی .

Blue Rose
16-05-2006, 08:21
به جای Text از RichTextBox استفاده کن هم میتونی فایل باز کنی و هم میتونی ذخیره کنی .

با تکست باکس هم میشه این کارها رو کرد
من که تو یکی از تاپیکها NotePad ی رو (که همینطوری درست کرده بودم) گذاشتم واسه داونلود
اعلام هم کردم کد هر قسمت رو بخواهید واستون میذارم