Skip to main content

AccessTr.neT


Metin İçinde İstenmeyen Metin Varsa Bulmak

Metin İçinde İstenmeyen Metin Varsa Bulmak

#7
Merhaba, bu kod da çalışıyor, sanırım ikiside benim işime yarayabilir.
çünkü tablodan gelen ek işlem verileri düzenli.
çok teşekkürler.
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#8
denemelerimde kısmi eşleşmelerde bile sonuçlar doğru geldi
Function RegExpOr()
ek_islemler = "koENZİM-HİDROFİL-TURBANG-AİRCO"
istenmeyen = "TURBANG-ENZİM"

ek_islemler = " " & Replace(ek_islemler, "-", " - ") & " "
istenmeyen = " " & Replace(istenmeyen, "-", " | ") & " "

Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.IgnoreCase = True
.Global = True
.Multiline = True
.Pattern = "(" & istenmeyen & ")"
If .Test(ek_islemler) = True Then MsgBox "veri var"
End With
End Function
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task