Nhờ giúp Tìm kiếm từ hoặc cụm từ (Ngoại trừ từ hoặc cụm từ đó viết hoa ở đầu mỗi chữ) trong Word (1 người xem)

hung2412 · 22/9/20

Xin chào các bạn GPE!
Tôi có File Word, vấn đề là làm thế nào để tìm kiếm từ hoặc cụm từ (Ngoại trừ từ hoặc cụm từ đó viết hoa ở đầu mỗi chữ).
Ví dụ: - Tìm từ "di đà" thì sẽ tìm từ tương ứng như là "di đà" hoặc "Di đà" hoặc "di Đà" (Ngoại trừ từ viết hoa đầu mỗi từ là "Di Đà")
- Tìm từ "phàm phu" thì sẽ tìm từ tương ứng như là "phàm Phu" hoặc "Phàm phu" hoặc "phàm phu" (Ngoại trừ từ viết hoa đầu mỗi từ là "Phàm Phu")
- Tìm từ "thường tịch quang" thì sẽ tìm từ tương ứng như là "thường tịch quang" hoặc "Thường tịch quang" hoặc "thường Tịch Quang" (Ngoại trừ từ viết hoa đầu mỗi từ là "Thường Tịch Quang")

phuongvq123 · 22/9/20

hung2412 đã viết:
Xin chào các bạn GPE!
Tôi có File Word, vấn đề là làm thế nào để tìm kiếm từ hoặc cụm từ (Ngoại trừ từ hoặc cụm từ đó viết hoa ở đầu mỗi chữ).
Ví dụ: - Tìm từ "di đà" thì sẽ tìm từ tương ứng như là "di đà" hoặc "Di đà" hoặc "di Đà" (Ngoại trừ từ viết hoa đầu mỗi từ là "Di Đà")
- Tìm từ "phàm phu" thì sẽ tìm từ tương ứng như là "phàm Phu" hoặc "Phàm phu" hoặc "phàm phu" (Ngoại trừ từ viết hoa đầu mỗi từ là "Phàm Phu")
- Tìm từ "thường tịch quang" thì sẽ tìm từ tương ứng như là "thường tịch quang" hoặc "Thường tịch quang" hoặc "thường Tịch Quang" (Ngoại trừ từ viết hoa đầu mỗi từ là "Thường Tịch Quang")
View attachment 245981

Caí này khó thế ạ

)
Chi bằng tìm luôn di đà, di Đà, Di đà liệu có ra cả kết quả Di Đà không

Bài đã được tự động gộp: 22/9/20

hung2412 đã viết:
Xin chào các bạn GPE!
Tôi có File Word, vấn đề là làm thế nào để tìm kiếm từ hoặc cụm từ (Ngoại trừ từ hoặc cụm từ đó viết hoa ở đầu mỗi chữ).
Ví dụ: - Tìm từ "di đà" thì sẽ tìm từ tương ứng như là "di đà" hoặc "Di đà" hoặc "di Đà" (Ngoại trừ từ viết hoa đầu mỗi từ là "Di Đà")
- Tìm từ "phàm phu" thì sẽ tìm từ tương ứng như là "phàm Phu" hoặc "Phàm phu" hoặc "phàm phu" (Ngoại trừ từ viết hoa đầu mỗi từ là "Phàm Phu")
- Tìm từ "thường tịch quang" thì sẽ tìm từ tương ứng như là "thường tịch quang" hoặc "Thường tịch quang" hoặc "thường Tịch Quang" (Ngoại trừ từ viết hoa đầu mỗi từ là "Thường Tịch Quang")
View attachment 245981

Bạn xem thêm cách tìm đặc biệt trong find more trong thẻ find. tích match case tìm được Di Đà riêng hoặc di đà

VetMini · 22/9/20

phuongvq123 đã viết:
Caí này khó thế ạ )
Chi bằng tìm luôn di đà, di Đà, Di đà liệu có ra cả kết quả Di Đà không

Người ta tìm lỗi chính tả mờ.
Làm thủ công thì không khó lắm. Chỉ là đã lên đây hỏi thì người ta đòi hỏi phải tự động "bấm một phát".

Ba mười ba · 23/9/20

hung2412 đã viết:
.. vấn đề là làm thế nào để tìm kiếm từ hoặc cụm từ (Ngoại trừ từ hoặc cụm từ đó viết hoa ở đầu mỗi chữ).
...

