求助 如何 在textbox 删除都某些特定字符。。
第一:
希望点击按钮后 在复制在textbox的文字 能实现 下面功能
因为我要处理的文字里有大量的 <jfksdjfk> <dfgsd23423fsdf> <dsgfsfds123f> 这样的字符, 这些字符长达 和 <>中的字母不确定
我要删除这些字符 能不能写段代码 实现这个功能
第二:
还有就是 当文章中 出现了 “提问人的追问” 字符时 则把 “提问人的追问”后门的全部字符删除 包括“提问人的追问”字符。。
第一:
希望点击按钮后 在复制在textbox的文字 能实现 下面功能
因为我要处理的文字里有大量的 <jfksdjfk> <dfgsd23423fsdf> <dsgfsfds123f> 这样的字符, 这些字符长达 和 <>中的字母不确定
我要删除这些字符 能不能写段代码 实现这个功能
第二:
还有就是 当文章中 出现了 “提问人的追问” 字符时 则把 “提问人的追问”后门的全部字符删除 包括“提问人的追问”字符。。
解决方案 »
- 正则问题
- 关于IP HEADER RECREAT 请教
- 我最后一次在这里问东西了.问的东西从来不回答的.
- XP下VB6打包,安装到另一XP机器,运行程序,当ADO连接到SQL时,提示运行时错误:Automation ,请帮忙!!!
- 关于窗体左上解的系统菜单?
- 高手能不能告诉我如何给属性值赋数组
- 关于GIF文件的格式
- 请帮忙看看这段代码错在哪里?老提示无法找到数据源
- 我把一个程序打了包(用Access建的库,名字是a.mdb),并安装在“d:\a",但是运行时,提示找不到a.mdb.必须手工加入吗?手工加入的话,有可能被别人修改!怎么办?
- 各位大虾,如何将VB6的程序转换成能在VB4中运行的程序。急!急!急!
- VB如何产生7个字节的有序随机数?
- 数据表的字段名赋值问题??
但需要你给出具体格式,就<>中间的。可以
Regex.Replace(yourStr,"<[^<>]*>","")
但是这样不很严谨,可能有些需要的也删掉了。你给出格式才好写正则。否则不知道那个再次回复如何格式。
详细到代码给你
1.先在菜单中,工程->引用->选中Microsoft VBScript Regular Expressions 5.5
2.然后用如下代码就可以测试看到效果了。
如果给你例子还看不懂我就爱莫能助了。你尽力吧。'正则替换
Public Function RegexReplace(ByVal pattern As String, ByVal test As String, ByVal dest As String) As String
'定义正则
Dim myRegExp As RegExp
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
'正则表达式
myRegExp.pattern = pattern
'替换
RegexReplace = myRegExp.Replace(test, dest)
End Function
'调用测试看结果
Private Sub Command5_Click()
Dim result As String
result = RegexReplace("<[^<>]*>", "测试<字符串>结束", "")
MsgBox result
End Sub