نحوه ذخیره سازی آرایه در فایل تکست

[milad5843]

با سلام

دوستان من يه آراىه دارم از نوع string مثلا : a(500)
ميخوام user وقتى button1 رو ميزنه از a(۱) تا a(۵۰۰) بره توى text به ترتيب از خط ۱ تا خط ۵۰۰ save شه.
چى كار بايد كنم ؟
در ضمن چه جورى بايد انتخاب نام رو از دست كاربر خارج كنم ؟ یعنی به صورت خودکار با نام test.txt ذخیره بشه

نحوهِ باز كردن savefiledialog رو بلدم.

خيلى ممنون.

[milad5843]

:گریه:
:گریه:

[Parham.D]

از کد زیر استفاده کن (تست کردم، جواب میده)





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OutputString As String = ""

Dim TextArray As String() = New String(2) {}
TextArray(0) = "Text1 in first line" : TextArray(1) = "Text2 in second line" : TextArray(2) = "Text3 in third line"

For index As Integer = 0 To TextArray.GetUpperBound(0)
OutputString &= TextArray(index) & vbCrLf
Next

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim Writer As StreamWriter = File.CreateText(Path.GetDirectoryName(SaveFileDial og1.FileName) & "\" & "Test.txt")
Writer.Write(OutputString)
Writer.Close()
End If
End Sub



کاربر هر اسمی که وارد کنه واسه فایل، باز هم در آخرین مسیر گرفته شده فایل با نام مورد نظر شما ذخیره میشود.

[Hossis]

این کد خیلی خلاصه هست و نیازی به تکست باکس هم نداره
در خط دوم به بعد، ابتدا اعضای آرایه را پر می کنیم و در خط آخر ذخیره می نماییم در فایل متنی
Dim D(100) As String
For i = 0 To UBound(D)
D(i) ="Line" & i
Next
''' TextBox1.Lines = D
IO.File.WriteAllLines("d:\1.txt", D)