Xin bản VP database/Macro tạo bản convert thành dịch thô

[duongthanh85]

Nguyên văn bởi bacola

nếu mình thêm 2 dòng nữa thì vẫn bị lỗi 62 ..end of file

=> xử lý kết thúc file đi bạn

Mình đã sửa rồi (và thay mới file đính kèm lần 3 rồi). Bạn tải lại xem sao. Mình mới thử thêm vài dòng và chạy ngon lành

Còn phần để dữ liệu trong 2 dòng vì mình nghĩ nếu thế thì máy không phải xử lý tách chuỗi để tăng tốc độ chạy ( khá lâu với file data vài nghìn dòng).

[daitri_giangu]

Nguyên văn bởi bacola

nếu mình thêm 2 dòng nữa thì vẫn bị lỗi 62 ..end of file

=> xử lý kết thúc file đi bạn

Hihi, mình chạy không bị lỗi, chương trình này hay, đơn giản và dễ sử dụng, cám ơn bạn DT nhiều

:0 (37)::0 (37)::0 (37):

Nếu như mỗi người góp 1 tay cho data.txt thì bản dịch thô đọc khá ngon, hihi

xét kịch bản:
trong file Data.txt
- bình thường số dòng luôn chẵn.
- trong 1 vài trường hợp nào đó số dòng sẽ được thêm trong file data.txt sẽ là lẻ.

bởi vậy data.txt phải phù hợp không có số dòng lẻ
Tuy nhiên nếu xử lý data.txt trên cùng 1 dòng thì dễ xem và chỉnh sửa hơn

Chúc vui

[phamlongtuan]

Ý tưởng xuất sắc lắm bạn. Thanks cho bạn nhiều nhiều :0 (9):

Mình góp ý như này. Tất cả mọi người khi làm một cái file đóng góp cho micro này. Nhớ ghi rõ là micro dành cho truyện gì, vì một số tên riêng chỉ dành riêng cho truyện đó ví dụ như trong cuồng thần có đoạ lạc thiên sứ hoặc bỉ mông cự thú. vân vân.....

Sau khi mọi người ghi rõ ràng, nén vào rồi post lên đây. Bạn chủ topic sẽ update lại vào chính bài của bạn, nhưng khi update bạn ghi rõ là đã thêm vào nhưng micro của ai. Như vậy dần dần thư viện micro được kiểm soát một cách chặt chẽ và đầy đủ đề từ đó đi tới hoạn thiện. Thân

PLT

[duongthanh85]

- Về trường hợp nhỡ may có số dòng lẻ (như tiện tay nhấn enter cuối cùng chẳng hạn): mình thêm một dòng if là ngon lành, mình gửi kèm luôn trong bài post này tạm để bạn xem thử. :1 (3):

- Còn về data trên một dòng, nếu các bạn thấy để như vậy hợp lý hơn thì mình sẽ viết thêm thôi. Cũng nhanh mà :00 (31): để trưa ngồi xem và viết thêm kiểu đó theo cách mình cho là nhanh nhất :0 (112):
Tuy vậy việc này thực ra đơn giản; việc chuyển qua lại giữa 2 dạng file data như thế cũng nhanh. Nên bạn có thể bắt đầu làm file data bằng quy định trên cùng một dòng. Phân cách bởi dấu = như ví dụ của mình cũng được.

- Mục đích chính của mình là kêu gọi cộng đồng anh em nghiện làm thuốc tự chế mà. Nỗi lòng của một con nghiện ...cấp độ khẩn cấp.

+ Bây giờ mình ra bến xe; chiều nay mình sẽ ngồi viết lại thêm phần để dữ liệu trên cùng một dòng theo góp ý của các bạn.


-Xoá file thử nghiệm.

[bacola]

nếu bạn sửa dòng if:

///////////////////////////////////////////////////////////////////
txt1 = .ReadLine 'Doc dong thu 1 & gan vao bien txt1 //
if Not EOF(1) then //
Line Input #1, txt2 //
txt2 = .ReadLine 'Doc dong thu 2 & gan vao bien txt2 //
//
//////////////////////////////////////////////////////////////////

dòng if Not EOF(1) then chỉ kiểm tra xem nó là cuối file chưa..chỉ xử lý khi lỡ ấn enter cuối file gây ra dòng lẻ.(ok)

giả thiết:
bây giờ không nhấn enter mà dòng vẫn lẻ do người dùng nhập sai(thiếu).
-File Data.txt có 300 dòng.
-dòng 29 nội dung là : "ab"
-dòng 30 nội dung là : "ad"
-dòng 31 nội dung là: "CD"
-ở dòng 30 bị thiếu(vì 1 lý do nào đó)
=> bây giờ sẽ có 299 dòng. khi run macro sẽ bị gán lung tung từ dòng 29 trở đi.

----------------
thôi thì nhỡ làm luôn dạng file Data.txt dạng "cần thay=linh kiện" ...
----------------------------------------
"làm ra cái tools hay hay + nhiệt tình của mọi người <=> tất cả vì tương lai dân nghiện truyện chúng ta..."