• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

giúp về đọc file text

Nơi trao đổi về các vấn đề trong lập trình Windows Forms, Console dùng cú pháp ngôn ngữ Visual Basic .NET và C#

Điều hành viên: tungblt, vuathongtin

Hình đại diện của người dùng
bangnhatquang68
Guru
Guru
Bài viết: 791
Ngày tham gia: T.Ba 26/01/2010 12:44 pm
Đến từ: Vĩ tuyến 17
Has thanked: 20 time
Been thanked: 38 time
Liên hệ:

Re: giúp về đọc file text

Gửi bàigửi bởi bangnhatquang68 » T.Sáu 01/04/2011 8:01 pm

nếu là hướng dẫn thì bạn có thể cho bài viết sang mục hướng dẫn được không?
để các bạn khác dễ tìm và đọc


Mời anh em lên facebook giao lưu nào!
http://www.facebook.com/groups/145823032176611/

Hình đại diện của người dùng
nhutwarn1998
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 87
Ngày tham gia: T.Tư 09/02/2011 9:48 pm
Has thanked: 1 time

Re: giúp về đọc file text

Gửi bàigửi bởi nhutwarn1998 » CN 19/06/2011 11:34 pm

Úi giời. Cứ xài ReadAllText và WriteAllText là được. Mún lấy dòng nào thì split nó ra, có một đống tha hồ mà chọn

Hình đại diện của người dùng
headshot
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 68
Ngày tham gia: T.Bảy 19/02/2011 10:27 am
Đến từ: Biên Hòa - Đồng Nai
Has thanked: 1 time
Been thanked: 1 time
Liên hệ:

Re: giúp về đọc file text

Gửi bàigửi bởi headshot » T.Hai 20/06/2011 11:59 am

  1. Public Class Form1
  2.  
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.  
  5.         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  6.             Dim mangtxt() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
  7.  
  8.             For i As Integer = 0 To mangtxt.Length - 1
  9.                 TextBox1.Text = mangtxt(i)
  10.             Next
  11.  
  12.         End If
  13.  
  14.     End Sub
  15. End Class


Code này sao ko đọc dc file txt rùi đổ vào textbox vậy ? Mặc dù properties Mulltiline = True rồi
Mình làm nó chỉ đọc dc dòng cuối cùng của file text , ko đọc dc hết file text

bạn nào xem dùm mình thiếu gì ko :-? :-? :-?

Hình đại diện của người dùng
vuathongtin
Điều hành viên
Điều hành viên
Bài viết: 1028
Ngày tham gia: CN 02/05/2010 10:03 pm
Đến từ: Xứ sở DG
Has thanked: 2 time
Been thanked: 105 time
Liên hệ:

Re: giúp về đọc file text

Gửi bàigửi bởi vuathongtin » T.Hai 20/06/2011 12:23 pm

Bạn chưa nối chuỗi "+" hoặc "&"
  1.           For i As Integer = 0 To mangtxt.Length - 1
  2.                 TextBox1.Text += mangtxt(i)
  3.             Next
Bùi Thành Nhân
CNTT-Sở Thông tin & Truyền thông tỉnh Phú Yên
giasulaptrinh.com
Skype:vuathongtin

Hình đại diện của người dùng
headshot
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 68
Ngày tham gia: T.Bảy 19/02/2011 10:27 am
Đến từ: Biên Hòa - Đồng Nai
Has thanked: 1 time
Been thanked: 1 time
Liên hệ:

Re: giúp về đọc file text

Gửi bàigửi bởi headshot » T.Hai 20/06/2011 12:25 pm

Đã ra rùi , tiện thể up luôn code cho 3 loại : textbox, Richtextbox, Listbox
  1. Public Class Form1
  2.  
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.  
  5.         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  6.             Dim mangtxt() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
  7.  
  8.             For Each dong As String In mangtxt
  9.                 TextBox1.Text += dong + vbNewLine
  10.             Next
  11.  
  12.             For i As Integer = 0 To mangtxt.Length - 1
  13.                 ListBox1.Items.Add(mangtxt(i))
  14.             Next
  15.  
  16.             For Each dong As String In mangtxt
  17.                 RichTextBox1.Text += dong + vbNewLine
  18.             Next
  19.         End If
  20.  
  21.     End Sub
  22. End Class

