VBA Bir Stringteki Küçük Harfleri Öne Alma Örneği

"VBA" Programlama dilinde "Bir Stringteki Küçük Harfleri Öne Alma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

Sub sort_string()
    Dim str1 As String
    Dim lower As New Collection
    Dim upper As New Collection
    Dim i As Integer
    Dim c As String
    
    str1 = "YazLiM"
    Debug.Print "Orjinal String: " & str1
    
    For i = 1 To Len(str1)
        c = Mid(str1, i, 1)
        If c Like "[a-z]" Then
            lower.Add c
        Else
            upper.Add c
        End If
    Next i
    
    Dim sorted_str As String
    For Each c In lower
        sorted_str = sorted_str & c
    Next c
    For Each c In upper
        sorted_str = sorted_str & c
    Next c
    
    Debug.Print "Sonuç: " & sorted_str
End Sub



İlginizi Çekebilir

VBA Bir Listede Birden Çok Olan Elemanları Göstermek

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

VBA Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

VBA Fibonacci Serisinde N'inci Terimi Bulma Örneği

VBA Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği