|
功能说明: 可以把文章标题中的英文单词的首字母变成大写:) <% function PCase(strInput) 'Variable declaration. Dim strArr Dim tmpWord Dim tmpString Dim last 'Create an array To store Each word In the String separately. strArr = split(strInput," ") if ubound(strArr) > 0 Then For x = lbound(strArr) To ubound(strArr) 'Set Each word To lower Case initially. strArr(x) = LCase(strArr(x)) 'Skip the unimportant words. Select Case strArr(x) Case "a" Case "an" Case "and" Case "but" Case "by" Case "for" Case "in" Case "into" Case "is" Case "of" Case "off" Case "on" Case "onto" Case "or" Case "the" Case "to" Case "a.m." strArr(x) = "A.M." Case "p.m." strArr(x) = "P.M." Case "b.c." strArr(x) = "B.C." Case "a.d." strArr(x) = "A.D." Case Else 'Capitalize the first letter, but don't forget To take into account that 'the String may be in Single or Double quotes. if len(strArr(x)) > 1 Then if mid(strArr(x),1,1) = "'" or mid(strArr(x),1,1) = """" Then tmpWord = mid(strArr(x),1,1) & Ucase(mid(strArr(x),2,1)) & mid(strArr(x),3,len(strArr(x))-2) Else tmpWord = Ucase(mid(strArr(x),1,1)) & mid(strArr(x),2,len(strArr(x))-1) |