中国IT动力,最新最全的IT技术教程
最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像
首 页 | 程序开发 | 操作系统 | 软件应用 | 图形图象 | 网络应用 | 精文荟萃 | 教育认证 | 硬件维护 | 未整理篇 | 站长教程
ASP JS PHP工程 ASP.NET 网站建设 UML J2EESUN .NET VC VB VFP 网络维护 数据库 DB2 SQL2000 Oracle Mysql
服务器 Win2000 Office C DreamWeaver FireWorks Flash PhotoShop 上网宝典 CorelDraw 协议大全 网络安全 微软认证
硬件维护  CPU  主板  硬盘  内存  显卡  显示器  键盘鼠标  声卡音箱  打印机  机箱电源  BIOS  网卡  C#  Java  Delphi  vs.net2005
  当前位置:> 程序开发 > Web开发 > Asp > 综合文章
获取特定的字符串
作者:未知 时间:2003-04-14 12:12 出处:Blog 责编:chinaitpower
              摘要:暂无

    为了建立一个通用的投票调查系统,往往不能确定有多少选项,普通的作法就是建立多个字段,比如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
这是我编写的函数,彼此共享。

关闭本页
 
首页 | 投资与合作 | 服务条款 | 隐私政策 | 收藏本站 | 设为首页 | 新用户注册 | 免责声明 | 使用帮助
Copyright ©2005-2008 chinaitpower.com All rights reserved. www.chinaitpower.com 版权所有