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

[hayvoc]

A1 ngay,mai.troi-lai(sang

B1 =SUBSTITUTE(A1,","," ") ngay mai.troi-lai(sang
C1 =SUBSTITUTE(B1,"."," ") ngay mai troi-lai(sang
D1 =SUBSTITUTE(C1,"-"," ") ngay mai troi lai(sang
E1 =SUBSTITUTE(D1,"("," ") ngay mai troi lai sang

Có cách nào có thẻ thay thế 1 làn {, . - ( } bằng " " được ko các anh ?

 

[Let'GâuGâu]

A1 ngay,mai.troi-lai(sang

B1 =SUBSTITUTE(A1,","," ") ngay mai.troi-lai(sang
C1 =SUBSTITUTE(B1,"."," ") ngay mai troi-lai(sang
D1 =SUBSTITUTE(C1,"-"," ") ngay mai troi lai(sang
E1 =SUBSTITUTE(D1,"("," ") ngay mai troi lai sang

Có cách nào có thẻ thay thế 1 làn {, . - ( } bằng " " được ko các anh ?

lồng các hàm substitute vào nhau, hay dùng vba thì xài hàm replace

 

[Quang_Hải]

A1 ngay,mai.troi-lai(sang

B1 =SUBSTITUTE(A1,","," ") ngay mai.troi-lai(sang
C1 =SUBSTITUTE(B1,"."," ") ngay mai troi-lai(sang
D1 =SUBSTITUTE(C1,"-"," ") ngay mai troi lai(sang
E1 =SUBSTITUTE(D1,"("," ") ngay mai troi lai sang

Có cách nào có thẻ thay thế 1 làn {, . - ( } bằng " " được ko các anh ?

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

 

[hayvoc]

cám ơn a, vạy giờ muốn thêm các ký tự khác thì sao anh
Pattern = "\.|-|\("

 

[hayvoc]

có thể áp dụng bàng 1 từ hay 1 chuỗi được ko anh

 

[Quang_Hải]

có thể áp dụng bàng 1 từ hay 1 chuỗi được ko anh

Chắc là được

cám ơn a, vạy giờ muốn thêm các ký tự khác thì sao anh
Pattern = "\.|-|\("

Muốn thêm các ký tự khác thì cứ dựa theo mẫu này mà thử coi ra cái gì

 

[hayvoc]

nhờ a điền vào 1 làn dùm e, e chưa hiểu cú pháp nên điền vào ko được

, . - ( ) < >

 

[Quang_Hải]

nhờ a điền vào 1 làn dùm e, e chưa hiểu cú pháp nên điền vào ko được

, . - ( ) < >

thử vầy coi sao
.Pattern = "\.|-|<|>|\)|\("

 

[hayvoc]

e làm được ròi thì ra đây là regex thank anh nhìu

\.|-|\(|\)

 

[hayvoc]

\.|-|<|>|\)|\(|,

chuỗi của e

 

[gtri]

A1 ngay,mai.troi-lai(sang

B1 =SUBSTITUTE(A1,","," ") ngay mai.troi-lai(sang
C1 =SUBSTITUTE(B1,"."," ") ngay mai troi-lai(sang
D1 =SUBSTITUTE(C1,"-"," ") ngay mai troi lai(sang
E1 =SUBSTITUTE(D1,"("," ") ngay mai troi lai sang

Có cách nào có thẻ thay thế 1 làn {, . - ( } bằng " " được ko các anh ?

Góp thêm cho xôm tụ.
Dùng cho chữ không dấu

Public Function Tach(DL)
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "[^a-z]"
Tach = .Replace(DL, " ")
End With
End Function

 

[Quang_Hải]

\.|-|<|>|\)|\(|,

chuỗi của e

Sao không thử thêm thế này
.Pattern = "\W"

Lưu ý là nếu tiếng Việt có dấu thì nên xài theo kiểu bài 8. Nếu theo kiểu bài này và bài 11 thì tèo

 

[VetMini]

\.|-|<|>|\)|\(|,

chuỗi của e

Theo cách làm của regex thì chuỗi này đi theo đường vòng.
Ký tự thì chứa trong ngoặc vuông [] chứ không dùng dấu ngăn đứng |

 

[Quang_Hải]

Như bài 13 thì đây là 1 kiểu khác để tạo Pattern. Tuy nhiên dấu | sẽ hữu dụng khi bạn hiểu thêm tí về Regexp. Regexp rất thú vị và linh hoạt khi làm việc với chuỗi. Từ từ nhai nhé.

.Pattern = "[().,-<>]"

 

[hayvoc]

cho em hỏi thêm e muốn tách như thế này thì làm sao ạ

A1: 10 điều (Bác hồ) dạy
B1: (Bác hồ)
C1: 10 điều dạy

 

[hoamattroicoi]

cho em hỏi thêm e muốn tách như thế này thì làm sao ạ

A1: 10 điều (Bác hồ) dạy
B1: (Bác hồ)
C1: 10 điều dạy

Làm theo dữ liệu mẫu
B1 :

=TRIM(MID(A1,FIND("(",A1),LEN(A1)-LEN(C1)))

C1 :

=TRIM(LEFT(A1,FIND("(",A1)-1)&RIGHT(A1,LEN(A1)-FIND(")",A1)))

 

[Quang_Hải]

cho em hỏi thêm e muốn tách như thế này thì làm sao ạ

A1: 10 điều (Bác hồ) dạy
B1: (Bác hồ)
C1: 10 điều dạy

Nếu vẫn muốn dùng RegExp thì đây là Pattern cho yêu cầu này
Nhưng phải để xài được phải biết xài hàm replace để xóa cụm (abc) và hàm execute để lấy cụm (abc).

.Pattern = "\(.+\)"

 

[hayvoc]

xin cho e 1 thí dụ mẫu được ko ạ

 

[Quang_Hải]

xin cho e 1 thí dụ mẫu được ko ạ

Function TachChuoi(cell As String) As String
On Error Resume Next
With CreateObject("vbscript.regexp")
     .Global = True
     .Pattern = "\(.+\)"
     TachChuoi = Trim(.Execute(Trim(cell)).Item(0).Value)
End With
End Function
Function XoaChuoi(cell As String) As String
With CreateObject("vbscript.regexp")
     .Global = True
     .Pattern = "\(.+\)"
     XoaChuoi = Application.Trim(.Replace(cell, ""))
End With
End Function

 

[VetMini]

Như bài 13 thì đây là 1 kiểu khác để tạo Pattern. Tuy nhiên dấu | sẽ hữu dụng khi bạn hiểu thêm tí về Regexp. Regexp rất thú vị và linh hoạt khi làm việc với chuỗi. Từ từ nhai nhé.

.Pattern = "[().,-<>]"

Dấu | dùng cho sự chọn lựa giữa các cụm ký tự, tức là cái pattern sẽ được tách thành mảng chuỗi. Dấu [] dùng cho sự chọn lựa giữa các ký tự trong một nhóm character class, tức là cái pattern sẽ được tách thành mảng ký tự. Tuy VBA đối xử với mảng chuỗi và mảng ký tự không phân biệt nhưng phần đông các cổ máy Regex phân biệt được cách đối xử chuỗi và ký tự. Cho nên dùng [] hữu hiệu hơn dùng |.

Function TachChuoi(cell As String) As String
On Error Resume Next
With CreateObject("vbscript.regexp")
     .Global = True
     .Pattern = "\(.+\)"
     TachChuoi = Trim(.Execute(Trim(cell)).Item(0).Value)
End With
End Function
Function XoaChuoi(cell As String) As String
With CreateObject("vbscript.regexp")
     .Global = True
     .Pattern = "\(.+\)"
     XoaChuoi = Application.Trim(.Replace(cell, ""))
End With
End Function

Lưu ý rằng Regex có tính chất tham lam.
Dùng pattern này phải cẩn thận vì nó chỉ tính cái '(' đầu tiên và cái ')' cuối cùng. Nêu chuỗi có nhiều dấu ngoặc thì nó sẽ gom hết vào một mối.

VD
Con chó (nhỏ) bị con mèo (lớn) đuổi
TachChuoi = (nhỏ) bị con mèo (lớn)
XoaChuoi = Con chó đuổi