Tìm và thay thế nhiều ký tự

[hayvoc]

Public Function timB(DL)With CreateObject("VBScript.RegExp").Global = True.IgnoreCase = True.Pattern = "b.*?n"timB = .Replace(DL, "$&")End WithEnd Function

anh kiểm tra dùm e, sao e sử dụng tìm kiém và thay thế hàm vẫn trả vè giá trị cũ anh

 

[Quang_Hải]

Public Function timB(DL)With CreateObject("VBScript.RegExp").Global = True.IgnoreCase = True.Pattern = "b.*?n"timB = .Replace(DL, "$&")End WithEnd Function

anh kiểm tra dùm e, sao e sử dụng tìm kiém và thay thế hàm vẫn trả vè giá trị cũ anh

Bạn code kiểu đó thì nó trả về kiểu đó thôi
Muốn thế nào thì phải nói rõ ràng chứ ai biết ý tưởng của bạn là gì mà trả lời
Mới học code mà đụng tới Pattern của Regexp là không đơn giản đâu.
Cảm giác bạn đang lạc đường.

 

[VetMini]

Public Function timB(DL)With CreateObject("VBScript.RegExp").Global = True.IgnoreCase = True.Pattern = "b.*?n"timB = .Replace(DL, "$&")End WithEnd Function

anh kiểm tra dùm e, sao e sử dụng tìm kiém và thay thế hàm vẫn trả vè giá trị cũ anh

Có biết bạn muốn "find" cái gì đâu mà kiểm tra. Ít nhất pahir giải thích bạn muốn gì với cái pattern đó rồi tôi mới có thể cho biết như thế là đúng hay sai.

Hỏi thì đừng có viết tắt. Câu hỏi đã chập chơn khó hiểu lại còn biết tắt, đoán đổ mồ hôi hột.

 

[nhs243]

Em muốn thay thế hết tất cả các ký tự !%^&()_-+=\|/><.,:; nhưng khi đưa vào mẫu pattern thì bị lỗi.
Em điền là: .Pattern = "\.|-|<|>|\)|\!|@|#|$|+(|,"
khi em thử thì chỉ xóa được 1 số, còn dấu +!@#.. thì vẫn có.
Em chưa hiểu về mẫu Pattern này lắm. Mong các anh chị cho em cái mẫu để xóa hết các ký tự đó đi.

 

[nhs243]

Hàm tự tạo này có thể xài được

Function ThayThe(Cell$) As String
With CreateObject("Vbscript.Regexp")
   .Global = True
   .Pattern = "\.|-|\("
   ThayThe = .Replace(Cell, " ")
End With
End Function

Em muốn thay thế hết tất cả các ký tự !@ # %^&()_-+=\|/><.,:; nhưng khi đưa vào mẫu pattern thì bị lỗi.
Em điền là: .Pattern = "\.|-|<|>|\)|\!|@|#|$|+(|,"
khi em thử thì chỉ xóa được 1 số, còn dấu +!@#.. thì vẫn có.
Em chưa hiểu về mẫu Pattern này lắm. Mong các anh chị cho em cái mẫu để xóa hết các ký tự đó đi.