كمك فوري

x26xmax · Apr 21, 2008

ایجاد فایل متنی

سلام
معذرت ميخوام من اصلا حواسم نبود منظوري هم نداشتم
فكر كنم جاي خوبي مطرح نكردم ، نه؟

اگه منو راهنمايي كنيد ممنون ميشم

peyman136 · Apr 21, 2008

كد :

براي ذخيره يه فايل بايد به شكل زير عمل كني
حالا كه ميخواي از Edit box ذخيره كني به جاي $A بايد آدرس فايل و بجاي $string ، مقدار Edit Box رو وارد كني :

**This save string$ to test.txt
A$='<SrcDir>\test.txt'

string$= 'this string will be append to text file'

ReturnVal=StrToFile(A$,string$,TRUE,FALSE)

**This save 10 lines (Line 1...Line 10) to test.txt

A$='<SrcDir>\test.txt'

For i=1 To 10

string$= 'Line ' + CHAR(i)

ReturnVal=StrToFile(A$,string$,TRUE,TRUE)

Next i

x26xmax · Apr 21, 2008

ممنون آقا پيمان

اگه ممكنه سورسشو بذارين
دليل اينكه اخطار گرفتم چي بود
كدوم بند قانون سايتو زير پا گذاشتم ؟؟؟

silvercover · Apr 21, 2008

x26xmax گفت:
ممنون آقا پيمان

اگه ممكنه سورسشو بذارين
دليل اينكه اخطار گرفتم چي بود
كدوم بند قانون سايتو زير پا گذاشتم ؟؟؟

- استفاده از عناوین گنگ همچون "کمک فوری"، "کمک کمک کمک" و مشابه اینها ممنوع می باشد. سعی کنید از جمله هایی که مشکل شما را توصیف می کنند استفاده نمایید.