خواندن اطلاعات ار فایل متنی

[iran_sky]

با سلام خدمت دوستان
من با این کد میخوام اطلاعات رو از بانک بخونم اما در listbox اطلاعات رو زیر هم نمایش میده و اگر data عددی داشته باشم خطا میده ممنون میشم کمکم کنید که چطور اطلاعات در یک خط نمایش بده و همچنین اگر data عددی داشتم خطا نگیره



Try
Dim s As String = ""
Dim fn As Integer = FreeFile()
FileSystem.FileOpen(fn, "d:\test.txt", OpenMode.Input)
While Not EOF(fn)
Input(fn, s)
ListBox1.Items.Add(s)
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try

[غلامرضا شریفی]

چيزي كه من ميبينم شما از فايل متني داريد ميخوانيد نه از بانك
براي خواندن از فايل تكس و نوشتن در ليست باكس


ListBox1.Items.AddRange(IO.File.ReadAllLines("d:\test.txt"))

[golshiri]

با سلام ، براي خواندن فايلهاي تكست از اين روش هم ميتونيد استفاده كنيد

Dim objStreamReader As StreamReader
Dim strLine As String
objStreamReader = New StreamReader("c:\test.txt")
'Read the first line of text.
strLine = objStreamReader.ReadLine
If Not strLine Is Nothing Then ServerName = strLine
strLine = objStreamReader.ReadLine
If Not strLine Is Nothing Then BranchID = strLine
strLine = objStreamReader.ReadLine
If Not strLine Is Nothing Then SmsProgramFile = strLine
strLine = objStreamReader.ReadLine
If Not strLine Is Nothing Then UserName = strLine
'Close the file.
objStreamReader.Close()

[morrning]

آخرش نفهمیدیم میخوای از بانک بگیری یا از فایل؟:افسرده:

[b.mahsa]

به این لینک یه نگاه بنداز
http://barnamenevis.org/forum/showthread.php?t=39374
فکر می کنم از streamreader استفاده کنی بهتره