مشکل با ذخیره متن در نوتپد

[iran2008]

سلام

من وقتی میخواهم متنی رو در یک تکست باکس توی یک نوتپد ذخیره کنم به صورت شکل زیر ذخیره میشه و همانطور که توی عکس میبینید اول و آخر متن یک علامت کوتیشن ( " ) میذاره. :



برای اینکه متن رو درست ذخیره کنه و کوتیشن نذاره چیکار باید کرد؟

[iran2008]

ضمن اینکه من از این دستور استفاده میکنم :



Private Sub Command1_Click()
intfnum = FreeFile
Open "e:\untitled.txt" For Output As #intfnum
Write #intfnum, t.Text
Close intfnum
End Sub

[XSS]

علتش اینه که از دستور Write استفاده کردی
دستور Write رشته ها رو توی کتیشن قرار میده و چاپ میکنه و تاریخ و مقادیر بولین رو هم بین علامت شارپ (#)
برای اینکه کدتون درست بشه بجای Write باید از دستور Print استفاده کنید.
یعنی کد درست این میشه:

کد:

Private Sub Command1_Click()
intfnum = FreeFile
Open "e:\untitled.txt" For Output As #intfnum
Print #intfnum, t.Text
Close intfnum
End Sub

[iran2008]

متشکرم