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