Ví dụ, tìm từ "ba 10 ba" thì bạn muốn kết quả tìm được là gì vậy?

hung2412 · 23/9/20

Ba mười ba đã viết:
Ví dụ, tìm từ "ba 10 ba" thì bạn muốn kết quả tìm được là gì vậy?

Thì kết quả là "Ba 10 ba", "ba 10 Ba", "ba 10 ba" (Nhưng tuyệt đối không phải là "Ba 10 Ba" => Từ này viết hoa cả câu)

gttrongvn · 23/9/20

Mình không biết mục đích bạn tìm để làm gì? Nếu để thay thế thì mình thử thay thế từ "di đà" thành "Di Đà" thì tất cả "di đà" hoặc "Di đà" hoặc "di Đà" đều thay đổi thành "Di Đà".

hung2412 · 23/9/20

gttrongvn đã viết:
Mình không biết mục đích bạn tìm để làm gì? Nếu để thay thế thì mình thử thay thế từ "di đà" thành "Di Đà" thì tất cả "di đà" hoặc "Di đà" hoặc "di Đà" đều thay đổi thành "Di Đà".

Mình muốn Tìm kiếm từ "di đà", "Di đà", "di Đà" để đổi nó thành "Di Đà" (Mình không muốn chọn "Di Đà" này vì bản thân nó đã là "Di Đà" rồi nên không phải tìm đến nó nữa).
Mình biết là sẽ có lệnh Replace All từ "di đà", "Di đà", "di Đà" => "Di Đà". Nhưng mình có rất nhiều từ cần thay thế (Khoảng 5.000 từ cần thay thế) mà có tới 600 File Word lận => Code chạy rất là lâu, nên tránh từ "Di Đà" vì nó đã có sẵn rồi (Có khoảng 5.000 từ như vậy),

Ba mười ba · 23/9/20

hung2412 đã viết:
Thì kết quả là "Ba 10 ba", "ba 10 Ba", "ba 10 ba" (Nhưng tuyệt đối không phải là "Ba 10 Ba" => Từ này viết hoa cả câu)

Bạn thử thêm cụm từ "ba 10 ba" vào và tét tìm thử với ví dụ tìm cụm từ "ba 10 ba" xem đúng ý không?

Mã:

Option Explicit

Sub Chua_Test_Trong_Phong_Sieu_Thi_Nghiem()
    Dim Phong_Thi_Nghiem As Object
    Set Phong_Thi_Nghiem = ActiveDocument.Content
    Dim RengRengReng, sRumZum, tet_Tet_test, khongChoi, sTimKiem, DauTien
    tet_Tet_test = "|ba 10 ba|"
    sRumZum = "Phong thi nghiem"
    RengRengReng = sRumZum & " dang tét tét , ví du " & tet_Tet_test
    khongChoi = " khong chap nhan chu cai dau tien viet hoa"
    sTimKiem = InputBox(RengRengReng, sRumZum, tet_Tet_test)
    If sTimKiem = "" Then Exit Sub
    DauTien = Left(sTimKiem, 1)
    If DauTien <> UCase(DauTien) Then
        Phong_Thi_Nghiem.Find.Execute FindText:=sTimKiem, Forward:=True
        If Phong_Thi_Nghiem.Find.Found = True Then Phong_Thi_Nghiem.Select
    Else
        MsgBox sRumZum & khongChoi, vbCritical + vbOKOnly, sRumZum
    End If
End Sub

gttrongvn · 23/9/20

hung2412 đã viết:
Mình muốn Tìm kiếm từ "di đà", "Di đà", "di Đà" để đổi nó thành "Di Đà" (Mình không muốn chọn "Di Đà" này vì bản thân nó đã là "Di Đà" rồi nên không phải tìm đến nó nữa).
Mình biết là sẽ có lệnh Replace All từ "di đà", "Di đà", "di Đà" => "Di Đà". Nhưng mình có rất nhiều từ cần thay thế (Khoảng 5.000 từ cần thay thế) mà có tới 600 File Word lận => Code chạy rất là lâu, nên tránh từ "Di Đà" vì nó đã có sẵn rồi (Có khoảng 5.000 từ như vậy),

