問(wèn)：
您好，腳本專(zhuān)家！我有一個(gè)腳本，我的幫助支持人員用它來(lái)創(chuàng )建用戶(hù)帳戶(hù)。不幸的是，有時(shí)這些幫助支持人員在忙亂中會(huì )鍵入類(lèi)似這樣的名稱(chēng)：kEn MYEr。如何將名稱(chēng)轉換為正確的大小寫(xiě)（即 Ken Myer）呢？
-- LC
答：
您好，LC。您知道嗎：您真幸運。談到正確行事，腳本專(zhuān)家通常便是您最不愿意找的人。事實(shí)上，就我們所知，只有一種情況例外，那便是將名稱(chēng)轉換為正確的大小寫(xiě)，即，使名稱(chēng)中的首字母大寫(xiě)，而使其余字母小寫(xiě)。這一點(diǎn)我們還是可以辦到的。
注意：嘿，每個(gè)人都得能夠做點(diǎn)什么。盡管我們更希望能投出超過(guò) Albert Pujols 的快球或贏(yíng)取奧林匹克金牌，可不管怎樣，能夠將名稱(chēng)轉換為正確的大小寫(xiě)將是我們的下一個(gè)選擇。
我們預先提醒您，執行此項任務(wù)的腳本可能看上去有點(diǎn)隱秘；這是因為 VBScript（不象 Visual Basic）并沒(méi)有用于將字符串轉換為正確大小寫(xiě)的內置方法。不過(guò)沒(méi)關(guān)系，畢竟，如果事情太容易，那就沒(méi)有任何樂(lè )趣了：
strFirstName = "kEn"
strLastName = "MYEr"
intFirstName = Len(strFirstName)
strFirstLetter = UCase(Left(strFirstName, 1))
strRemainingLetters = LCase(Right(strFirstName, intFirstName - 1))
strFirstName = strFirstLetter & strRemainingLetters
intLastName = Len(strLastName)
strFirstLetter = UCase(Left(strLastName, 1))
strRemainingLetters = LCase(Right(strLastName, intLastName - 1))
strLastName = strFirstLetter & strRemainingLetters
Wscript.Echo strFirstName, strLastName
讓我們逐步向您介紹該過(guò)程。一開(kāi)始，我們只是將值 kEn 和 MYEr 賦給了名為 strFirstName 和 strLastName 的變量；不用說(shuō)，這便是我們需要轉換的兩個(gè)名稱(chēng)。
注意：是的，盡管不用說(shuō)，不過(guò)我們還是說(shuō)了。自己去想吧。
先來(lái)看看首先應該如何入手，我們是以處理用戶(hù)的名字開(kāi)始的。為此，我們使用 Len 函數確定字符串 kEn 中的字母數（對了：kEn 中有三個(gè)字母）：
intFirstName = Len(strFirstName)
接下來(lái)，我們僅需要獲取該名稱(chēng)的第一個(gè)字母，并將其轉換為大寫(xiě)。這一點(diǎn)是通過(guò)一對函數組合來(lái)實(shí)現的。我們使用 Left 函數取得首字母，也就是，從該字符串的左邊取得一個(gè)字母（倘若您對此感到好奇，那么 1 就表示我們要獲取的字母數）：
Left(strLastName, 1)
這樣，我們就會(huì )得到字母 k。然后，我們使用 UCase 函數將該字母轉換為大寫(xiě)：
UCase(Left(strLastName, 1))
現在我們有了大寫(xiě)字母 K，我們將其存儲在一個(gè)名為 strFirstLetter 的變量中。這是太羅嗦了，不過(guò)所有這些步驟卻是通過(guò)一行代碼來(lái)執行的：
strFirstLetter = UCase(Left(strLastName, 1))
明白其工作原理了嗎？好的?，F在，我們需要將該名稱(chēng)中的其余所有字母都轉換為小寫(xiě)。這便是我們用下面這行代碼所做的事情：
strRemainingLetters = LCase(Right(strLastName, intLastName - 1))
是的，它確實(shí)看起來(lái)有點(diǎn)令人發(fā)瘋。那就讓我們將其拆開(kāi)來(lái)看。我們所要做的是取得名字中除了首字母之外的所有字母。為此，我們使用 Right 函數，從右開(kāi)始取得 x 個(gè)字母。x 是什么？嗯，在本例中，x 將是字符串中的字母總數減 1。換言之，就是 3 減 1，即 2。這樣，我們將會(huì )得到字母 En（這便是我們所要的一切），而略掉起始字母 k。
明白了嗎？以下是其實(shí)現代碼：
Right(strLastName, intLastName - 1)
那么，我們對那些字母做什么呢？嗯，這次我們要使用 LCase 函數將每個(gè)字母都轉換為小寫(xiě)：
LCase(Right(strLastName, intLastName - 1))
之后，我們取得這些小寫(xiě)字母并將它們儲存在一個(gè)名為 strRemainingLetters 的變量中：
strRemainingLetters = LCase(Right(strLastName, intLastName - 1))
是的，這可能是有點(diǎn)令人困惑。但是只要您親自將該代碼過(guò)上一兩遍，就應該會(huì )弄明白了?；蛘?，也可對該代碼進(jìn)行修改，先執行 Left/Right 部分，然后再調用 UCase 或 LCase：
intFirstName = Len(strFirstName)
strFirstLetter = Left(strFirstName, 1)
strFirstLetter = UCase(strFirstLetter)
strRemainingLetters = Right(strFirstName, intFirstName - 1)
strRemainingLetters = LCase(strRemainingLetters)
如果分步進(jìn)行對您有所幫助，那就再好不過(guò)了。
最后，我們需要重新構造用戶(hù)的名字。為此，我們使用變量 strFirstLetter（其中包含用戶(hù)名字中首字母的大寫(xiě)版本），并將其與變量 strRemainingLetters（其中包含用戶(hù)名字中其余所有字母的小寫(xiě)版本）進(jìn)行合并：
strFirstName = strFirstLetter & strRemainingLetters
對姓氏重復上述整個(gè)過(guò)程，然后回顯“新”的用戶(hù)姓名。
Wscript.Echo strFirstName, strLastName
來(lái)看看我們這樣做會(huì )得到什么？
Ken Myer
確實(shí)漂亮極了。而且還做得恰如其分！