求一字符串的判断函数

[bobii]

求一函数，
要求如下：

字符串a是通过request.form（）传递过来的，要求
1、去掉该字符串a的头和尾的chr(10)
2、其他剩余中的内容，不能有两个或是两个以上的chr(10)并列

在此谢过

得到答案马上结帖····

[Amely]

a=replace(a,chr(10)&chr(10),chr(10))

[bobii]

显然这个不行的嘛

[hxyman]

'去掉字符串头尾的连续的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
end function

'去掉字符串开头的连续的回车和空格
function ltrimVBcrlf(str)
dim pos,isBlankChar
pos=1
isBlankChar=true
while isBlankChar
if mid(str,pos,1)=" " then
pos=pos+1
elseif mid(str,pos,2)=VBcrlf then
pos=pos+2
else
isBlankChar=false
end if
wend
ltrimVBcrlf=right(str,len(str)-pos+1)
end function

'去掉字符串末尾的连续的回车和空格
function rtrimVBcrlf(str)
dim pos,isBlankChar
pos=len(str)
isBlankChar=true
while isBlankChar and pos>=2
if mid(str,pos,1)=" " then
pos=pos-1
elseif mid(str,pos-1,2)=VBcrlf then
pos=pos-2
else
isBlankChar=false
end if
wend
rtrimVBcrlf=rtrim(left(str,pos))
end function

[bobii]

哎（*****）

[rob123]

'检查开头chr(10)的数量
m=1
do while left(a,m)=chr(10)
m=m+1
loop
'检查结尾chr(10)的数量
n=1
do while right(a,n)=chr(10)
n=n+1
loop
'截取中间段
a=mid(a,m,len(a)-n+1)
'替换中间连续的chr(10)
do while instr(a,chr(10)&chr(10))<>0
a=replace(a,chr(10)&chr(10),chr(10))
loop

[rob123]

刚才的有点问题，现在测试通过.代码如下:

<%
'检查开头chr(10)的数量
m=1
do while asc(mid(a,m,1))=10
m=m+1
loop
'检查结尾chr(10)的数量
n=1
do while asc(right(a,n))=10
n=n+1
loop
'截取中间段
a=mid(a,m,len(a)-n-m+2)
'替换中间连续的chr(10)
do while instr(a,chr(10)&chr(10))<>0
a=replace(a,chr(10)&chr(10),chr(10))
loop
%>

[八哥]

Function GetStr(str)
do while left(str,1)=chr(10)
str=right(str,len(str-1)
loop
do while right(str,1)=chr(10)
str=left(str,len(str-1)
loop
do while instr(str,chr(10)&chr(10))<>0
str=replace(str,chr(10)&chr(10),chr(10))
loop
GetStr=str
end function

[bobii]

为什么测试有错误？？

[rob123]

我的测试是正常的。你出现什么错误?

[itzhiren]

2、其他剩余中的内容，不能有两个或是两个以上的chr(10)并列

如果有，怎么办？

[bobii]

如果有就替换成一个，就可以了···

[itzhiren]

a=replace(a,chr(10)&chr(10),chr(10))
if left(a,1)=chr(10) then
a=mid(a,2,len(a)-1)
end if
if right(a,1)=chr(10) then
a=mid(a,1,len(a)-1)
end if

[bobii]

其实以上几位的方法都不错

真的很感谢

不过朋友们，如果你们把以上的算法得到的字符串，用split（新字符串，chr(10)），结果是没有任何变化的

[bobii]

我发现问题的关键是，无法替换chr(10)

如果能解决replace(字符串，"替换成的字符",chr(10))这个问题就可以了·····

[rob123]

可以替换的。我测试的时候就上用a来测试的。一切正常.你可以设置一个变量来控制替换的内容。

[itzhiren]

当然没有了，你不是说两个也替换成一个吗？
你替换成别的字符不就行了