两个字符串的处理函数（转）

' =================================================================
' Reformat "txtName" to proper case.
' EX: "jason smith" to "Jason Smith"
' =================================================================
Function Proper(txtName)　
　　Dim txtRest, txtTmp, intSpcPos
　　txtRest = LCase(txtName)　　
　　intSpcPos = InStr(1, txtRest, " ")
　　Do While intSpcPos <> 0
　　　　txtTmp = txtTmp & UCase(Left(txtRest, 1)) & Mid(txtRest, 2,
(intSpcPos - 1))
　　　　txtRest = Mid(txtRest, intSpcPos + 1, Len(txtRest))
　　　　intSpcPos = InStr(1, txtRest, " ")　　
　　Loop
　　Proper = txtTmp & UCase(Left(txtRest, 1)) & Mid(txtRest, 2,Len
(txtRest))
End Function
' =================================================================
%>

' =================================================================
' Reformat "txtName" to proper case.
' Output = String
' =================================================================
Function Proper(txtName)　
　　Dim txtRest, txtTmp, intSpcPos
　　txtRest = LCase(txtName)
　　
　　'Single Quote
　　intTckPos = InStr(1, txtRest, "'",1)
　　if intTckPos <> 0 then
　　　　txtTmp = UCase(Mid(txtRest, intTckPos + 1, 1))
　　　　txtRest = Left(txtRest, intTckPos) & txtTmp & Mid(txtRest,
intTckPos + 2, Len(txtRest))
　　　　txtTmp = ""
　　end if
　　
　　'Hypenated
　　intDshPos = InStr(1, txtRest, "-",1)
　　if intDshPos <> 0 then
　　　　txtTmp = UCase(Mid(txtRest, intDshPos + 1, 1))
　　　　txtRest = Left(txtRest, intDshPos) & txtTmp & Mid(txtRest,
intDshPos + 2, Len(txtRest))
　　　　txtTmp = ""
　　end if
　　
　　'MC
　　intMcPos = InStr(1,txtRest,"mc",1)
　　if intMcPos <> 0 then
　　　　txtTmp = UCase(Mid(txtRest, intMcPos+2, 1))
　　　　txtRest = Left(txtRest, intMcPos+1) & txtTmp & Mid(txtRest,
intMcPos+3, Len(txtRest))
　　　　txtTmp = ""
　　end if
　　
　　'Space
　　intSpcPos = InStr(1, txtRest, " ")
　　Do While intSpcPos <> 0
　　　　txtTmp = txtTmp & UCase(Left(txtRest, 1)) & Mid(txtRest, 2,
(intSpcPos - 1))
　　　　txtRest = Mid(txtRest, intSpcPos + 1, Len(txtRest))
　　　　intSpcPos = InStr(1, txtRest, " ")　　
　　Loop
　　
　　'Output
　　Proper = txtTmp & UCase(Left(txtRest, 1)) & Mid(txtRest, 2,Len
(txtRest))
End Function
' =================================================================
%>　

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124731/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124731/