Dizelerin ilk harfinin büyük harfle yazılması

Question

dizisindeki ilk harf dizgisini arr dizisinde büyük harflerle yazmaya çalışıyorum. Çalışmayan kodun parçası, kodun bir hata döndürmesine neden olan Right işlevidir. Düzeltme ne olabilir?

For Each sent In arr 
    sent = UCase(Left(sent, 1)) & Right(sent, Len(sent) - 1) 
    arr(i) = sent 
    i = i + 1 
Next 

Answer 1

mektup aktifleştirme sonrası her şeyi oluşturmak için Mid fonksiyonunu kullanmak daha kolay olacaktır. Bu işlev, tam uzunlukta belirtmek gerektirmez:

For i = LBound(arr) To UBound(arr) 
    sent = arr(i) 
    ' Capitalize the first letter, then append everything else. 
    sent = UCase(Left(sent, 1)) & Mid(sent, 2) 
    arr(i) = sent 
Next 

Ayrıca, sadece sýralayýcý olarak i kullanılarak arr yineleme yapabilirsiniz. Ayrı bir numaralayıcı kullanarak indeks güncellemelerini karıştırmak ve eşleştirmek sorunlara yol açabilir.

Answer 2

Bunun için StrConv() işlevini kullanabilirsiniz. Örneğin. :

For i = LBound(arr) To UBound(arr) 
    sent = arr(i) 
    arr(i) = StrConv(sent, vbProperCase) 
Next 

veya döngüsüz

:

arr = Split(StrConv(Join$(arr, " "), vbProperCase), " ") 

Answer 3

vbPropercase ile strConv kullanılarak ve UCase(left(xx,1)) & mid(xx,2) çözelti vbPropercase Büyük ve küçük harfe diğerleri için tüm birinci karakter değiştirmesidir arasındaki fark. İstediğiniz Her Zaman Değil, bazen sadece bir büyük harf ve geri kalanını küçük harf olarak istiyorum.

Daha sonra biraz geliştirilmiş bir çözüm kullanabilirsiniz

: Deneyin

UCase(Left(<string>,1)) & LCase(Mid(<string>,2)) 

Answer 4

aşağıdadır:

NewArr As List<string> NewArr = new List<string>() 

For Each sent As String In arr  
    NewArr.Add(Application.WorksheetFunction.Proper(sent)) 

Next sent 

arr = NewArr.ToArray()