Dành đất sẵn, anh em nào có thủ thuật hay mẹo gì giúp convert cột nhanh, khỏe thì chia sẻ nhá. 1/Chia text thành từng chương riêng rẽ. 2/ Các trang cho down cục chương lẻ
Chia text thành từng chương riêng rẽ Một cách mình hay dùng để [convert cột] một truyện trên trăm chương cho dịch giả là tìm cách chia text của chúng thành từng chương riêng biệt...vậy dùng cách nào để chia một cục text truyện hàng trăm chương? Sau đây là bài sưu tầm do [Zerius-TTV] viết: Là các bước tuần tự như trong hình, đầu tiên bạn vào trang: http://www.uutxt.com === Trang này kiếm đc mấy cái truyện cũ , bựa tèm lem , chưa kiểm dịch , khỏi cần đăng nhập , chưa thấy die , tại down về chỉ có 1 file .txt thôi nên trước h lười lên , nhưng nay biết cách chia ra thành 1chương/1txt roài Giống mấy trang khác thôi Mời đọc 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. Code: Mã: Option Explicit Sub SplitNotes(delim As String, strFilename As String) Dim doc As Document Dim arrNotes Dim I As Long Dim X As Long Dim Response As Integer arrNotes = Split(ActiveDocument.Range, delim) Response = MsgBox("Chia File này ra thành " & UBound(arrNotes) + 1 & " Chương . Bạn đồng ý không?", 4) If Response = 7 Then Exit Sub For I = LBound(arrNotes) To UBound(arrNotes) If Trim(arrNotes(I)) <> "" Then X = X + 1 Set doc = Documents.Add doc.Range = arrNotes(I) doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000") doc.Close True End If Next I End Sub Sub test() ' delimiter & filename SplitNotes "111111111", "TenTruyen " End Sub P/s: Cách này mình đã thử và làm tốt.:oe85::oe85:
Cho ta hỏi cách làm này phải chăng đôi lúc sẽ sinh ra chuyện số chương tách > số chương của tác giả? Bởi cách này đánh dấu những đoạn 2 lần Enter trong bản text (thường là đầu chương), sau đó chia chương. Như vậy chỉ cần trong bản text (giữa chương chẳng hạn) có bất kì 2 lần enter nào cũng bị chia => số chương chia > số chương thực...
đúng rồi, nó chia dựa vào số lần enter, những text không có enter xuống dòng giữa các chương hình như là chia không được. Việc nó enter xuôg dòng lão có thể nghiên cứu lệnh relace để thay thế chỗ nào 2-3 lần enter thành 1 lần enter (ta không nhớ là lệnh gì)hoặc sau khi chia text xong lão dò xem chương nào dung lượng 1-3k thì xóa đi, số lượng các chương này không nhiều đâu.
Các trang cho down cục chương lẻ: http://www.16kbook.com/ Các bạn vào trang trên: Ví dụ như bạn muốn down text lẻ của truyện Đấu Phá thương khung, bạn copy tên tiếng trung của nó vào và tra tìm, như hình vẽ: 1.Ô tròn lớn dùng để điền tên truyện, ô tròn nhỏ dùng để click và tra tìm 2. Sau đó bạn sẽ vào được trang này, bạn kích vào mục TXT: 3. Sẽ ra được trang này: Màu đỏ là file text cục, chương liền. Màu xanh là chương lẻ. Muốn down chỉ việc click vào link trong ô vuông lớn bên phải đã đánh dấu Như vậy là xong rồi đấy, lại thêm một mánh nữa nhé ^^. Lưu ý là trang này lúc cho down, lúc thì không cho down nên có gì các bạn cũng đừng quá thắc mắc nhé, chờ vài hôm sẽ cho down lại thôi