سیو کردن تعداد زیادی از تکست ها

[tehran2009]

دوستان من 100 تا Text دارم می خوام وقتی روی یک کامند کلیک کنم برنامه تمام Textها (همون 100تا) را توی یک reza.txt جفت برنامه سیو کنه.

[ƒxmahdi]

برای این کار بهتره 100 تا تکست شما از نوع آرایه ای باشه تا حجم کد نویسی کم بشه !

نمونه کد ساده بدون آرایه



Open App.Path & "\reza.txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
.
.
.
و همینطور الی آخر نام تکست ها را قرار میدهید.

Close #1


نمونه برنامه ای برای آرایه ها .