将一个字符串第一个的第一个字符转为大写.......

<%
Function PCase(strInput)
iPosition = 1
Do While InStr(iPosition, strInput, " ", 1) <> 0
iSpace = InStr(iPosition, strInput, " ", 1)
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
iPosition = iSpace + 1
Loop
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
PCase = strOutput
End Function
%>

那个do....loop循环为目的是什么??请详解...

2 个解决方案

#1

将前头的空格干掉啊，兄弟，空格的大写是什么呢？---我想出来再回答你啊，呵呵

#2

我觉得这是将一个带有空格的字符串的每个单词第一个字母大写。
比如visual studio，
用Do...Loop搜索空格，将空格位置记下，
iSpace = InStr(iPosition, strInput, " ", 1)
再将这个单词大写，
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
除了第一个字符的所有字符小写；
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
再进行下一次寻找直到没有空格为止。最后连接所有的单词。