Skip to main content

AccessTr.neT


Metin İçinde İstenmeyen Metin Varsa Bulmak

Metin İçinde İstenmeyen Metin Varsa Bulmak

Çözüldü #1
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?
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
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
Cevapla
#3
halil üstadım teşekkür ederim, çok harika oldu,
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#4
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
Cevapla
#5
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.
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task