VB中用正则表达式判断一个字符串是不是一个URL地址
来源:互联网 发布:淘宝直播账号怎么申请 编辑:程序博客网 时间:2024/06/07 06:29
VB6引用:Microsoft VBScript Regular Expressions 5.5
Public Function IsUrl(ByVal strTmp As String) As Boolean
On Error GoTo Z
Dim objIntPattern
IsUrl = False
Set objIntPattern = New RegExp
objIntPattern.Pattern = "^(http://|https://){0,1}[A-Za-z0-9][A-Za-z0-9/-/.]+[A-Za-z0-9]/.[A-Za-z]{2,}[/43-/176]*$"
objIntPattern.Global = True
IsUrl = objIntPattern.Test(strTmp)
Set objIntPattern = Nothing
Z:
End Function
Private Sub Command1_Click()
MsgBox IsUrl( "http://www.sohu.com")
End Sub
VB.Net:
Public Shared Function IsUrl(ByVal strTmp As String) As Boolean
On Error GoTo Z
Dim objIntPattern As New System.Text.RegularExpressions.Regex( "^(http://|https://){0,1}[A-Za-z0-9][A-Za-z0-9/-/.]+[A-Za-z0-9]/.[A-Za-z]{2,}[/43-/176]*$")
Return objIntPattern.IsMatch(strTmp)
Z:
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox (IsUrl( "http://www.sohu.com"))
End Sub
呵呵,确实是非常的方便实用!!
- VB中用正则表达式判断一个字符串是不是一个URL地址
- 判断输入的字符串是不是一个有效的IP地址
- 判断某个字符串是不是一个合法的IP地址
- 【求解】【正则表达式】判断输入的一个字符串是否是一种常用的URL规范字符串
- [C]判断一个字符串是不是合格的表达式
- 判断一个字符串是不是乱码
- 判断一个字符串是不是回文
- 判断一个字符串是不是回文?
- 判断一个字符串是不是回文
- 一个URL正则表达式
- 正则表达式判断字符串是不是数字
- 判断一个字符串是不是纯数字字符串
- 判断字符串是不是一个字符串的翻转
- 判断一个字符串是不是回文字符串
- C++ 判断一个 字符串是不是 json 字符串
- 判断一个字符串是不是对称(是不是回文字符串)
- 判断一个字符串是不是数字组成
- 判断一个字符串是不是回文数
- FreeBSD下查看文件夹大小的方法
- 关于spring事务的一组文章
- VS2005中类似删除确认总结
- 修改uxtheme.exe ,打造自己的主题
- Jmouse.JFiles 类
- VB中用正则表达式判断一个字符串是不是一个URL地址
- 英雄会,会英雄,CSDN大会有感
- 也许是商机
- Gridview中生成的属性rules="all",在Firefox出现内线框解决办法
- asp 内容按行数或字数分页
- 【原创】StrutsLogin静态验证....
- WJ的Direct3D简明教程1:Save Screen To the Image
- vb.net 通过类厂创建com对象的方法
- 青蛙与高塔-英雄大会后首感