Vậy thì sẽ có 2 vòng lặp, 1 vòng lặp mở 600 file word, 1 vòng lặp replace 5000 từ đó vào file word. Vậy thì bạn cần tạo 2 bảng, 1 bảng chứa tên file word, 1 bảng chứa 5000 từ đó với 1 cột là từ viết thường, 1 cột là từ viết hoa. Sau đó bật lên đi ngủ, chắc sáng cũng xong, nếu mình mô tả giống như bạn muốn thì bạn gửi file mẫu lên đi, cuối tuần mình sẽ viết thử coi chạy được không.

hung2412 · 24/9/20

Ba mười ba đã viết:
Bạn thử thêm cụm từ "ba 10 ba" vào và tét tìm thử với ví dụ tìm cụm từ "ba 10 ba" xem đúng ý không?

Mã:

Option Explicit tet_Tet_test = "|ba 10 ba|"

Không được bạn ơi, 2 cái | | là gì vậy bạn?

tigertiger · 24/9/20

Đầu tiên chủ topic nên lập 1 từ điển các từ , cụm từ đúng đã, thì sau đó mới suy nghĩ tiếp kết quả

hung2412 · 24/9/20

gttrongvn đã viết:
Vậy thì sẽ có 2 vòng lặp, 1 vòng lặp mở 600 file word, 1 vòng lặp replace 5000 từ đó vào file word. Vậy thì bạn cần tạo 2 bảng, 1 bảng chứa tên file word, 1 bảng chứa 5000 từ đó với 1 cột là từ viết thường, 1 cột là từ viết hoa. Sau đó bật lên đi ngủ, chắc sáng cũng xong, nếu mình mô tả giống như bạn muốn thì bạn gửi file mẫu lên đi, cuối tuần mình sẽ viết thử coi chạy được không.

Sơ lược như ảnh dưới đây:

Bài đã được tự động gộp: 24/9/20

tigertiger đã viết:
Đầu tiên chủ topic nên lập 1 từ điển các từ , cụm từ đúng đã, thì sau đó mới suy nghĩ tiếp kết quả

Mình cũng đã làm như bạn nói. Quan trọng là tốc độ chạy Code.

Ba mười ba · 24/9/20

hung2412 đã viết:
Không được bạn ơi, 2 cái | | là gì vậy bạn?

Bạn không đọc ah?

Bạn thử thêm cụm từ "ba 10 ba" vào và tét tìm thử với ví dụ tìm cụm từ "ba 10 ba" xem đúng ý không?

tigertiger · 24/9/20

hung2412 đã viết:
Sơ lược như ảnh dưới đây:

Mình cũng đã làm như bạn nói. Quan trọng là tốc độ chạy Code.

Thế thì đợi người khác yêu tốc độ, giúp bạn
Tôi thì nghĩ độ chính xác và phù hợp quy mô thì hơn

hung2412 · 24/9/20

Ba mười ba đã viết:
Bạn không đọc ah?

Mình đã Test và kết luận có 2 vấn đề:
- Vấn đề 1: Nếu để nguyên 2 cái | | thì nó không tìm được "ba 10 ba".
- Vấn đề 2: Nếu mình bỏ 2 cái | | đi thì nó chọn được "ba 10 ba", nhưng nó vẫn chọn "Ba 10 Ba" (Viết hoa cả cụm từ) (Cái này mới là quan trọng nhất)

Bài đã được tự động gộp: 24/9/20

tigertiger đã viết:
Tôi thì nghĩ độ chính xác và phù hợp quy mô thì hơn

Đúng như bạn nói. Nhưng không phải chạy Code 1 lần là xong. Ngoài khoảng 5.000 từ đó thì lâu lâu lại phát hiện thêm từ mới cần chỉnh sửa. Cho nên tôi mới cần tốc độ, càng nhanh càng tốt.

ongke0711 · 24/9/20

hung2412 đã viết:
Xin chào các bạn GPE!
Tôi có File Word, vấn đề là làm thế nào để tìm kiếm từ hoặc cụm từ (Ngoại trừ từ hoặc cụm từ đó viết hoa ở đầu mỗi chữ).
Ví dụ: - Tìm từ "di đà" thì sẽ tìm từ tương ứng như là "di đà" hoặc "Di đà" hoặc "di Đà" (Ngoại trừ từ viết hoa đầu mỗi từ là "Di Đà")
- Tìm từ "phàm phu" thì sẽ tìm từ tương ứng như là "phàm Phu" hoặc "Phàm phu" hoặc "phàm phu" (Ngoại trừ từ viết hoa đầu mỗi từ là "Phàm Phu")
- Tìm từ "thường tịch quang" thì sẽ tìm từ tương ứng như là "thường tịch quang" hoặc "Thường tịch quang" hoặc "thường Tịch Quang" (Ngoại trừ từ viết hoa đầu mỗi từ là "Thường Tịch Quang")

