欢迎大家来到IT世界,在知识的湖畔探索吧!
一、问题描述：
工作中有些时候需要在一个长串的字符串中提取某段指定的字符串，而且位置不是固定，要是手动去提取非常麻烦。
二、解决方法：
这个时候使用instr+mid函数可以完成这个工作，例如有一个字符串: xxxxA12345C78Bxxxx
现在需要把12345C678 提取出来，则用：
Dim strText As String
Dim intA As Integer
Dim intB As Integer
strText = Me.Text0
intA = InStr(strText, “A”) + 1 ‘因为需要的是A后面的字符所以要+1
intB = InStr(strText, “B”)
‘intB – intA = 字符”B” 和字符”A” 之间的字符串的长度
Me.Text3 = Mid(strText, intA, (intB – intA))
三、演 示：
欢迎大家来到IT世界,在知识的湖畔探索吧!
四、示例下载：
http://www.accessoft.com/article-show.asp?id=18630 里下载示例。
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://itzsg.com/117296.html
