Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak

Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - 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ığı: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak (/konu-metinden-istedigimiz-bir-kismi-diger-metin-kutusuna-aktarmak.html)

Sayfalar: 1 2 3 4

Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - accessman - 03/04/2020

Evet mantıklı gözüküyor

Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - accessman - 03/04/2020

şunun içini nasıl doldurabiliriz

Public Function metinTemizle(metin As String, Optional ilk As Byte = "[", Optional son As Byte = "]") As String

On Error GoTo Err_hata

    

    metin = "temiz metin"

    





Exit_kod:

    metinTemizle = metin

    Exit Function



Err_hata:

    

    result = ""

    MsgBox Err.Description

    Resume Exit_kod

End Function

Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - berduş - 03/04/2020

Iyi de köşeli parantezler nerede?

Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - accessman - 03/04/2020

Optional ilk As Byte = "[", Optional son As Byte = "]"

Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - accessman - 03/04/2020

Dim intIlk, intSon As Integer

    Dim strSil As String

    

    intIlk = InStr(1, metin, ilk)

    intSon = InStr(intIlk, metin, son)

    strSil = Mid(metin, intIlk, intSon - intIlk)

    

    metin = Replace(metin, strSil, "")

şöyle yazılsa nasıl olur

Cvp: Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak - accessman - 03/04/2020

Public Function metinTemizle(metin As String, Optional ilk As String = "[", Optional son As String = "]") As String

On Error GoTo Err_hata



    Dim intIlk, intSon As Integer

    Dim strSil As String

    

    intIlk = InStr(1, metin, ilk)

    intSon = InStr(intIlk, metin, son)

    strSil = Mid(metin, intIlk, intSon - intIlk + 1)

    

    metin = Replace(metin, strSil, " ")



Exit_kod:

    metinTemizle = metin

    Exit Function



Err_hata:

    

    result = ""

    MsgBox Err.Description

    Resume Exit_kod

End Function

bunun ile "ahmet[xxx]geldi" metnini "ahmet geldi" haline çeviriyor
bunu metin içindeki tüm köşeli parantezler için nasıl uygulayabilirz