Ghi chú đến thành viên
Go Back   4vn.eu > Truyện dịch - 4vn.eu >

Convert Đường

Gởi Ðề Tài Mới Trả lời
 
Ðiều Chỉnh
  #1  
Old 29-09-2008, 11:56 PM
duongthanh85's Avatar
duongthanh85 duongthanh85 is offline
Nhập Môn Tu Luyện
 
Tham gia: Apr 2008
Đến từ: Trên mặt đất và dưới bầu trời
Bài gởi: 22
Thời gian online: 1 giờ 18 phút 53 giây
Xu: 0
Thanks: 0
Thanked 0 Times in 0 Posts
Lightbulb Xin bản VP database/Macro tạo bản convert thành dịch thô

News (20/11/2008):

Cập nhật bản Macro Mới nhất (V 11)
Cho phép lựa chọn file data, fix lỗi, thêm dữ liệu....and more...
File Data.txt đi kèm là file data của: Liên Hoa Bảo Giám, Ác Ma Pháp Tắc.



!!!
Bạn nhớ sau khi import sẽ có nhiều Macro, chạy Macro: ABC nhé.

Sorry, sáng nay ta post nhưng có chút lỗi. Cập nhật lại file 2h05PM





----------------------------
Intro: một macro giúp bạn tạo những file convert chất lượng dần dựa vào kinh nghiệm đọc convert của bạn và anh/em.

Cách dùng: bạn import file *.bas vào word, đồng thời copy file data.txt vào ổ C. Sau đó trong quá trình đọc truyện bạn thêm các từ và cụm từ vào file data để tái sử dụng nhé.
(Tham khảo bài phía dưới - có hình minh họa)


Cấu trúc file dữ liệu file data.txt

Từ hoặc cụm từ cần thay thế = từ hoặc cụm từ sẽ thay thế
long thanh ngày = long thanh thiên
làm sao mạ? = làm sao đâu?
ngã = ta
ái nhĩ na = athena
ngày sử = thiên sứ
------------------------------------------------------

Đã sửa lại File đính kèm

Hà "Lội" - ngày 23 tháng 6 năm 2011

Thương Long đã kí



Các chủ đề khác cùng chuyên mục này:

File Kèm Theo To view attachments your post count must be 1 or greater. Your post count is 0 momentarily.
Tài sản của duongthanh85


Last edited by Thương Long; 23-06-2011 at 09:26 PM. Lý do: 11
Trả Lời Với Trích Dẫn
  #2  
Old 30-09-2008, 12:42 AM
huntercd huntercd is offline

Công thần
 
Tham gia: Jun 2008
Bài gởi: 1,146
Thời gian online: 4 giờ 9 phút 27 giây
Xu: 0
Thanks: 0
Thanked 1,471 Times in 611 Posts
Bạn có thể hứong dẫn cụ thể hơn ko? Hướng dẫn bằng hình ảnh càng tốt.

"1. mở word ra, vào tool > macro > visual basic editor " <- bước này làm rồi - "sau đó paste vào. " vấn đề là past cái gì vào và paste ở đâu, đề nghị bạn giải thích rõ ra - "copy file data.txt vào ổ C" copy vào bất cứ đâu của ổ C cũng được à???
Tài sản của huntercd

Trả Lời Với Trích Dẫn
  #3  
Old 30-09-2008, 12:48 AM
duongthanh85's Avatar
duongthanh85 duongthanh85 is offline
Nhập Môn Tu Luyện
 
Tham gia: Apr 2008
Đến từ: Trên mặt đất và dưới bầu trời
Bài gởi: 22
Thời gian online: 1 giờ 18 phút 53 giây
Xu: 0
Thanks: 0
Thanked 0 Times in 0 Posts
Ví dụ với truyện Trương Tam Phong:
- Từ bản convert 4 cột lấy ra các tên tiếng anh tương ứng; trong quá trình đọc gặp một tên mới thì dò ra tên tiếng anh và thêm vào file data. Các câu thường gặp từng truyện cũng cho vào.
- Copy cột phiên âm tiếng việt và paste dưới dạng text only. Chạy macro này là có một bản dễ đọc.
- Mỗi lần đọc vài chương thì thủ sẵn bút giấy và ghi lại các từ - hoặc ghi Note lại (ta đọc trên mobi, đọc trên PC thì ghi luôn vào data cho nhanh), sau tầm vài chục chương thì các chương sau đã khá dễ đọc.


----------------------------------
Cách dùng:

- Copy file data.txt vào ổ C, ngay thư mục chủ nhé.
Bạn thêm dữ liệu vào theo hình thức:
Từ cần thay thế = từ sẽ thay thế

ngày ạ = trời ạ
ngã = ta


- Mở word ra vào VisualBasic Editor:



- Import file Newmacro.bas vào:





- Muốn sử dụng bạn vào Tool>Macro > Macro và chọn Macro rồi nhấn RUN để chạy.