Hình đại diện của người dùng
headshot
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 68
Ngày tham gia: T.Bảy 19/02/2011 10:27 am
Đến từ: Biên Hòa - Đồng Nai
Has thanked: 1 time
Been thanked: 1 time
Liên hệ:

Re: giúp về đọc file text

Gửi bàigửi bởi headshot » T.Hai 20/06/2011 12:30 pm

vuathongtin đã viết:Bạn chưa nối chuỗi "+" hoặc "&"
  1.           For i As Integer = 0 To mangtxt.Length - 1
  2.                 TextBox1.Text += mangtxt(i)
  3.             Next

+ vbnewline nữa vuathongtin , ko thì nó sẽ ra 1 nùi dính chùm nhau :D

duongtranhoang
Thành viên chính thức
Thành viên chính thức
Bài viết: 23
Ngày tham gia: T.Sáu 11/01/2013 12:49 am
Has thanked: 1 time

Re: giúp về đọc file text

Gửi bàigửi bởi duongtranhoang » CN 14/04/2013 2:17 pm

Form có 3 textbox.
Mọi người cho e hỏi.
E muốn khi mở file txt như sau để chỉ hiện các số vào các textbox :
"a = 1
b = 2
Ket qua phep cong: c = 3"

E đã làm theo cách sau thì nó hiện cả chữ.
  1. Imports System.IO
  2. Public Class Form1
  3. Dim Open As New OpenFileDialog()
  4.         Dim SR As System.IO.StreamReader
  5.         Open.Filter = "Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
  6.         Open.CheckFileExists = True
  7.         Open.Title = "Open"
  8.         Open.ShowDialog(Me)
  9.        
  10.             Open.OpenFile()
  11.             myStreamReader = System.IO.File.OpenText(Open.FileName)
  12.             TextBox1.Text = SR.ReadLine
  13.             TextBox2.Text = SR.ReadLine
  14.             TextBox3.Text = SR.ReadLine
  15.  End Sub

DoremonA
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 441
Ngày tham gia: T.Sáu 29/07/2011 1:00 pm
Has thanked: 11 time
Been thanked: 145 time

Re: giúp về đọc file text

Gửi bàigửi bởi DoremonA » CN 14/04/2013 5:39 pm

Bạn chưa xử lý chuỗi dĩ nhiên là có gì thì nó hiện vậy rồi
Theo câu file text và yêu cầu của bạn thì vấn đề cần xử lý là lấy số sau dấu "="
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim Open As New OpenFileDialog
  3.         Open.Filter = "Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
  4.         If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
  5.             Dim St() As String = IO.File.ReadAllLines(Open.FileName)
  6.             Textbox1.Text = LocChuoi(St(0), "=")
  7.             Textbox2.Text = LocChuoi(St(1), "=")
  8.             Textbox3.Text = LocChuoi(St(2), "=")
  9.         End If
  10.     End Sub
  11.     Function LocChuoi(ByVal Chuoi As String, ByVal Chr As Char)
  12.         Dim dIndex = Chuoi.IndexOf(Chr)
  13.         If (dIndex > -1) Then Return Mid(Chuoi, dIndex + 2).Trim
  14.         Return Nothing
  15.     End Function
  16.  

duy0411
Bài viết: 1
Ngày tham gia: T.Bảy 11/04/2015 5:00 pm

Re: giúp về đọc file text

Gửi bàigửi bởi duy0411 » T.Bảy 11/04/2015 5:16 pm

Các bạn có thể tham khảo video hướng dẫn ghi dọc file trong vb.net:
https://www.youtube.com/watch?v=0m5b9nR ... yaqxH5auxp

NguyenThanhNhan96
Bài viết: 2
Ngày tham gia: T.Ba 18/09/2018 10:18 am

Re: giúp về đọc file text

Gửi bàigửi bởi NguyenThanhNhan96 » T.Ba 18/09/2018 10:27 am

:-S mọi người cho e hỏi, tạo giao diện dieu khiển 8 led bằng Visual Basic như thế nào ạ. Em mò mãi mà vẫn chưa được


Quay về “Visual Basic .NET và C# (VB.NET & C#)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.11 khách