• 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

đọc file txt

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Moderator: tungblt

code_gate
Thành viên chính thức
Thành viên chính thức
Posts: 17
Joined: Tue 29/07/2008 10:34 am

đọc file txt

Postby code_gate » Fri 01/08/2008 12:24 pm

em có đọc file txt mà sao nó lại xóa file em không hiểu sai ở đâu:D
các anh giải đáp giúp
http://www.mediafire.com/?u4gzzktzdmd
đây là file của mình

Code: Select all

  1. Private Sub cmdmo_Click()
  2.  
  3. Open App.Path & "\vd.txt" For Output As #1
  4. ' ghi du lieu
  5. Dim filetxt As String
  6. Do While Not EOF(1)
  7. Input #1, filetxt
  8. txthien.Text = txthien.Text & filetxt & vbCrLf
  9. Loop
  10. Close #1
  11. End Sub
  12.  

còn đây là code



User avatar
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Posts: 531
Joined: Wed 02/04/2008 2:08 pm
Location: RGames Team
Has thanked: 3 times
Been thanked: 17 times
Contact:

Re: đọc file txt

Postby Dang Minh Du » Fri 01/08/2008 12:31 pm

code_gate wrote:em có đọc file txt mà sao nó lại xóa file em không hiểu sai ở đâu:D
các anh giải đáp giúp
http://www.mediafire.com/?u4gzzktzdmd
đây là file của mình

Code: Select all

  1. Private Sub cmdmo_Click()
  2.  
  3. Open App.Path & "\vd.txt" For Output As #1
  4. ' ghi du lieu
  5. Dim filetxt As String
  6. Do While Not EOF(1)
  7. Input #1, filetxt
  8. txthien.Text = txthien.Text & filetxt & vbCrLf
  9. Loop
  10. Close #1
  11. End Sub
  12.  

còn đây là code

Có chỗ nào liên quan đến xóa file đâu bạn?
Xem lại xem có nhầm lẫn gì ko ;;)
~°Dòng Sông Mùa Thu°~
Studying...!

User avatar
playgemboy
Thành viên danh dự
Thành viên danh dự
Posts: 289
Joined: Sun 13/04/2008 6:10 am
Location: Bình Phú, Quận 6, TP.HCM
Been thanked: 1 time
Contact:

Re: đọc file txt

Postby playgemboy » Fri 01/08/2008 1:21 pm

"Open App.Path & "\vd.txt" For Output As #1", nếu là đọc thì phải sửa lại là Input (nếu là output thì nó xóa sạch nội dung file trước khi ghi)
<I Come Back>

code_gate
Thành viên chính thức
Thành viên chính thức
Posts: 17
Joined: Tue 29/07/2008 10:34 am

Re: đọc file txt

Postby code_gate » Fri 01/08/2008 2:28 pm

đúng là em có sai rồi,nhưng mà em chữa lại thì nó lại ra thế này
Image
mặc dù hằng vbCrlf là mã kết hợp của xuôgns dòng và về đầu dòng vấy ao nó in ra cái gì vậy:D

User avatar
vietteiv
Quản trị
Quản trị
Posts: 1325
Joined: Sat 10/02/2007 12:17 am
Location: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 times
Been thanked: 71 times
Contact:

Re: đọc file txt

Postby vietteiv » Fri 01/08/2008 3:17 pm

textbox có chọn cái mutiline=true chưa ? :)

User avatar
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Posts: 531
Joined: Wed 02/04/2008 2:08 pm
Location: RGames Team
Has thanked: 3 times
Been thanked: 17 times
Contact:

Re: đọc file txt

Postby Dang Minh Du » Sat 02/08/2008 8:27 am

playgemboy wrote:"Open App.Path & "\vd.txt" For Output As #1", nếu là đọc thì phải sửa lại là Input (nếu là output thì nó xóa sạch nội dung file trước khi ghi)

Ặc, nghe code_gate nói, tưởng nhầm là kill luôn cái file ;))
~°Dòng Sông Mùa Thu°~
Studying...!

thuat
Guru
Guru
Posts: 184
Joined: Thu 27/03/2008 8:24 pm
Location: Việt Trì - Phú Thọ
Been thanked: 5 times
Contact:

Re: đọc file txt

Postby thuat » Sat 02/08/2008 4:24 pm

Hình như lỗi đó liên quan đến ký tự xuống dòng thì phải. Mỗi lần xuống dòng bạn thêm như thế này xem có được không nhé: chr(13) & chr(10)
http://ththanhdinh.pgdviettri.edu.vn


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: No registered users and 16 guests