Bạn download cái Add-in này dùng thử xem. Tạo cái danh sách từ cần thay thế rồi bấm "Execute".

Link: https://gregmaxey.com/word_tip_pages/vba_find_and_replace.html

befaint · 24/9/20

ongke0711 đã viết:
Bạn download cái Add-in này dùng thử xem. Tạo cái danh sách từ cần thay thế rồi bấm "Execute".

Link: https://gregmaxey.com/word_tip_pages/vba_find_and_replace.html

Anh chưa rõ chủ thớt rồi. Chủ thớt cần code chuẩn 100% (thử nghiệm vài tháng rồi mới kết luận) theo đúng yêu cầu đề ra, không có thay đổi phương án.

Mục đích là thay thế chuỗi

nhưng mục đích chỉ là thứ yếu, cái quan trọng là phương án đã nghĩ ra là mọi người chỉ có nhiệm vụ làm theo, miễn bàn cách khác.

Vậy bài 14 mới chạy rơi dép.

Giờ muốn nhanh chắc chỉ đọc file *.xml mà xử.

Ba mười ba · 24/9/20

hung2412 đã viết:
Mình đã Test và kết luận có 2 vấn đề:
- Vấn đề 1: Nếu để nguyên 2 cái | | thì nó không tìm được "ba 10 ba".
- Vấn đề 2: Nếu mình bỏ 2 cái | | đi thì nó chọn được "ba 10 ba", nhưng nó vẫn chọn "Ba 10 Ba" (Viết hoa cả cụm từ) (Cái này mới là quan trọng nhất)

Sửa cốt:

Mã:

Option Explicit
Sub Chua_Test_Trong_Phong_Sieu_Thi_Nghiem()
    Dim Phong_Thi_Nghiem As Object
    Set Phong_Thi_Nghiem = ActiveDocument.Content
    Dim RengRengReng, sRumZum, tet_Tet_test, khongChoi, sTimKiem, DauTien
    tet_Tet_test = "ba 10 ba"
    sRumZum = "Phong thi nghiem"
    RengRengReng = sRumZum & " dang tét tét , ví du " & tet_Tet_test
    khongChoi = " khong chap nhan chu cai dau tien viet hoa"
    sTimKiem = InputBox(RengRengReng, sRumZum, tet_Tet_test)
    If sTimKiem = "" Then Exit Sub
    DauTien = Left(sTimKiem, 1)
    If DauTien <> UCase(DauTien) Then
        Phong_Thi_Nghiem.Find.Execute FindText:=sTimKiem, MatchCase:=True, Forward:=True
        If Phong_Thi_Nghiem.Find.Found = True Then Phong_Thi_Nghiem.Select
    Else
        MsgBox sRumZum & khongChoi, vbCritical + vbOKOnly, sRumZum
    End If
End Sub

VetMini · 24/9/20

befaint đã viết:
Anh chưa rõ chủ thớt rồi. Chủ thớt cần code chuẩn 100% (thử nghiệm vài tháng rồi mới kết luận) theo đúng yêu cầu đề ra, không có thay đổi phương án.
...

Chắc không sao đâu. Hình như nít này có lời hứa rằng mọi "sai sót" sẽ được phản ứng bằng lời niệm Phật.
Tuy nhiên, cũng cần cẩn thận mấy cái "nít phụ" chúng nhào vào chửi (hình như cũng chính nít này hứa vậy).

ptm0412 · 24/9/20

Tìm luôn "Ba 10 Ba" và thay thế bằng chính nó thì có sao? Chính vì vậy mà tôi chả muốn nghĩ về cách giải nào nữa

Ba mười ba · 24/9/20

ptm0412 đã viết:
Tìm luôn "Ba 10 Ba" và thay thế bằng chính nó thì có sao?

Theo cháu là không được đâu chú ơi, bạn ấy đã viết rất là rõ ràng và rất mạch lạc rồi:

ptm0412 · 24/9/20

Ba mười ba đã viết:
Theo cháu là không được đâu chú ơi, bạn ấy đã viết rất là rõ ràng và rất mạch lạc rồi:

