PDA

View Full Version : آموزش: ذخیره ی انواع داده در یه فایل txt



کاظم فلاحی خواه
شنبه 29 مهر 1391, 15:36 عصر
دوستان عزیز من می خوام توی برنامه ام داده ها رو توی یه فایل txt ذخیره کنم مثل آرایه ها
و می خوام مثلا خط 2 فایل txt رو توی textbox بریزم .

hafez_ka
شنبه 29 مهر 1391, 17:59 عصر
سلام داداش این جواب سئوالته

Dim in_path As String = My.Application.Info.DirectoryPath & "\out.txt"
Dim out_path As String = My.Application.Info.DirectoryPath & "\out.txt"
Private Sub input()
''''''''input line 2''''''''''''''''''
FileOpen(1, in_path, OpenMode.Input, OpenAccess.Read)
Dim khat1 As String = LineInput(1)
TextBox1.Text = LineInput(1) 'khat2
FileClose(1)
End Sub


Private Sub output()
''''''''out put array to txt file''''''''''
Dim x(100) As Integer
For y As Integer = 0 To 100
x(y) = y
Next
FileOpen(1, out_path, OpenMode.Output, OpenAccess.Write)
For y As Integer = 0 To 100
Write(1, x(y))
Next
WriteLine(1, vbNewLine & "salam")
FileClose(1)
MsgBox("Write success")
End Sub

اگه مشکلی داشتی همین جا مطرح کن