VBA Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Örneği

167 Okunma VBA

"VBA" Programlama dilinde "Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir. 

Sub ExtractDigitsFromString()
    Dim str1 As String
    Dim res As String
    Dim i As Integer
    
    str1 = "Ben 30 yaşındayım ve 10 yıldır yazılım sektöründeyim"
    Debug.Print "Orjinal string : " & str1
    
    For i = 1 To Len(str1)
        If IsNumeric(Mid(str1, i, 1)) Then
            res = res & Mid(str1, i, 1)
        End If
    Next i
    
    Debug.Print res
End Sub
String Sayı Integer Kaldır Karakter VBA

İlginizi Çekebilir

VBA Sayıların Geometrik Ortalamasını Bulma Örneği

VBA Bir Stringin Büyük Harfe Çevrilmesi

VBA Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

VBA Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Örnek

VBA Dictionary'deki Değerler İle Listenin Elemanlarını Eşleştirme ...