Tại bạn thích chiều chuyện vô lý của người khác. Tôi thì không. Yêu cầu rõ ràng mạch lạc không có nghĩa là yêu cầu đúng

VetMini · 24/9/20

ptm0412 đã viết:
Tìm luôn "Ba 10 Ba" và thay thế bằng chính nó thì có sao? Chính vì vậy mà tôi chả muốn nghĩ về cách giải nào nữa

Ở trên, bài #9 có nói rằng cứ để nó chạy qua đêm cũng chả chết ai.
Nhưng đương nhiên là với thớt này, muốn gì thì đã là định kiến, từ "uyển chuyển" không có trong từ điển. (nếu có trong từ điển thì có lẽ cũng dùng dấu ngã

)
Theo tôi đoán thì có lẽ do lỡ ăn to nói lớn với nhóm Phật Học nào rồi. Bi giờ đi theo kiểu truyền thống mất mặt.

Không phải là không code được, nhưng hiệu quả thì không xứng đáng.

Chú: ba cái mớ văn bản, muốn tốc độ thì thảy qua Linux nó làm cho.

Ba mười ba · 24/9/20

ptm0412 đã viết:
Tại bạn thích chiều chuyện vô lý của người khác. Tôi thì không.

Chú ơi khổ lắm, yêu cầu của bạn ấy đưa ra rất rõ ràng rồi.
Bạn ấy còn test rất là nghiêm ngặt, mình chỉ có thể làm sao để cố đáp ứng cho bằng được thôi chứ không được hỏi là thế này có được không hay là bạn ấy đã nói là không được rồi mà cứ hỏi nhiều là bạn ấy lại mắng choo đớiiiii

VetMini · 24/9/20

Ba mười ba đã viết:
Chú ơi khổ lắm, yêu cầu của bạn ấy đưa ra rất rõ ràng rồi.
Bạn ấy còn test rất là nghiêm ngặt, mình chỉ có thể làm sao để cố đáp ứng cho bằng được thôi chứ không được hỏi là thế này có được không hay là bạn ấy đã nói là không được rồi mà cứ hỏi nhiều là bạn ấy lại mắng choo đớiiiii

Không có gì là "khổ" đâu. Muốn làm thì làm, tự nhiên như Việt Kiều đi.
Chuyện thớt "mắng" không thể xảy ra (*). Bạn chưa đọc kỹ bài #19 của tôi rồi.

(*) cũng có nêu rõ trong bài #19, chuyện bị "kẻ khác" mắng thì tôi không bảo đảm.

Ba mười ba · 24/9/20

À ừ nhỉ, bạn ý đã từng hứa rồi mà, cũng giống như là thông tin rằng "thì dù gió mạnh đến đâu thì cũng không thể làm tớ lung lay được" thì phải.
Chú nhắc cháu mới để ý chỉ sợ "kẻ khác" thôi

ptm0412 · 24/9/20

Ba mười ba đã viết:
Chú ơi khổ lắm, yêu cầu của bạn ấy đưa ra rất rõ ràng rồi.

Tự rước "khổ" vào thân, ráng chịu đi nhé. Mai mốt có 1 yêu cầu đi đến địa điểm X, ghi rõ ràng rành mạch là "phải đi xe buýt, nhưng không được ngồi trong xe buýt" thì cứ leo lên mui xe mà đi đi nhé.

befaint · 24/9/20

ptm0412 đã viết:
... xe buýt" thì cứ leo lên mui xe ...

Theo em biết thì xe buýt đầu bằng, không có mui. Phương án leo lên mui xe buýt khó hơn yêu cầu của chủ thớt rồi anh.

hung2412 · 24/9/20

Ba mười ba đã viết:

Sửa cốt:

Mã:

Option Explicit
Sub Chua_Test_Trong_Phong_Sieu_Thi_Nghiem()
    Dim Phong_Thi_Nghiem As Object
    Set Phong_Thi_Nghiem = ActiveDocument.Content
    Dim RengRengReng, sRumZum, tet_Tet_test, khongChoi, sTimKiem, DauTien
    tet_Tet_test = "ba 10 ba"
    sRumZum = "Phong thi nghiem"
    RengRengReng = sRumZum & " dang tét tét , ví du " & tet_Tet_test
    khongChoi = " khong chap nhan chu cai dau tien viet hoa"
    sTimKiem = InputBox(RengRengReng, sRumZum, tet_Tet_test)
    If sTimKiem = "" Then Exit Sub
    DauTien = Left(sTimKiem, 1)
    If DauTien <> UCase(DauTien) Then
        Phong_Thi_Nghiem.Find.Execute FindText:=sTimKiem, MatchCase:=True, Forward:=True
        If Phong_Thi_Nghiem.Find.Found = True Then Phong_Thi_Nghiem.Select
    Else
        MsgBox sRumZum & khongChoi, vbCritical + vbOKOnly, sRumZum
    End If
