|
|
|
7i24.Com不停为您服务
两个字符串的处理函数
<%
' =================================================================
' 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
' =================================================================
%>
|
|
|
