PDA

View Full Version : سوال: ذخیره اطلاعات جدول در فایل متنی



oranoos
دوشنبه 20 آبان 1387, 13:48 عصر
سلام
من یه کد می خوام که اطلاعاتی رو که نیاز دارم از کوئری بگیره و یکسری اطلاعات به اون اضافه و در یک فایل متنی ذخیره کنه البته من این کد رو با رایت نوشتم درستم جواب میده ولی یه علامت " اضافه میکنه کسی میتونه در این زمینه منو راهنمایی کنه

mostafaaa
دوشنبه 20 آبان 1387, 17:19 عصر
خوب شما کدت رو بزار تا ببینیم مشکل کدت چیه؟

oranoos
سه شنبه 21 آبان 1387, 11:45 صبح
Dim i, a As Integer
Dim s As String
'Dim filenum As Integer
filenum = FreeFile()
FileOpen(filenum, "C:\test.txt", OpenMode.Output)
WriteLine(filenum, TextBox1.Text)
WriteLine(filenum, "")
WriteLine(filenum, "")
WriteLine(filenum, "")
For i = 0 To 8
s = "IN THE NAME OF ALAH"در این قسمت به جای این خط اطلاعات رو از دیتاریدر میخونه و چاپ میکنه
s = s + Str(i)

WriteLine(filenum, s)
Next
FileClose(filenum)

mostafaaa
سه شنبه 21 آبان 1387, 17:53 عصر
سلام
اول اینکه کدهات رو توی تگ شارپ "#" قرار بده .
و دوم
برای نوشتن توی یه فایل تکست فکر کنم از StreamWriter استفاده کنی راحتتر باشی. به این مثال یه نگاهی بنداز.

Dim SW As New StreamWriter("C:\new.txt")
Dim txt As String = Nothing
For i As Integer = 0 To 100
txt &= "*"
SW.WriteLine(txt)
Next
SW.Close()