Metin İçinde İstenmeyen Metin Varsa Bulmak

Metin İçinde İstenmeyen Metin Varsa Bulmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin İçinde İstenmeyen Metin Varsa Bulmak (/konu-metin-icinde-istenmeyen-metin-varsa-bulmak.html)

Sayfalar: 1 2

Metin İçinde İstenmeyen Metin Varsa Bulmak - husem - 30/08/2023

selamlar,

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?

yardımcı olabilirmisiniz?

RE: Metin İçinde İstenmeyen Metin Varsa Bulmak - berduş - 30/08/2023

aşağıdaki kod işinize yarayabilir

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

RE: Metin İçinde İstenmeyen Metin Varsa Bulmak - husem - 30/08/2023

halil üstadım teşekkür ederim, çok harika oldu,

RE: Metin İçinde İstenmeyen Metin Varsa Bulmak - berduş - 30/08/2023

rica ederim
iyi çalışmalar
not: dikkat edilmesi gereken husus işlem maalesef alt kelimelerde de doğru sonuç gönderiyor
mesela
ek_islemler = "ENZİM-HİDROFİL-koTURBANG-AİRCO"
istenmeyen = "TURBANG-ENZİM"
burada koTURBANG kelimesinin içinde de TURBANGgeçtiği için uyarı mesajı verir

RE: Metin İçinde İstenmeyen Metin Varsa Bulmak - husem - 30/08/2023

ek işlem listemi buna göre düzenlerim, bu hataya düşülmemesi için tanımlamalarda dikkat edilir.
bilgilendirme ve yardımınız için çok teşekkür ederim.

RE: Metin İçinde İstenmeyen Metin Varsa Bulmak - berduş - 30/08/2023

aşağıdaki gibi bir düzenleme yapılabilir bu durumda sorun çıkmayabilir
ek_islemler = " " & Replace(ek_islemler, "-", " - ") & " "'<-- burada kelimelerin başına ve sonuna boşluk eklenmiş
.Pattern = "( " & Replace(istenmeyen, "-", "|") & " )"'<-- burada da kelimelerin başına ve sonuna boşluk eklenmiş

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