Skip to main content

AccessTr.neT


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

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

#7
Evet mantıklı gözüküyor
Cevapla
#8
ş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
Cevapla
#9
Iyi de köşeli parantezler nerede?
Cevapla
#10
Optional ilk As Byte = "[", Optional son As Byte = "]"
Cevapla
#11
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
Cevapla
#12
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task