End Sub

Cảm ơn bạn, nhưng vẫn chưa đúng ý của tôi. Ý tôi là khi Find "ba 10 ba" thì nó tìm là "Ba 10 ba", "ba 10 Ba", "ba 10 ba" (Tuyệt đối không chọn "Ba 10 Ba"). Code của bạn chỉ chọn được mỗi "ba 10 ba" thôi.

ptm0412 · 24/9/20

befaint đã viết:
Theo em biết thì xe buýt đầu bằng, không có mui. Phương án leo lên mui xe buýt khó hơn yêu cầu của chủ thớt rồi anh.

Mui xe = nóc xe
xe buýt mui bằng và dài từ đầu đến đít

Ba mười ba · 24/9/20

hung2412 đã viết:
Cảm ơn bạn, nhưng vẫn chưa đúng ý của tôi. Ý tôi là khi Find "ba 10 ba" thì nó tìm là "Ba 10 ba", "ba 10 Ba", "ba 10 ba" (Tuyệt đối không chọn "Ba 10 Ba"). Code của bạn chỉ chọn được mỗi "ba 10 ba" thôi.

Tớ không thích chơi mạo hiểm leo lên mui xe nữa đâu, chắc bạn phải chờ có bạn nào thích mạo hiểm ghé qua chơi cùng thôi.

batman1 · 24/9/20

Ba mười ba đã viết:
Theo cháu là không được đâu chú ơi, bạn ấy đã viết rất là rõ ràng và rất mạch lạc rồi:

Người ta muốn gì là chuyện của người ta. Còn mình chấp nhận gì là chuyện của mình. Ngay cả bạn gái không phải muốn gì thì cứ "nũng nịu" là có. Giả sử bạn gái bảo: Anh hô thật to "Cứu cứu, kẻ cướp nó giết tôi" cho "đàn em" (chư hầu) kéo đến cứu đi anh. Aaa, như thế để chúng kéo đến rồi cô cười thích thú vì chúng mắc lừa hả. Tiêu khiển bằng cách đó hả. Đừng hòng nhé. Nếu không chấp nhận thì chia tay đi.

hung2412 · 24/9/20

Cảm ơn các bạn đã quan tâm giúp đỡ. Tôi định có ý tưởng là:
Trước tiên Find "Di Đà" (Chữ viết hoa cả câu), sau đó tô màu vàng toàn bộ cho nó. Sau đó sẽ Find được các "Di đà", "di đà", "di Đà" (Kèm thêm điều kiện không tìm cụm từ đã tô màu rồi (Highlight)) (Cái này thì tôi làm được).
Vấn đề là tôi tìm từ "Di Đà" và Highlight như thế này:

Nhưng tôi Record Macro thì nó không ghi lại thao tác này. Làm thế nào mà viết được Code như thao tác đó ạ?
Mong các bạn chỉ giáo cho.

Bài đã được tự động gộp: 24/9/20

VetMini đã viết:
Theo tôi đoán thì có lẽ do lỡ ăn to nói lớn với nhóm Phật Học nào rồi. Bi giờ đi theo kiểu truyền thống mất mặt.

Tôi không làm cho ai cả. Chỉ là phục vụ cho cá nhân tôi thôi.

Ba mười ba · 24/9/20

Có lẽ phải thêm một cái "fun cờ ti on" dạng tách họ tên để kiểm tra từ đầu tiên trong chuỗi , bạn thử tìm kiếm trên này rồi ứng dụng xem nhiều lắm.

befaint · 24/9/20

Thay thế cái Dờ Đờ thành cái oằn tà là vằn #@!#$#$%$#%^

Rồi mần cái dờ đờ bất chấp thể loại.

Cuối cùng thay cái oằn tà là vằn bằng cái Dờ Đờ như cũ.

Tổng là 3 phát.

batman1 · 24/9/20

