góp ý
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..."
|