asp 字符取值

来源:百度知道 编辑:UC知道 时间:2024/05/15 03:31:59
怎么样才能把

'''''''''''''''''''''''''''''''''''''''''
<STRONG>型号:ф420 47×1500<BR>容量:6升/管</STRONG> <BR><FONT face=Verdana>规 格:16、18、20、24、30、36<BR>水箱外壳:珍珠白缀金星彩钢板(直径420mm)<BR>水箱内胆:SuS304-2B食品级不锈钢(直径310mm)<BR>保 温 层:聚胺脂、机械高压恒温发泡(厚度为50mm)<BR>支 架:镀锌钢板,高防腐喷塑(壁厚为1.5mm)</FONT>

''''''''''''''''''''''''''''''''''''''

中,从这段中删除第五个<br>后的值即只保留前五行。

说明:这里只是打个比方,这段是数据库中内容。
每行只能有十五个字符,不能超过六行,如果有一行超过十五个字符就不能超过五行,以此类推,当然要去掉 html代码后的。

如果不行就告诉我一个可以从某个字符开始取到某个字符之间字符的函数或方法。
比如:函数(如果真的有一天,的,一)
结果为:的有一

还有如果有字符重复了怎么解决

可以加分。只是怕没有人会回答。先放这些。

真晕了,不知道你是想要"从这段中删除第五个<br>后的值即只保留前五行",还是想要 "每行只能有十五个字符,不能超过六行,如果有一行超过十五个字符就不能超过五行,以此类推,当然要去掉 html代码后的"的结果!!!!!!!!!

我依照第二种讲吧
有个函数是left()
首先把字符串的html代码清除
:
function clearHTMLCode(Code)
Dim objRegExp
set objRegExp = new RegExp
objRegExp.IgnoreCase = True
objRegExp.Global=True
objRegExp.Pattern="<[^<>]+>"
If objRegExp.test(Code) Then
Code = objRegExp.Replace(Code,"")
End If
set objRegExp = nothing
Code = Replace(Code, " ", "")
clearHTMLCode= Code
end function

newStr=clearHTMLCode(oldStr)

newStr是清除后的。然后每行取15个字,取5行
newStr2=""
for i=0 to 5
newStr2=left(newStr,i*15+1,15)&newStr2
next
好了,现在newStr2就是你想要的字符串了