如何判断程序中有2段后,在段与段之间加个分界标志

[china165]

比如,每一段是这样的
<P>1</P>
<P>2</P>
<P>3</P>
<P>4</P>

我要每隔二段加一个<br>怎么搞啊?

怎么判断出这个文章里有几段?然后增加一个<br>

[lightenvoy]

instr()
然后判断位置,取左右字符串,并上"<br>"

[goodstuday]

str="<P>1</P><P>2</P><P>3</P><P>4</P>"
patrn="<\/P>"
i=0
do while RegExp_Test(patrn,str)=true
str=RegExp_Replace(patrn,str,"</P><br>")
i=i+1
loop
Function RegExp_Test(patrn, strng)
Dim regEx
Dim matches
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = true' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
matches = regEx.test(strng)
RegExp_Test = matches
End Function
Function RegExp_Replace(patrn,str,replStr)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = true ' 设置是否区分大小写。
RegExp_Replace = regEx.Replace(str,replStr) ' 作替换。
End Function

[goodstuday]

最后输出就是了
Response.Write Str&"<br>"&i

[china165]

i=0
do while RegExp_Test(patrn,str)=true
str=RegExp_Replace(patrn,str,"</P><br>")
i=i+1
loop

我要在2与3之间加个＜br＞呀

[china165]

也就是每过二个加一个ＢＲ

[goodstuday]

do while RegExp_Test(patrn,str)=true
if i<>0 and i mod 2=0 then
str=RegExp_Replace(patrn,str,"</P><br>")
end if
i=i+1
loop