永发信息网

VB提起TXT指定符号后的内容

答案:2  悬赏:0  手机版
解决时间 2021-01-02 19:40
是个文本这里的内容大概在2M但是太多无用的内容:我想用VB去掉无用的内容无用的内容前的符号是:|/">多有这个特征:我想吧|/">前的内容全去掉结束的内容
意思就是去掉前面的内容|/">结束
希望牛B的高手给我详细代码
最佳答案
Private Sub Command1_Click()
Text1.Text = DeleteStr(Text1.Text, "")
End Sub
Private Function DeleteStr(strSearch As String, strStart As String, strEnd As String) As String
Dim intStart As Long, intEnd As Long
Dim strMid As String
While 1
intStart = InStr(1, strSearch, strStart)
intEnd = InStr(1, strSearch, strEnd)
If intStart = 0 Or intEnd = 0 Then GoTo ExitH
strMid = Mid(strSearch, intStart, intEnd - intStart + 1 + Len(strStart) - 2 + Len(strEnd) - 2)
strSearch = Replace(strSearch, strMid, "")
Wend
ExitH:
DeleteStr = strSearch
End Function
全部回答
如果里面只有数字的话,直接用正则表达式 您的例如:“坐标(123,456)”中 就可以用表达式:\d{3}
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
梦幻西游神器任务在魔王居里飞出来怎么进
黄金用英语怎么说
在“氧气的制取和性质”实验课中,某同学取一
望洞庭古诗的意思!
单选题关于地壳结构的叙述,正确的是A.上层为
王者荣耀一直下载不了安装,蹦出unable retry
数码宝贝有一集就是做汉堡喂饱一个怪兽 那是
判断题如果两个乘数的末尾各有1个0,那么积的
无聊或心情不好就练书法,一练就是几个小时,
奉献近义词是什么
空气能热水器在冬天使用,最高的水温能答多少
猪脚的脚指尖壳有什么作用
较大剂量注射一种激素后,小白鼠渐渐反应迟钝
暑假去哪玩不热?
如图,是由一些大小相同的小正方体组成的几何
推荐资讯
梦幻西游从9J功修点到17要多少钱,防修从5点
5到6年的米酒还可以喝吗`密封保存的很好·酒
你好请问怎样更换QQ同步助手的手机号绑定 每
烤架手柄怎么用
无限火力怎么开
It rained heavily in the south, serious f
手机系统升级后开不了机
汽车租赁公司的汽车被运管所以骗取的名义把车
有没有可能是独立路权有轨电车
河源市免费游玩的有哪些好地方?
单选题在下列生理过程中,细胞内自由水与结合
广陵区杭集派出所办公位置在哪啊?好找么?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?