يه سوال در مورد ذخيره كردن اطلاعات در يه txt [بایگانی]

sh2007

شنبه 01 اسفند 1388, 07:19 صبح

دوستان من يه فايل تسكت رو ايجاد كردم و با استفاده از حقه for مقاديري رو به اون فايل
اضافه مي كنم
FileOpen(1,"D:\Test.txt"
For I = 1 To 5
Print(1,"1000"

Next I

مثلا عدد 1000 رو 5 بار به فايل اضافه مي كنم اين عدد توي تكست در كنار هم كنار مي گيرند
بدينصورت
55555
اما دوستان من چطور مي تونم اين داده رو به اين صورت توي تكست ذخيره كنم
5
5
5
5
5

ممنون از راهنمائي شما دوستان

Netsky

شنبه 01 اسفند 1388, 07:57 صبح

سلام دوست عزیز .
با این کد مشکل شما حل خواهد شد :

Dim Writter As System.IO.StreamWriter = File.AppendText("C:\Test.txt")
Dim i As Integer
For i = 1 To 5
Writter.WriteLine("1000")
Next
Writter.Close()