Skip to main content

AccessTr.neT


İnstr Fonksiyonu

İnstr Fonksiyonu

#7
evet mantıklı sn. @feraz
@benbendedeilem
Cevapla
#8
bir önceki konunuza yazdığım fonksiyon zaten önce harfin sırasını bulup öyle değiştiriyordu
fonksiyonu düzelttim incelerseniz anlarsınız.
Cevapla
#9
Yani alttaki gibi bişeyler olabilir kafadan tam yazamadım
Gerisini tamamlayabilirsiniz.

For i = 1 to len(kelime)

İf mid(kelime,i,1)= "i" then
Say = say+1
İf say = 6 then
End if
End if
Next
Cevapla
#10
Say olayına gerek yok i yi diziye alabilirsiniz
Cevapla
#11
sn. @berduş çözümü güzel çalışıyor
Private Sub degis()
    Dim intSira As Integer, txtMtn As String, txtBul As String, txtDgs As String
   
    txtMtn = "MUVAFFAKİYETSİZLEŞTİRİCİLEŞTİRİVEREMEYEBİLECEKLERİMİZDENMİŞSİNİZCESİNESİNİZ"
    intSira = 8
    txtBul = "İ"
    txtDgs = " $€£ "
   
    MsgBox degisHrf(txtMtn, intSira, txtBul, txtDgs)
   
End Sub

Function degisHrf(txtMtn As String, intSira As Integer, txtBul As String, txtDgs As String) As String
On Error GoTo Err_hata
    Dim result As String

    Dim x, y As Integer

    y = 0
   
    For x = 1 To intSira
        y = InStr(y + 1, txtMtn, txtBul)
    Next x
   
    result = Left(txtMtn, y - 1) & txtDgs & Mid(txtMtn, y + Len(txtBul))

Exit_kod:
    degisHrf = result
    Exit Function

Err_hata:
    result = txtMtn
    MsgBox Err.Description
    Resume Exit_kod
End Function
@benbendedeilem
Cevapla
#12
Çok garip bir durum.Sözler tükendi Img-cray
Yarış atı gibi olduk.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task