hung2412 đã viết:
Cảm ơn các bạn đã quan tâm giúp đỡ. Tôi định có ý tưởng là:
Trước tiên Find "Di Đà" (Chữ viết hoa cả câu), sau đó tô màu vàng toàn bộ cho nó. Sau đó sẽ Find được các "Di đà", "di đà", "di Đà" (Kèm thêm điều kiện không tìm cụm từ đã tô màu rồi (Highlight)) (Cái này thì tôi làm được).

Như thế thì sẽ lâu hơn vì đằng nào cũng phải tìm "Di Đà". Vd. trong văn bản có 25 "Di Đà" và 52 "Di đà", "di đà" hoặc "di Đà". Như trên thì phải tìm 25 "Di Đà" -> tô mầu 25 chỗ -> tìm 52 "Di đà", "di đà" hoặc "di Đà" -> thay 52 chỗ thành "Di Đà".

Làm bình thường thì chỉ tìm ra 77 chỗ có "di đà" (không phân biệt hoa thường) -> thay 52 chỗ thành "Di Đà". Không mất công tô mầu 25 chỗ.

Thậm chí nếu tìm ra 77 chỗ có "di đà" (không phân biệt hoa thường) -> thay 77 chỗ thành "Di Đà" thì cũng nhanh hơn tô mầu 25 chỗ hoặc 25 lần sửa "Di Đà" thành "Ngày mai em đi" rồi sau cùng lại thay 25 "Ngày mai em đi" thành "Di Đà"

VetMini · 24/9/20

befaint đã viết:
Thay thế cái Dờ Đờ thành cái oằn tà là vằn #@!#$#$%$#%^

Rồi mần cái dờ đờ bất chấp thể loại.

Cuối cùng thay cái oằn tà là vằn bằng cái Dờ Đờ như cũ.

Tổng là 3 phát.

Ví dụ có 10 cái Dờ Đờ, 15 cái dờ Đờ, 20 cái Dờ đờ, và 25 cái dờ đờ. Tổng cộng 70 cái.
+ Cách của bạn cho ra 3 phát:
1. 10 lần thay
2. 60 lần thay
3. 10 lần thay
Tổng 80 lần thay, 3 lần duyệt văn bản
+ Cách cổ lỗ sỉ 70 lần thay, 1 lần duyệt văn bản
+ Cách của thớt thì 100 năm sau có lẽ là tối ưu. Hiện giờ ở thế kỷ 21 thì tô màu là một trong những công việc lao lực cho văn bản.

Vấn đề mà thớt không nghĩ tới ở đây là từ Di Đà còn có thể nằm trong cụm từ A Di Đà, và cụm A Di Đà còn có thể nằm trong A Di Đà Phật.

Nhưng cái khó nhất có lẽ là phân biệt các cụm nguyễn ngọc, nguyễn ngọc tư, nguyễn ngọc tư duy,...

ptm0412 · 24/9/20

befaint đã viết:
Tổng là 3 phát.

