以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查找替换蹭某一段文字如何替换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105931)
--  作者：zhuya820
--  发布时间：2017/8/29 13:55:00
--  查找替换蹭某一段文字如何替换
查找替换蹭某一段文字如何替换


如
dim str = "A1保质期:无其它存储要求的执行,如/果需要可以返回值不包括则执行"
str.TrimStart（保质期:*/）’此处是N个字符不规律，开头和结尾是有规律的
str = "A1果需要可以返回值不包括则执行" \'此为特征替换值
--  作者：有点甜
--  发布时间：2017/8/29 14:42:00
--  
Dim str = "A1保质期:无其它存储要求的执行,如/果需要可以返回值不包括则执行"
Dim reg As new System.Text.RegularExpressions.Regex("保质期.+(?=/果需要可以返回值不包括则执行)")
Dim mc As object = reg.Matches(str)
If mc.count > 0 Then
    str = mc(0).value
    msgbox(str.trim)
End If
--  作者：zhuya820
--  发布时间：2017/8/29 17:13:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170829171212.png
图片点击可在新窗口打开查看

怎么做到最少匹配
只要第一个/
不要最大匹配


[此贴子已经被作者于2017/8/29 17:13:49编辑过]
--  作者：有点甜
--  发布时间：2017/8/29 17:16:00
--  
Dim str = "A1保质期:无其它存储要求的执行,如/果需要可以返回值/不包括/则执行"
Dim reg As new System.Text.RegularExpressions.Regex("保质期.+?(?=/)")
Dim mc As object = reg.Matches(str)
If mc.count > 0 Then
    str = mc(0).value
    msgbox(str.trim)
End If
--  作者：zhuya820
--  发布时间：2017/8/30 7:01:00
--  
可以多一点本系统正则表达式的相关字符说明吗
让广大狐友一起学习学习
--  作者：有点甜
--  发布时间：2017/8/30 9:17:00
--  
以下是引用zhuya820在2017/8/30 7:01:00的发言：
可以多一点本系统正则表达式的相关字符说明吗
让广大狐友一起学习学习

 

https://baike.baidu.com/item/%E6%AD%A3%E5%88%99%E8%A1%A8%E8%BE%BE%E5%BC%8F/1700215?fr=aladdin