[Thủ Thuật] Convert cột trên trăm chương.

Thảo luận trong 'Phòng Converter' bắt đầu bởi Lãng Nhách Dép, 7/7/11.

  1. Lãng Nhách Dép

    Lãng Nhách Dép Thành viên kích hoạt

    Được thích:
    0
    Chỉnh sửa cuối: 9/7/11
  2. Lãng Nhách Dép

    Lãng Nhách Dép Thành viên kích hoạt

    Được thích:
    0
    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 [​IMG] , 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 [​IMG]



    Giống mấy trang khác thôi

    1.
    [​IMG]

    2.
    [​IMG]

    3.
    [​IMG]


    4.
    [​IMG]

    5.
    [​IMG]


    6.
    [​IMG]


    7.
    [​IMG]


    8.
    [​IMG]


    9.
    [​IMG]

    10.
    [​IMG]

    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:
     
    Chỉnh sửa cuối: 7/7/11
  3. cuonghv

    cuonghv Thành viên kích hoạt

    Được thích:
    35,162
    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...
     
    Chỉnh sửa cuối: 7/7/11
  4. Lãng Nhách Dép

    Lãng Nhách Dép Thành viên kích hoạt

    Được thích:
    0
    đú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.
     
  5. Lãng Nhách Dép

    Lãng Nhách Dép Thành viên kích hoạt

    Được thích:
    0
    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
    [​IMG]


    2. Sau đó bạn sẽ vào được trang này, bạn kích vào mục TXT:
    [​IMG]

    3. Sẽ ra được trang này:
    [​IMG]
    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
     

Thành viên đang xem bài viết (Users: 0, Guests: 0)