- 您的位置： VB编程 日志内容
在vb中使用正则表达式
作者:admin 日期:2007-06-02
本函数用于去除网页HTML代码中的超链接
1. 启动 Microsoft Visual Basic 6.0。
2. 在“文件”菜单上，单击“新建项目”。
3. 在“新建项目”对话框中，单击“Standard Exe”，然后单击“确定”。
默认情况下将创建 Form1。
4. 在“项目”菜单上单击“引用”。
5. 双击“Microsoft VBScript Regular Expressions 5.5”，然后单击“确定”。
'输入：HTML代码
'输出：去除超链接的HTML代码
Private Function LoseATag(ContentStr)
Dim ClsTempLoseStr
ClsTempLoseStr = CStr(ContentStr)
Dim regex As RegExp
Set regex = New RegExp
regex.Pattern = "<(/){0,1}a[^<>]*>"
regex.IgnoreCase = True
regex.Global = True
ClsTempLoseStr = regex.Replace(ClsTempLoseStr, "")
LoseATag = ClsTempLoseStr
Set regex = Nothing
End Function
'输出：去除超链接的HTML代码
Private Function LoseATag(ContentStr)
Dim ClsTempLoseStr
ClsTempLoseStr = CStr(ContentStr)
Dim regex As RegExp
Set regex = New RegExp
regex.Pattern = "<(/){0,1}a[^<>]*>"
regex.IgnoreCase = True
regex.Global = True
ClsTempLoseStr = regex.Replace(ClsTempLoseStr, "")
LoseATag = ClsTempLoseStr
Set regex = Nothing
End Function
文章来自: 
引用通告地址: 太多垃圾评论了，暂时关闭引用通告
Tags: 
收藏到:
分类:VB编程 |
没有论评
| 引用: 0
|
发表评论
