next
end function
function NewKey(key,val) ’添加新的键值.
dim tmp,i,rr,re,pt,tt,pos
i=total
pos=inarray(key,key_arr)
if pos=-1 then ’//如果这个键值不存在.
redim Preserve key_arr(i)
redim Preserve val_arr(i)
’echo "key_arr(" & i & ")=" & key & vbcrlf
key_arr(i)=key
val_arr(i)=val
total=total+1
else
key_arr(pos)=key
val_arr(pos)=val
end if
end function
function resetKeys()’ 初始化键名数组
redim key_arr(0)
redim val_arr(0)
total=0
end function
function getTextContent(Tcontent)
dim tmp,i,rr,re,pt,tt
’ 得到把某一个文本段的{}内容替换后的块.
tmp=Tcontent
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) & "" ,"") |
