ريختن آرايه در فايل

[egproje]

سلام دوستان.
چطور ميشه محتويات 1 آرايه رو ريخت توي فايل متني طوري كه كنار هم قرار بگيرند نه زير هم مثلا اگه 1 تا 7 وارد آرايه كرديم :
داخل فايل متني به اين صورت باشه 1,2,3,4,5,6,7
نه به اين صورت :
1
2
3
4
5
6
7
ممنون ميشم دوستان راهنماييم كنن.

[xxxxx_xxxxx]

سلام
براي اين كار من دو راه به ذهنم ميرسه.
اول آرايه مونو بسازيم:


Dim ar(6) As Integer
For i = 0 To 6
ar(i) = i + 1
Next i


راه اول اين كه كل آرايه رو با همون فرمت دلخواه تو يك متغير رشته اي ذخيره كنيم و بعد اين متغير رو تو فايل بنويسيم. به اين صورت:


Dim s As String
For i = 0 To 6
s = s & Str(ar(i)) & ","
Next

Open "C:\a.txt" For Output As #1
Print #1, s
Close #1


راه دوم اين كه يادي از QBasic خدابيامرز كنيم. وقتي يه متغير رو Print مي كرديم مي تونستيم با , و ; فرمت ظاهر شدن متغير تو خروجي رو تغيير بديم. اينجا هم به همين صورت.
پس دوباره همون آرايه رو تعريف كنيد و بعد:


Open "C:\a2.txt" For Output As #1
For i = 0 To 6
Print #1, ar(i) & ",";
Next i
Close #1

موفق باشيد/