免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

查看: 3541|回复: 2
收起左侧

[二次开发] 提取“/”后面的字符串

[复制链接]

341

主题

9017

铜板

120

好友

版主

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

积分
5375

灌水勋章宣传勋章

发表于 2010-3-14 16:14 | 显示全部楼层 |阅读模式
在提取地类时,发现字段TEXT中的内容格式为:*/地类码。我需要提/后面的地类码。在小刘的帮助下,用这个函数
InStr
([start, ]string1, string2[, compare]) :返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中,从start开始找string2,省略start时从string1头开始找。找不到时,函数值为0。
VBA代码:
Dim a As Integer
Dim b As Integer
Dim res As String
a=InStr ( [text],"/" )
b=Len ( [text] )
res = Mid ( [text],a+1,b-a)

1145

主题

10万

铜板

2

好友

传奇会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
21817

灌水勋章活跃勋章冰雪节勋章

QQ
发表于 2013-11-9 18:48 | 显示全部楼层
进来学习 学习

评分

参与人数 1铜板 +1 收起 理由
admin + 1 亲,你好快哦~~~

查看全部评分

加强科技支撑和引领  实现地质找矿新突破 。     
回复 支持 反对

使用道具 举报

37

主题

2万

铜板

111

好友

钻石会员

Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26

积分
5763
发表于 2022-3-7 11:42 | 显示全部楼层
谢谢分享,学习学习
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

在线客服
快速回复 返回顶部 返回列表