Kod:
ek_islemler = "ENZİM-HİDROFİL-TURBANG-AİRCO"
istenmeyen = "TURBANG-ENZİM"
'ek işlemlerin içinde, istenmeyen alanındaki "TURBANG-ENZİM" varsa
'istenmeyen ekişlem var diye mesaj vermesini istiyorum?
ek_islemler = "ENZİM-HİDROFİL-TURBANG-AİRCO"
istenmeyen = "TURBANG-ENZİM"
'ek işlemlerin içinde, istenmeyen alanındaki "TURBANG-ENZİM" varsa
'istenmeyen ekişlem var diye mesaj vermesini istiyorum?
Function RegExpOr()
ek_islemler = "ENZİM-HİDROFİL-TURBANG-AİRCO"
istenmeyen = "TURBANG-ENZİM"
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.IgnoreCase = True
.Global = True
.MultiLine = True
.Pattern = "(" & Replace(istenmeyen, "-", "|") & ")"
If .Test(ek_islemler) = True Then MsgBox "veri var"
End With
End Function
ek_islemler = "ENZİM-HİDROFİL-TURBANG-AİRCO"
istenmeyen = "TURBANG-ENZİM"
ek_islemler = " " & Replace(ek_islemler, "-", " - ") & " "
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.IgnoreCase = True
.Global = True
.Multiline = True
.Pattern = "( " & Replace(istenmeyen, "-", "|") & " )"
If .Test(ek_islemler) = True Then MsgBox "veri var"
End With