小学课文 稻草人:vb字符串函数更换模版中的符号

来源:百度文库 编辑:高考问答 时间:2024/05/01 16:10:13
我现在正在做生成静态页面的工作,页面模版中有这样的符号
$CompanyProductList(xx,yy)$
其中x,y表示高度和宽度,是在设计模版时填写的,怎样把这样个符号取出来

设模版字符窜存放在total变量中
dim id, id1, id2, id3
id=instr(total,"$CompanyProductList")
id0=instr(total,"$",id)
str=mid(total,id,id0-id+1)
id1=instr(str,"(")
id2=instr(str,",")
id3=instr(str,")")
xx=val(mid(str,id1+1,id2-id1-1),id)
yy=val(mid(str,id2+1,id3-id2-1),id)
----------------------------------
没有测试过!不过以前编写过类似的,关键就是找到界定符号的位置。
不知能否回答问题