• 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

Print #filemunber, trong VB6

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

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

CaoHung93
Bài viết: 2
Ngày tham gia: T.Ba 07/06/2016 9:00 pm

Print #filemunber, trong VB6

Gửi bàigửi bởi CaoHung93 » T.Tư 08/06/2016 4:10 pm

  1.  Chào các mem, Mình đang làm một module trong VB6. Mình muốn in ra một file txt
  2. Mình đã sử dụng code:
  3. Print #2, CP & " " & DK & " " & TR & " " & CP & " " & D & " " & P & " " & G
  4. Print #2, CP & " " & TR & " " & CP & " " & S & vbCrLf
  5. sẽ cho kết quả:
  6. 1 15 14 1 213 46 23
  7. 1 14 1 39.052
  8.  
  9. 2 19 1 2 238 12 19
  10. 2 1 2 36.3
  11.  
  12. 3 1 2 3 186 14 2
  13. 3 2 3 30.159
  14.  
  15. 4 2 3 4 172 8 11
  16. 4 3 4 42.864
  17. Như vậy 2 lệnh print đang lồng ghép nhau, nhưng mình muốn thực hiện hết lệnh print thứ nhất rồi mới thực hiện lệnh in thứ 2.
  18. Tức mình muốn có được kết quả như sau:
  19. 1 15 14 1 213 46 23
  20. 2 19 1 2 238 12 19
  21. 3 1 2 3 186 14 2
  22. 4 2 3 4 172 8 11
  23.  
  24. 1 14 1 39.052
  25. 2 1 2 36.3
  26. 3 2 3 30.159
  27. 4 3 4 42.864
  28. vậy mình phải viết code như thế nào?
  29. Mong các mem giúp đỡ. Cảm ơn các bạn đã quan tâm vấn đề của mình!



Hình đại diện của người dùng
Dark.Cosmos
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 72
Ngày tham gia: T.Sáu 21/11/2014 3:58 am
Has thanked: 25 time
Been thanked: 14 time
Liên hệ:

Re: Print #filemunber, trong VB6

Gửi bàigửi bởi Dark.Cosmos » T.Hai 18/07/2016 9:59 am

Đoạn code đó chắc nằm trong 1 vòng lặp hay 1 event nào đấy.
Có thể dùng tạm cách dưới đây(cách này sẽ tốn bộ nhớ, ct chạy chậm):

Open pathfile for output thay cho append.
Static s1$: s1 = s1 & CP & " " & DK & " " & TR & " " & CP & " " & D & " " & P & " " & G
Static s2$: s2 = s2 & CP & " " & TR & " " & CP & " " & S & vbCrLf
Print #2, s1 & s2

Hoặc print ra 2 file riêng biệt = open for append để ct đỡ phải xử lý nặng nề hơn, khi cần dùng dữ liệu thì load 2 file vào = open pathfile for input, và ghép lại như cách ở trên.
Triệu người quen có mấy người thân, khi lìa trần có mấy người đưa?
DK Cosmos


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Google [Bot]5 khách