Function Description:
You can turn the first letters of the English words in the article in the article :)
Effect Demonstration:
<%
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 limited limited. strarr (x) = lcase (strarr (x))' skip the unimportant Words. SELECT CASE STRARR (X) Case "a" CASE "AN" Case "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" am "strarr (x) =" am "case" pm "strarr (x) =" PM "Case" BC "strarr (x) =" BC "Case" AD "strata (x) = "AD" Case Else 'Capitalize The First Letter, But Don 't forget to take it in single or double quotes. if Len (strarr (x))> 1hen if MID (strarr (x), 1, 1) = "'" or MID (strarr (x), 1, 1) = "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " 3, LEN (strarr (x)) - 2) Else TmpWord = UCase (STRARR (X), 1, 1)) &
MID (Strarr (x), 2, LEN (Strarr (x)) - 1) end if strarr (x) = tmpword endiff 'The Unimportant Words May Need to be Capitalized if The Follow A Dash, Colon,' Semi -Colon, Single Quote or Double Quote. IF x> 0 Then IF INSTR (strarr (x-1), "-") _ or inStr (strarr (x-1), ":") _ or inStr (strarr (X -1), ";") THENTMPWORD = UCASE (STRARR (X), 1, 1)) & MID (strarr (x), 2, len (strarr (x)) - 1) strarr (x) = TmpWord End if end if next else strarr (0) = LCase (strarr (0)) endiff 'Make Sure, but don't forget to take keto account' That The String May BE in SINGLE OR DOUBLE Quotes. IF MID (strarr (0), 1, 1) = "'" or MID (strarr (0), 1, 1) = "" "" "" "" "" "" "" "" "" "" 1) & ucase (STRARR (0), 2, 1)) & MID (strarr (0), 3, len (strarr (0)) - 2) else tmpword = ucase (STRARR (0), 1 , 1)) & MID (strarr (0), 2, LEN (strarr (0)) - 1) end if straarr (0) = tmpword 'Also, make Sure, but don't forget to Take Into Account' That The String May BE in Single OR Double quotes. Last = ubound (strarr) IF (strat), 1, 1) = "'" or MID (strarr (last), 1, 1) = "" "" "" "" "" "" "" "" "" "" "" " ), 1, 1) & ucase (STRARR (Last), 2, 1)) & MID (strarr (0), 3, len (strarr (last)) - 2) else tmpword = ucase (STRARR Last, 1, 1)) & MID (Strarr (Last), 2, Len (Strarr (Last)) - 1) end if straarr (last) =
