求教如何在字符串中截取值

[mzli]

4|5|13|14|22|23|31|
替换后返回值：4,5,13,14,22,23,31
将|替换成,
注意31后还有个|也要去掉，返回结果的最后一个数字31后没有 ,


5|8|9|15|
替换后返回值: "05","08","09","15"
将|替换成","
注意13后还有个|也要去掉，返回结果的最后一个数字15后只有" 而没有 ,

[iexapl]

最终答案:
dim Str1,Str3
Str3="4|5|13|14|22|23|31|"
Str1="5|8|9|15|"
Response.write (Cute(Str1)&"<br>"&Cute1(Str3))

Function Cute(Str)
Str2=""
A=split(Str,"|")
For i=0 to UBound(A)-1
if i=0 then
Str2=Str2&""""&string(2-len(A(i)),"0")& A(i)&""""
else
Str2=Str2&","""&string(2-len(A(i)),"0")& A(i)&""""
end if
Next
Cute=Str2
end function


Function Cute1(Str)
Str4=""
A=split(Str,"|")
For i=0 to UBound(A)-1
if i=0 then
Str4=Str4& A(i)
else
Str4=Str4&","& A(i)
end if
Next
Cute1=Str4
end function

[mzli]

哇 ，，good。。终于搞定了。。回头再研究下。

[onkey1999]

第二第也写得太复杂了，虽然没分了，我也来个简单点的：
Str0="5|8|9|15|"
aa=Chr(34)
Response.write Cute(Str0)
Function Cute(Str)
Str2=""
Str1=Chr(34)&","&Chr(34)
Str2=Replace(Str,"|",Str1)
Cute=Left(Chr(34)&Str2,Len(Chr(34)&Str2)-2)
end function

[jspadmin]

<%
str1="4|5|13|14|22|23|31|"
str2=replace(str1,"|",",")
str3=left(str2,len(str2)-1)
response.write str3
%>

[sky0120]

up

[若白师妹]

依样画葫芦

[md5e]

str1="4|5|13|14|22|23|31|"
str2=replace(str1,"|",",")
redim(len(str2))
i=1
do while len(str)>0
str=left(str2,instr(",")-1)
sum(i)=Cint(str)
str2=right(str2,intstr(",")-1)
i=i+1
loop

[lonaerd]

自己看一下split函数的用法。
replace、len、left、right、trim这是最常用的字符串函数，入门一定要了解。

[mzli]

谢谢大家，但第二个字符串替换还没解决

5|8|9|15|
替换后返回值: "05","08","09","15"


不知如何加上双引号？

[mzli]

个位数前边要加上 0

[iexapl]

第二个可以这样
Str1="5|8|9|15|"
Response.write (Cutr(Str1))
Function Cute(Str)
Str2=""
A=split(Str1,"|")
For i=0 to UBound(A)
Str2=Str2&"""&string(2-len(A(i)),"0")& A(i)&"""
Next
Cute=Str2
end function

[iexapl]

第二个可以这样
Str1="5|8|9|15|"
Response.write (Cutr(Str1))
Function Cute(Str)
Str2=""
A=split(Str1,"|")
For i=0 to UBound(A)
if i=0 then
Str2=Str2&"""&string(2-len(A(i)),"0")& A(i)&"""
else
Str2=Str2&",""&string(2-len(A(i)),"0")& A(i)&"""
end if
Next
Cute=Str2
end function

[iexapl]

上面笔误,应为
第二个可以这样
Str1="5|8|9|15|"
Response.write (Cutr(Str1))
Function Cute(Str)
Str2=""
A=split(Str,"|")
For i=0 to UBound(A)
if i=0 then
Str2=Str2&"""&string(2-len(A(i)),"0")& A(i)&"""
else
Str2=Str2&",""&string(2-len(A(i)),"0")& A(i)&"""
end if
Next
Cute=Str2
end function

[mzli]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

Str2=Str2&""""&string(2-len(A(i)),"0")& A(i)&""""

[moodboy1982]

楼上的不要忽略了，如果最后没有|，那不是惨了？







-------------个性签名---------------
http://www.esoftnow.com/bbs
技术新论坛，欢迎光临！有问必答，共同讨论。