تغيير محتويات يك فايل متني TXT

[eidazha]

سلام دوستان چطوري ميشه فايلي رو كه در درايو C:\iran.txt هست رو تغيير داد مثلا يه خط جمله داخل آن اضافه كرد.
يا حق

[Mohandese_Javan]

سلام!
اول بايد فايل رو باز كني براي نوشتن:

کد:

Open "FileName" For Append As #1

بعد با دستور رايت تو فايل مي نويسي:

کد:

St= Text1.Text
Write #1,St

اگه بازم كمكلازم داشتي يا توضيح بيشتر راجع به دستورات و پارامترهاي ديگه دستورات خواستي بگو. تا جايي كه بتونم در خدمتم! :wink:

سيد محسن

[arashrj]

سلام

كد اون دوستمون خوب بود حالا من يه چيز برات مي نويسم كه ديگه اصلا مشكل نداشته باشي

اين كد براي باز كردن

کد:

'Arash RJ
'arashrj@gmail.com
'www.arashrj.co.sr

Open "C:\iran.txt" For Input As #1
While Not EOF(1)
Input #1, n
Text1.Text = Text1.Text & n & vbCrLf
Wend
Close #1

اين كد براي ذخيره كردن

کد:

'Arash RJ
'arashrj@gmail.com
'www.arashrj.co.sr

Open "C:\iran.txt" For output As #1
print #1,Text1.Text
Close #1