AccessTr.neT

şimdi ben bunun ile 
"% 52 DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
içindeki "52" kısmını alabiliyorum bu fonksiyon ile asıl metinden bu rakamı ve % yi nasıl çıkarabilirim
replace ile "%" karakterini ve "52" yi silebilirim ama ya metinde başka "%" ve 52 rakamları varsa ya metin şöyle olsa idi

"% 52 DM tip2, Lumbalgo siyatik, 52-Depresif belirtilerşe giden uyum bozukluğu % lik değer"

bu geçen diğer 52 ve % kısımlarını silmeden ilk "%52" nasıl asıl metinden çıkarabilirim

2.mesajdakini bir daha okuyunuz nasıl tapmışım instr.Neden sadece % aratıyorsunuz?

İf instr(veri,"%52")> 0 then
Kacinci= instr(veri,"%52")
Uzunluk2="%52"
Sonuc1=mid(veri,1,uzunluk2)
Sonuc2=mid(veri,kacinci+uzunluk2,len(veri))
Sonuç=sonuc1 & sonuc2

Yukarıdakş mantık gibi olabilir.Tabii biraz daha kısaltmak için instr nin tersi vardı onu unuttum.Onunlada sondan bulunur kaçıncı olduğu.
End if

---

İnstrrew miş sondan bulmak için yani a= instrrew(veri,"%52") gibi

ama bazen şöyle yazmışlar
"52%"

Ben sadece tek koşuş için yazdım.52% içinde aynı koddaki %52 yerine yukardaki gibi aratacaksınız.Ayrıca split ilede olur eve varınca ilgilenirim mobilden kod yazmak yoruyor

Bu kodu deneiniz.

  Dim arr1, arr2

    Dim i As Integer

    Dim say As Integer

    

    If IsNull(Metin1.Value) Or Metin1.Value = "" Then Exit Sub

    arr1 = Array("%52", "% 52", "52%", "52 %")

    arr2 = Array(3, 4, 3, 4) 'uzunluk

    say = 0

    With Me.Metin1

        For i = LBound(arr1) To UBound(arr1)

            If InStr(.Value, arr1(i)) > 0 Then

                say = say + 1

                MsgBox Mid(.Value, 1, InStr(.Value, arr1(i)) - 1) & _

                Mid(.Value, InStr(.Value, arr1(i)) + arr2(i), Len(arr1(i)))

            End If

        Next

    End With



    If say = 0 Then MsgBox "Aranan bulunamadi"

    Erase arr1: Erase arr2