Sao không phải 1 phát? (như bài #37)?
Hay là trèo mui xe khó nên chui gầm xe đu trục bánh?

VetMini · 24/9/20

ptm0412 đã viết:
Sao không phải 1 phát? (như bài #37)?
Hay là trèo mui xe khó nên chui gầm xe đu trục bánh?

Đeo càng sau xe: 2 phát
- dùng wildcards
- phát 1: find "d(i [đĐ]à)" replace with "D\1"
- phát 2: find "(Di )đ(à)" replace with "\1Đ\2"
Rõ ràng là đúng yêu cầu thớt, không đụng chạm gì đến "Di Đà"

Chưa nghĩ ra phương án nằm bót-ba-ga trần xe.

batman1 · 24/9/20

VetMini đã viết:
Đeo càng sau xe: 2 phát

Gặp cô có nhu cầu cao mà lanh lợi thì chắc là: "Em muốn thao tác cho A Di Đà Phật một nghìn lẻ một lần" cơ.

HeSanbi · 24/9/20

@hung2412

Vấn đề này phải dùng giải thuật chuyên sâu nha bác. Vì bác không thể bỏ công sức ra để viết từng cụm từ hoa.

1. Tìm tất cả các cụm từ xuất hiện nhiều nhất
2. Phân loại cụm từ được viết hoa, trừ các từ viết hoa đầu dòng, đầu câu
3. Thay thế

Bác có thể tham khảo Python - xử lý ngôn ngữ tự nhiên hoặc thư viện nltk.
Python có thể giúp xử lý nhiều tệp của bác chỉ tính bằng phút.

Với VBA, bác chỉ có thể lập danh sách các cụm từ đó, thì mới có thể thay thế.

Bác có thể tham khảo file bên dưới đây sử dụng VBA, với file dưới thì một thư mục và các tệp mới sẽ được tạo để tránh làm hỏng dữ liệu gốc.

Có hai cách thay thế:
1. Thay thế dựa trên từ có sẵn trong tệp
2. Thay thế dựa trên danh sách từ cho trước.

File có một chức năng khác là tìm tất các cụm từ hơn 1 chữ hoa.

hung2412 · 24/9/20

HeSanbi đã viết:
@hung2412

Vấn đề này phải dùng giải thuật chuyên sâu nha bác. Vì bác không thể bỏ công sức ra để viết từng cụm từ hoa.

1. Tìm tất cả các cụm từ xuất hiện nhiều nhất
2. Phân loại cụm từ được viết hoa, trừ các từ viết hoa đầu dòng, đầu câu
3. Thay thế

Bác có thể tham khảo Python - xử lý ngôn ngữ tự nhiên hoặc thư viện nltk.
Python có thể giúp xử lý nhiều tệp của bác chỉ tính bằng phút.

Với VBA, bác chỉ có thể lập danh sách các cụm từ đó, thì mới có thể thay thế.

Bác có thể tham khảo file bên dưới đây sử dụng VBA, với file dưới thì một thư mục và các tệp mới sẽ được tạo để tránh làm hỏng dữ liệu gốc.

Có hai cách thay thế:
1. Thay thế dựa trên từ có sẵn trong tệp
2. Thay thế dựa trên danh sách từ cho trước.

File có một chức năng khác là tìm tất các cụm từ hơn 1 chữ hoa.

Bạn tự thiết kế File này ạ? Trông chuyên nghiệp quá. Bạn có thể hướng dẫn cách sử dụng được không (Vì nhiều nút quá).

Ba mười ba · 24/9/20

hung2412 đã viết:
Bạn tự thiết kế File này ạ? Trông chuyên nghiệp quá. Bạn có thể hướng dẫn cách sử dụng được không (Vì nhiều nút quá).

Chẳng có nhẽ người ta lại giống "kẻ khác" đi copy từ chỗ khác về rồi sửa thành của mình?

HeSanbi · 25/9/20

hung2412 đã viết:
Bạn tự thiết kế File này ạ? Trông chuyên nghiệp quá. Bạn có thể hướng dẫn cách sử dụng được không (Vì nhiều nút quá).

Bác tải lại file.

Ấn nút Chọn thư mục lấy tệp
Đặt số luồng thực hiện công việc
Đặt công việc cần thực hiện
Ấn nút Thực hiện

Nút Làm mới: sẽ thực hiện lại việc lấy tên tệp trong thư mục dựa trên đường dẫn đã chọn

Nhờ giúp Tìm kiếm từ hoặc cụm từ (Ngoại trừ từ hoặc cụm từ đó viết hoa ở đầu mỗi chữ) trong Word (1 người xem)

Người dùng đang xem chủ đề này

Thành viên tích cực

File đính kèm

Thành viên tiêu biểu

Đang đi tìm hòn đá

Thành viên chính thức

Thành viên tích cực

Thành viên hoạt động

Thành viên tích cực

Thành viên chính thức

Thành viên hoạt động

Thành viên tích cực

Coming back ...

Thành viên tích cực

File đính kèm

Thành viên chính thức

Coming back ...

Thành viên tích cực

Thành viên gắn bó

|||||||||||||

Thành viên chính thức

Đang đi tìm hòn đá

Bad Excel Member

Thành viên chính thức

Bad Excel Member

Đang đi tìm hòn đá

Thành viên chính thức

Đang đi tìm hòn đá

Thành viên chính thức

Bad Excel Member

|||||||||||||

Thành viên tích cực

Bad Excel Member

Thành viên chính thức

Thành viên gạo cội

Thành viên tích cực

Thành viên chính thức

|||||||||||||

Thành viên gạo cội

Đang đi tìm hòn đá

Bad Excel Member

Đang đi tìm hòn đá

Thành viên gạo cội

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

File đính kèm

Thành viên tích cực

Thành viên chính thức

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thời gian đếm ngược.