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


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

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


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/10/20 15:51:00 [只看该作者]

“概算”这个二个字符的位置是可以确定的，如何来确定这二个字符前面相近一个标点符号的位置？？

Dim st As String = " 务周期:自合关,资料之日,本次招标范估算(或概算)造价577256万元,采用投标资格后审方式招标."
msgbox(st.IndexOf("概算"))
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107887 积分：548804 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 16:07:00 [只看该作者]

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

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


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/10/30 9:14:00 [只看该作者]

老师好，我要得到“概算”二字后面的最近一个标点符号（如红色的），但不确定是哪个标点？下面代码给出很多值，如何调整？谢谢

Dim st As String = " 务周期:自合关,资料之日,本次招标范估算(或概算)造价577256万元,采用投标资格后审方式招标."
Dim bds() As String = {",",".",";","?"}
For Each bd As String In bds
    msgbox(st.IndexOf(bd, st.IndexOf("概算")))
Next
[此贴子已经被作者于2023/10/30 9:14:56编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107887 积分：548804 威望：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)
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/10/30 9:51:00 [只看该作者]

i的值为-1，-1，36，49，不理解为什么要加  “AndAlso i < min ”这个条件，而且min = 999999又远大于49啊？不明白请指点
[此贴子已经被作者于2023/10/30 9:57:07编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107887 积分：548804 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/30 10:01:00 [只看该作者]

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

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