Satır İçindeki Sayıyı Almak

Ahmet belge numarası 12356 dir.

Mustafa 27. oldu.


gibi verilen satır ifadelerindeki sadece sayı kısmını hangi visual basic kodu ile alabiliriz. 

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.

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

Private Sub SayiA_Click()

Me.Metin2 = SayiAl(Me.Metin0)

End Sub

(24/02/2020, 09:42)berduş yazdı: 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.

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

Private Sub SayiA_Click()

Me.Metin2 = SayiAl(Me.Metin0)

End Sub

Teşekkür ederim. Süper oldu.

iyi çalışmalar)
Rep için teşekkürler

Ben de farklı bir yöntem göstereyim. Mid komutuyla da istenilen alanları çağırabilirsiniz.

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