获取特定的字符串

为了建立一个通用的投票调查系统，往往不能确定有多少选项，普通的作法就是建立多个字段，比如10个字段，但要是多余10个选项就不行了。所以基于这种考虑，我设计了只需一个字段（当然长度够长或是备注型）就可以实现。

aaadfgfga||bfgbbb||ccdfgsgcc||dsfdfdsf||…||

为了实现读取"||"之间的内容，我编写了如下代码

sstr：表示分隔字符串，lstr：表示要搜索的字符串，i：表示要取第几段字符串

function getstr(sstr,lstr,i)

dim ks,js,cd,wz,jks:表示开始，js：计数，cd：长度，wz：位置，j：循环变量

cd=len(lstr)

ks=1

for j=1 to i

wz=instr(ks,lstr,sstr)

if wz=0 then

strlen=""

else

strlen=mid(lstr,ks,wz-ks)

ks=wz+2

end if

next

end function

这是我编写的函数，彼此共享。