İçindekiler
Metin Dizelerinden Kısaltmalar Oluşturun
Aşağıdaki işlev, dizilerden Kısaltmaları değerlendirir, yani bir dizedeki her kelimenin ilk harfini birleştirir. Örneğin, “ağaçlar yeşildir”, “ETİKET” olur.
Rutin, bir dizedeki her karakteri geçer ve bir boşluksa, dizedeki bir sonraki karakteri alır. Dizeyi değerlendirmeden önce, tüm sondaki ve yinelenen boşlukları kaldırır.
İşlev Kısaltma (Original_String As String) As String Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim(Original_String) 'dizenin uzunluğunu hesapla Uzunluk = Len(Trimmed_String) Acroymn = UCase(Left) (Trimmed_String, 1)) Pos = 2 To Uzunluk - 1 If (Mid(Trimmed_String, Pos, 1) = " ") Then Acroymn = Acroymn & UCase(Mid(Trimmed_String, Pos + 1, 1)) Sonraki Pos ise Son Bitiş İşlevi
Yani mesela :
Acroymn ("British Broadcasting Corporation") BBC'ye
Kısaltma (“Funky”) F verir
Kısaltma (“”) NULL verir
Makaleden .XLSM dosyasını indirmek için buraya tıklayın
