Văn bản đã được chuẩn hóa thô trước khi xử lý. Do đó, với regex "[ ]@([! ])" tất cả khoảng trắng thừa đã được loại bỏi. Do đó, theo tôi nên xử lý trường hợp dấu hiệu xuống dòng + " " + a) hoặc tab + " " + a) và tương tự thế là đủ.
Code xử lý chuỗi ký tự
- Thread starter Euler
- Ngày gửi
- Trạng thái
Thu hoạch 1: Chuyển list thành normal text:
Nguồn:
Chuẩn hóa:
Chuyển 8 dấu cách=> dấu tab: ^32^32^32^32^32^32^32^32 => ^t
Chuyển xuống dòng + dấu cách => xuống dòng + tab: ^p^32 => ^p^t
Chuyển tab + khoảng trắng => tab : ^t^32 => ^t (Do ~ Loop, chuyển tới khi nào hết sạch thì thôi).
Bài tập 1: Chuyển tất cả các thể loại: 1. 1- 1/ thành a) và i. i- và i/ thành a) <Điều kiện phía trước là tab hoặc dấu xuống dòng)
^p1.
^p1/
^p1-
thành ^pa)
hoặc ^t1. => ^ta)
và:
^pa.
^pa-
^pa/
^pii/
^pii.
^pii-
thành ^pa)
hoặc ^tb. => ^ta)
Để dễ xử lý. Hiện tại loạn xị ngậu a) b) .... đưa hết về a) cho gọn.
Mã:
Sub ConvertAllAutoNumberToText()
If ActiveDocument.Lists.Count > 0 Then
Dim lisAutoNumList As List
For Each lisAutoNumList In ActiveDocument.Lists
lisAutoNumList.ConvertNumbersToText
Next
Else
End If
End Sub
Bạn cần đăng nhập để thấy link
Chuẩn hóa:
Chuyển 8 dấu cách=> dấu tab: ^32^32^32^32^32^32^32^32 => ^t
Chuyển xuống dòng + dấu cách => xuống dòng + tab: ^p^32 => ^p^t
Chuyển tab + khoảng trắng => tab : ^t^32 => ^t (Do ~ Loop, chuyển tới khi nào hết sạch thì thôi).
Bài tập 1: Chuyển tất cả các thể loại: 1. 1- 1/ thành a) và i. i- và i/ thành a) <Điều kiện phía trước là tab hoặc dấu xuống dòng)
^p1.
^p1/
^p1-
thành ^pa)
hoặc ^t1. => ^ta)
và:
^pa.
^pa-
^pa/
^pii/
^pii.
^pii-
thành ^pa)
hoặc ^tb. => ^ta)
Để dễ xử lý. Hiện tại loạn xị ngậu a) b) .... đưa hết về a) cho gọn.
Bạn nhận thức đúng rồi nhưng còn thêm 1 ý là họ tab không đúng chỗ. Cái này xử lý được luôn thì quá tốt.
Thẳng hàng hết thế này thì biết item nào là con của item nào nữa.
Bạn có nghĩ rằng nếu có hình ảnh minh họa thì sẽ dễ hiểu hơn không?
Cách upload ảnh xin xem ở đây:
Bạn cần đăng nhập để thấy link
Để chuyển list về text thì chỉ cần lệnh ActiveDocument.ConvertNumbersToText mình chưa hiểu ý của bạn.
Chuyển thành text xong rồi sao bạn?
Làm thế nào để biết đây là 1 item.
Bạn cần đăng nhập để thấy đính kèm
File mẫu đó bạn. a) tab văn bản.
Cái dấu tab ở phía sau item không làm nhiễu được kệ nó.
Mã:
^t[i]{1-5})Nhìn lại văn bản đi bạn ơi. chỗ này có dấu tab đâu mà.
Bạn cần đăng nhập để thấy đính kèm
- Trạng thái