next
set re=nothing
set tt=nothing
’’
’’
getTextContent=tmp
end function
function getText()
dim tmp,i,rr,re,pt,tt
’ 得到把某一个文本段的{}内容替换后的块.
tmp=content
for i=0 to total -1
tmp=replace(tmp & "",starttag & key_arr(i) & endtag & "", val_arr(i) & "" ) ’ 替换各个键值.
next
’ 替换{***}类似的东西。
’ 目前暂时先放一放把。
’’
’’
set re=new RegExp ’ 这里是模式匹配的应用 有正规表达式应用高手的指导一下!
re.Global=True
re.Ignorecase=True
pt="{([a-zA-Z0-9_]{0,100})}"
re.Pattern=pt
set tt=re.Execute(tmp)
for i= 0 to tt.count -1
tmp=replace(tmp & "", tt.item(i) & "","")
next
set re=nothing
set tt=nothing
’’
’’
getText=tmp
content=tmp
end function
function getBlockContent(block)’ 得到模板内容中某一个块的内容
dim i,pos1,pos2,firststr,secondstr,tempstr
firstStr=""
secondStr=""
pos1=instr(content,firststr)
pos2=instr(content,secondstr)
if (pos2-pos1)<=0 then
else
tempstr=mid(content,pos1,pos2-pos1)
tempstr=replace(tempstr,firststr,"")
tempstr=replace(tempstr,secondstr,"")
’response.write replace(tmpstr,"<--","") |
