-1

我的脚本需要一些帮助。

完整的脚本可以在这里找到

我需要帮助的脚本部分是这样的：

If (Len(strTitle) > 3) Then
    arrStr = Split(strTitle," ")
    For i=0 To UBound(arrStr)
        word = LCase(Trim(arrStr(i)))
        word = Replace(word, Mid(word, 1, 1), UCase(Mid(word, 1, 1)), 1, 1)
        strTitleCon = strTitleCon & word & " "
    Next
End If

在我们的广告中，所有内容都用大写字母书写，这就是为什么我需要将其设为标题大小写。但是，如果是“QC 技术员”或“HR 经理”之类的头衔，这将不起作用。

我该如何使用我拥有的当前脚本来做到这一点？

4

1 回答 1

0

在循环内添加另一个条件，仅当字符串长度超过 2 个字符时才更改大小写。

For i=0 To UBound(arrStr)
    word = Trim(arrStr(i))
    If Len(word) > 2 Then
        word = UCase(Left(word, 1)) & LCase(Mid(word, 2))
    End If
    arrStr(i) = word
Next
strTitleCon = Join(arrStr, " ")
于 2018-07-12T15:36:58.297 回答