PDA

View Full Version : خواندن قسمتهایی از فایل تکس که با (",") جدا شده اند و ذخیره آن در ListBax یا TextBox



BabiTakpar
چهارشنبه 08 آبان 1392, 22:40 عصر
با سلام خدمت دوستان
ببخشید من کلی تو این تاپیکها گشتم ولی نتونستم مطلبی در این مورد پیدا کنم.
من یک فایل Text دارم که محتویاتش با "," جدا شده مثلا
Ali,200,abc,5
babak,500,edf,6
میشه با استفاده از StreamReader یا هر متد دیگه طوری تنظیم کرد که وقتی اشاره گر به کاراکتر ","رسید کلمه قبلیش رو ذخیره کنه
یعنی بشه
TextBox1.Text=Ali
TextBox2.Text=200
TextBox3.Text=abc
TextBox4.Text=5
بعد بلافاصله اینارو خالی کنه بره خط بعدی
یعنی بشه
TextBox1.Text=babak
TextBox2.Text=500
TextBox3.Text=edf
TextBox4.Text=6
ممنون میشم کمکم کنید خیلی گیرم

من با این کد تونستم همشو بخونم بریزم تو تکس باکس ولی نتونستم اون کار رو انجام بدم

Dim Fs As New FileStream("c:\F.txt", FileMode.Open, FileAccess.Read)
Dim SR As New StreamReader(Fs)

SR.BaseStream.Seek(1, SeekOrigin.Begin)

While SR.Peek > -1
TextBox1.Text &= SR.ReadLine() + vbNewLine
End While

SR.Close()

rahnema1
چهارشنبه 08 آبان 1392, 23:32 عصر
Dim stread As System.IO.StreamReader = New System.IO.StreamReader("C:\\myfile.txt")
Dim mystring() As String
While Not stread.EndOfStream
mystring=stread.ReadLine().Split(",")
textBox1.Text=mystring(0)
textBox2.Text=mystring(1)
textBox3.Text=mystring(2)
textBox4.Text=mystring(3)
End While

BabiTakpar
جمعه 10 آبان 1392, 09:19 صبح
ممنون از شما مشکل حل شد