最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
获取特定的字符串
时间：2022-06-30 11:21:52 编辑：袖梨 来源：一聚教程网
为了建立一个通用的投票调查系统，往往不能确定有多少选项，普通的作法就是建立多个字段，比如10个字段，但要是多余10个选项就不行了。所以基于这种考虑，我设计了只需一个字段（当然长度够长或是备注型）就可以实现。
aaadfgfga||bfgbbb||ccdfgsgcc||dsfdfdsf||...||
为了实现读取"||"之间的内容，我编写了如下代码
'SStr：表示分隔字符串，LStr：表示要搜索的字符串，i：表示要取第几段字符串
Function GetStr(SStr,LStr,i)
dim ks,js,cd,wz,j'ks:表示开始，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
这是我编写的函数，彼此共享。
aaadfgfga||bfgbbb||ccdfgsgcc||dsfdfdsf||...||
为了实现读取"||"之间的内容，我编写了如下代码
'SStr：表示分隔字符串，LStr：表示要搜索的字符串，i：表示要取第几段字符串
Function GetStr(SStr,LStr,i)
dim ks,js,cd,wz,j'ks:表示开始，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
这是我编写的函数，彼此共享。
相关文章
- 以下哪种非遗技艺是用针在纸上绣画 蚂蚁新村11月21日答案 11-22
- 江南百景图听风塔怎么样 11-22
- 原神恰斯卡圣遗物怎么搭配 11-22
- 2024年霸王茶姬11月22日口令是什么 2024.11.22霸王茶姬口令介绍 11-22
- 光遇11.21季节蜡烛在哪里 光遇11月21日季节蜡烛位置攻略 11-22
- 光遇11.21大蜡烛在哪里 光遇11月21日大蜡烛位置攻略 11-22