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

[duongthanh85]

Mình đưa lên 2 file data của 2 truyện này trước. Bây giờ mới chỉ có vài từ thôi; mình hy vọng mọi người cùng bổ sung và đính kèm hết vào topic này.
Nếu Mod cho phép mình lập một Topic khác chỉ để đưa các file data lên. Tất cả sẽ được tiến hành theo kiểu:
- Mọi người thêm vào file data các từ và cụm từ trong quá trình đọc và thay thế tương ứng.
- gửi lên topic và sau đó tập hợp lại dưới dạng một file data mới.
- File data mới sẽ đưa lên bài post đầu tiên với các đặt tên có số tăng dần. Như bây giờ là V1, khi tiến hành cập nhật theo sự đóng góp của các bạn thì sẽ đánh số V2; tiếp tục vài ngày hoặc vài tuần chúng ta lại cập nhật và có V3.... Tiếp tục theo kinh nghiệm đọc convert của chúng ta :2 (9):

Mình khởi đầu với 2 file data của 2 truyện mình đang đọc:
- Liên Hoa Bảo Giám
- Trương Tam Phong dị giới du


:2 (33):

[bacola]

có một vấn đề khá thú vị...các bạn nghiên cứu nha.

b1:bạn hãy tải 1 trong 2 file trong post trên (của bạn duongthanh85):

Mình khởi đầu với 2 file data của 2 truyện mình đang đọc:
- Liên Hoa Bảo Giám
- Trương Tam Phong dị giới du

b2: tạo mới 1 file word.

b3:sau khi giải nén bạn hãy mở file Data.txt rồi copy tất cả nội dung sang file word.

b4: chạy macro

b5: mở xem file word (kết quả => nhiều từ không thay đổi)

---------------
còn vấn đề nữa là file LHBG.zip của bạn duongthanh85 phần cuối có mấy tên thiếu dấu = (các bạn nhớ bổ sung => không thì báo lỗi)

-bổ sung thêm 3 dòng lệnh (in đậm) để bỏ lỗi thiếu dấu '='

Selection.Find.MatchCase = False ' chọn chế độ find không phân biệt hoa thường
Do While Not EOF(1)

Line Input #1, txt
txt = .ReadLine 'Doc dong thu 1 & gan vao bien txt1
i = InStr(txt, "=")
If (i <> 0) Then 'nếu không có dấu = thì bỏ qua dòng đó
Arr = Split(txt, "=", 2)
txt1 = Trim(Arr(0)) & " "
txt2 = Trim(Arr(1)) & " "
With Selection.Find 'thuc hien replace txt1 boi txt2
.Text = txt1
.Replacement.Text = txt2
End With
Selection.Find.Execute Replace:=wdReplaceAll 'replace toan van ban
End If
Loop

[duongthanh85]

Do While Not EOF(1)

Line Input #1, txt
txt = .ReadLine 'Doc dong thu 1 & gan vao bien txt1

j = InStr(txt, "=") 'Neu dong khong co dau = thi bo qua
If j <> 0 Then
Arr = Split(txt, "=", 2)
txt1 = Trim(Arr(0)) & " "
txt2 = Trim(Arr(1)) & " "
With Selection.Find 'thuc hien replace txt1 boi txt2
.Text = txt1
.Replacement.Text = txt2
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If
Loop

Mình đã bổ sung hôm qua về trường hợp không có dấu "=" rồi. Hiện tại mình vẫn dùng tốt.

Nhưng đúng là chưa có thêm vào không phân biệt chữ HOA và chữ thường. Word mình để mặc định như vậy rồi nên mình cũng không để ý :2 (45): Thanks.

[duongthanh85]

Nguyên văn bởi cuoivn

bác nào biết vì sao mình replace các tên có dấu ' | ' ở giữa thì nó ko thực hiện nhỉ? (thêm các tên vào trong file data.txt, ví dụ:
"bất đồng | không giống = bất đồng" thì nó cũng ko chuyển)

đã thử sửa nhưng vẫn vô hiệu :(

có ai biết ko?

A, a;cái này :0 (97): mình đáng bị oánh :0 (128):
Hì hì.

Bạn tải lại ở trang đầu nhé. Cám ơn bạn góp ý :0 (37):

[daitri_giangu]

Nguyên văn bởi choechoe

Là sao? Mình cũng bị lỗi 1 số từ có dấu ( . ) hay( , ) ở sau là no ko thay. Bạn có thể hướng dẫn cụ thể hơn chút đc ko? Thanks nhiều

Phiên bản macro 8
Nhấn ALT-F11 vào macro

- bỏ gọi macro 4 'Call Macro4
-Thêm đọan này vào : ( để tách dấu chấm, dấu phẩy ra 1 khỏang trắng trước khi thay thế . )
With Selection.Find
.Text = ";"
.Replacement.Text = " ;"
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "."
.Replacement.Text = " ."
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ","
.Replacement.Text = " ,"
End With
Selection.Find.Execute Replace:=wdReplaceAll

-Sau đó Save lại và chạy Macro

Chúc vui