BabiTakpar
چهارشنبه 08 آبان 1392, 23: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()
ببخشید من کلی تو این تاپیکها گشتم ولی نتونستم مطلبی در این مورد پیدا کنم.
من یک فایل 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()