--------------------
Tạo nút nhấn thực hiện macro:
(Hướng dẫn tạo nút nhấn trên thanh công cụ word để thực hiện macro thay vì mỗi lần sử dụng bạn phải vào Tool>Macro > Macro và chọn Macro rồi nhấn RUN để chạy).


- Vào View>toolbars> Customize:



Chọn Macro bên khung bên trái và nhấn giữ chuột trái vào Macro trong khung bên phải rồi vứt lên thanh công cụ.



(Có thể nhấn chuột phải vào nút nhấn mới tạo để rename hay gán icon cho nút nhấn chạy macro này)
Tài sản của duongthanh85


Last edited by duongthanh85; 02-10-2008 at 11:24 PM.
Trả Lời Với Trích Dẫn
  #4  
Old 30-09-2008, 12:50 AM
duongthanh85's Avatar
duongthanh85 duongthanh85 is offline
Nhập Môn Tu Luyện
 
Tham gia: Apr 2008
Đến từ: Trên mặt đất và dưới bầu trời
Bài gởi: 22
Thời gian online: 1 giờ 18 phút 53 giây
Xu: 0
Thanks: 0
Thanked 0 Times in 0 Posts
Trích:
Nguyên văn bởi huntercd View Post
Bạn có thể hứong dẫn cụ thể hơn ko? Hướng dẫn bằng hình ảnh càng tốt.

"1. mở word ra, vào tool > macro > visual basic editor " <- bước này làm rồi - "sau đó paste vào. " vấn đề là past cái gì vào và paste ở đâu, đề nghị bạn giải thích rõ ra - "copy file data.txt vào ổ C" copy vào bất cứ đâu của ổ C cũng được à???

Paste vào là nội dung của file newmacro đính kém ấy. không thì bạn import vào file đó cũng được (newmacro.bas).

fil data để ở C:/data.txt ( để luôn thư mục gốc)



Đang chụp ảnh làm hướng dẫn.......

Đã thêm hình minh hoạ. Nhưng file data các bạn thử tự tạo để tập dùng rồi anh em tiến hành xử lý các truyện nhé
Tài sản của duongthanh85


Last edited by duongthanh85; 30-09-2008 at 01:06 AM.
Trả Lời Với Trích Dẫn
  #5  
Old 30-09-2008, 01:05 AM
bacola's Avatar
bacola bacola is offline
Cái Thế Ma Nhân
 
Tham gia: Apr 2008
Đến từ: Cát bụi...
Bài gởi: 692
Thời gian online: 2 tuần 5 ngày 20 giờ
Xu: 0
Thanks: 0
Thanked 4 Times in 4 Posts
reply

Trích:
Nguyên văn bởi huntercd View Post
Bạn có thể hứong dẫn cụ thể hơn ko? Hướng dẫn bằng hình ảnh càng tốt.

"1. mở word ra, vào tool > macro > visual basic editor " <- bước này làm rồi - "sau đó paste vào. " vấn đề là past cái gì vào và paste ở đâu, đề nghị bạn giải thích rõ ra - "copy file data.txt vào ổ C" copy vào bất cứ đâu của ổ C cũng được à???
trong file NewMacros.bas mặc định đường dẫn là C:\Data.txt
nếu bạn muốn chép vô bất cứ nơi đâu thì dùng notepad để mở file NewMacros.bas rồi chép đường dẫn nơi bạn lưu NewMacros.bas rồi thay đường dẫn là ok.

Set objStream = CreateObject("Scripting.FileSystemObject").OpenTex tFile("C:\Data.txt", 1, False, -2)
If (Not objStream Is Nothing) Then
With objStream
Open "C:\Data.txt" For Input As #1 ' Open database


thay đổi thành G:\TRUYEN\Bien Tap\data.txt

Set objStream = CreateObject("Scripting.FileSystemObject").OpenTex tFile("G:\TRUYEN\Bien Tap\data.txt", 1, False, -2)
If (Not objStream Is Nothing) Then
With objStream
Open "G:\TRUYEN\Bien Tap\data.txt" For Input As #1 ' Open database
Tài sản của bacola

Trả Lời Với Trích Dẫn
Trả lời

Từ khóa được google tìm thấy
cach dich ban convert, data vp convert, download marco 4vn, huỳnh dị convert, , , kiều diễm nhân sinh, tap dich ban convert, truyen bhtt, xin bản convert file

Ðiều Chỉnh


©2008 - 2014. Bản quyền thuộc về hệ thống vui chơi giải trí 4vn.eu™
Diễn đàn phát triển dựa trên sự đóng góp của tất cả các thành viên
Tất cả các bài viết tại 4vn.eu thuộc quyền sở hữu của người đăng bài
Vui lòng ghi rõ nguồn gốc khi các bạn sử dụng thông tin tại 4vn.eu™