`阿果石油APP正式发布`	`石油推广咨询`	`石油地质QQ群：181983917`	`物探地震反演群：165218480`
`阿果石油官方微信公众号：agoil2005`	`石油宝典（微信小程序）`

[程序设计]vb 字符串截取函数拓展 [复制链接]

上一主题下一主题查看指定楼层

在线阿果

只看楼主倒序阅读使用道具 0楼发表于: 2010-05-22 | 石油求职招聘就上: 阿果石油英才网

自写，备份一下，方便以后使用。

Public Function CutString(ByVal str As String, ByVal str1 As String, ByVal str2 As String, ByVal str1_ok As Boolean, ByVal str2_ok As Boolean) As String
'参数说明
'str1——母串，str1——开始截取的子串，str2——结束截取的子串，str1_ok——是否保留str1，str2_ok——是否保留str2
Dim m As Integer
Dim n As Integer
On Error Resume Next
m = InStr(1, str, str1, vbTextCompare)
n = InStr(1, str, str2, vbTextCompare)
If str1_ok = True Then '保留开始截取的子串[
If str2_ok = False Then
CutString = Mid(str, m, n - m) '不保留结束子串[)
Else
CutString = Mid(str, m, n - m + Len(str2)) '保留结束子串[]
End If
Else '不保留开始子串（
If str2_ok = False Then
CutString = Mid(str, m + Len(str1), n - m - Len(str1)) '不保留结束子串（）
Else
CutString = Mid(str, m + Len(str1), n - m - Len(str1) + Len(str2)) '保留结束子串（]
End If
End If
End Function

评价一下你浏览此帖子的感受

精彩

石油行业最新求职招聘信息，上阿果石油英才网：http://www.cnpcjob.com/
石油行业最新产品供应求购信息，上阿果石油供需网：http://b2b.agoil.cn/
石油文献资料预览下载，上石油文库：http://www.oilwenku.com/

网站事务联系QQ：1392013

个人微博：http://weibo.com/028chenguo


	https://bbs.agoil.cn 访问内容超出本站范围，不能确定是否安全


	关闭您还没有登录，快捷通道只有在登录后才能使用。立即登录还没有帐号？赶紧注册一个