Skip to main content

AccessTr.neT


Satır İçindeki Sayıyı Almak

Satır İçindeki Sayıyı Almak

Çözüldü #1
Ahmet belge numarası 12356 dir.

Mustafa 27. oldu.


gibi verilen satır ifadelerindeki sadece sayı kısmını hangi visual basic kodu ile alabiliriz. 
İyilik yap!
                  İyilik bul!
Cevapla
#2
aşağıdaki fonksiyon işinize yarayabilir ama şöyle bir sorun var metin içindeki sayılar Cuma 0123 ali 000 gibi dağınıksa 0123000 şeklinde alır.
Visual Basic Code
Function SayiAl(Mtn As String)
Dim Sayi As String
For x = 1 To Len(Mtn)
SayInt = Mid(Mtn, x, 1)
If IsNumeric(SayInt) Then SayiAl = SayiAl & SayInt
Next x
End Function
fonksiyonu aşağıdaki şekilde çağırabilirsiniz
Visual Basic Code
Private Sub SayiA_Click()
Me.Metin2 = SayiAl(Me.Metin0)
End Sub
Cevapla
#3
(24/02/2020 09:42)berduş Adlı Kullanıcıdan Alıntı: aşağıdaki fonksiyon işinize yarayabilir ama şöyle bir sorun var metin içindeki sayılar Cuma 0123 ali 000  gibi dağınıksa 0123000 şeklinde alır.
Visual Basic Code
Function SayiAl(Mtn As String)
Dim Sayi As String
For x = 1 To Len(Mtn)
SayInt = Mid(Mtn, x, 1)
If IsNumeric(SayInt) Then SayiAl = SayiAl & SayInt
Next x
End Function
fonksiyonu aşağıdaki şekilde çağırabilirsiniz
Visual Basic Code
Private Sub SayiA_Click()
Me.Metin2 = SayiAl(Me.Metin0)
End Sub
Teşekkür ederim. Süper oldu.
İyilik yap!
                  İyilik bul!
Cevapla
#4
iyi çalışmalar)
Rep için teşekkürler
Cevapla
#5
Ben de farklı bir yöntem göstereyim. Mid komutuyla da istenilen alanları çağırabilirsiniz.

Visual Basic Code
Me.Metin2 = Mid([Me.Metin0], 6, 4) & " " & Mid([Me.Metin0], 15, 4)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da