Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在字符串中提取特定字段


  共有3607人关注过本帖树形打印复制链接

主题：如何在字符串中提取特定字段
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/2 23:30:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/3 9:25:00 [显示全部帖子]

有没有什么固定的规则？如果没有，也只能这样

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/17 13:31:00 [显示全部帖子]

回5楼，IndexOf的用法出错，比如nn.IndexOf("招标人")查不到结果就被出错，正确用法是

dim i as integer = nn.IndexOf("招标人") 
if i > -1 then
其它处理
endif
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/17 13:32:00 [显示全部帖子]

回6楼
1、加空格才是合法的日期格式
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/17 15:01:00 [显示全部帖子]

没有

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 16:07:00 [显示全部帖子]

msgbox(st.LastIndexOf(",", st.IndexOf("概算")))

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/30 9:35:00 [显示全部帖子]

Dim st As String = " 务周期:自合关,资料之日,本次招标范估算(或概算)造价577256万元,采用投标资格后审方式招标."
Dim bds() As String = {",", ".", ";", "?"}
Dim min As Integer = 999999
Dim k As Integer = st.IndexOf("概算")
For Each bd As String In bds
    Dim i As Integer = st.IndexOf(bd, k)
    If i > -1 AndAlso i < min Then
        min = i
    End If 
Next
msgbox(min)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/30 10:01:00 [显示全部帖子]

-1是没有这个标点符号，剩下的取最小值，49比999999小，当然是取49，36又比49小，当然是取36

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05005 秒, 5 次数据查询