大写首字母串

我试图大写sent数组中的第一个字母字符串arr.不起作用的代码部分是Right函数,它导致代码返回错误.可能有什么问题？

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

Sam.. 23

你可以使用这个StrConv()功能.例如:

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

或没有循环:

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

Jason Faulkn.. 12

Mid在字母大写之后使用该函数构建所有内容会更容易.此功能不要求您指定全长:

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

此外,您可以arr使用迭代i作为您的枚举器.使用单独的枚举器混合和匹配索引更新可能会导致麻烦.

你可以使用这个StrConv()功能.例如:

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

或没有循环:

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

Mid在字母大写之后使用该函数构建所有内容会更容易.此功能不要求您指定全长:

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

此外,您可以arr使用迭代i作为您的枚举器.使用单独的枚举器混合和匹配索引更新可能会导致麻烦.