Active Directory преобразование в VBScript

Question

Мне нужна помощь с моим сценарием.

Полный сценарий можно найти здесь

Вот часть скрипта, с которой мне нужна помощь:

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

В нашей AD все написано в верхнем регистре, поэтому мне нужно сделать его заглавным. Тем не менее, это не работает, если это для заголовка, как "QC Technician" или "HR Manager".

Как я могу сделать это с текущим сценарием, который у меня есть?

Answer 1

Добавьте еще одно условие внутри цикла и меняйте регистр только в том случае, если длина строки превышает 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, " ")