vb.net正则表达式Imports System.Text.RegularExpressions
Public Class Form1
Public Function MadeRegexArray(ByVal strText As String, ByVal strRegx As String, ByVal rexOpt As RegexOptions, ByVal Groups As Integer) As String()
REM 正则结果直接以字符串组形式返回
REM strHtml待搜索的字符串
REM strRegx正则表达式
REM rexOpt正则选项
On Error Resume Next
Return MadeMatchString(MadeRegexMatch(strText, strRegx, rexOpt), Groups)
End Function
Public Function MadeMatchString(ByVal mc As MatchCollection, ByVal Groups As Integer) As String()
REM 把MatchCollection以字符串组形式保存
REM mc正则匹配的集合
REM 返回字符串组
On Error Resume Next
Dim strRegCode(mc.Count) As String
For i As Integer = 0 To mc.Count - 1
strRegCode(i) = mc(i).Groups(Groups).Value
Next i
Return strRegCode
End Function
Public Function MadeRegexMatch(ByVal strText As String, ByVal strRegex As String, ByVal rexOpt As RegexOptions) As MatchCollection
REM 获取正则表达式匹配的集合
REM strHtml待正则的字符串
REM strRegex正则表达式
REM rexOpt正则选项
REM 返回 MatchCollection 类型集合
【vb.netrem的简单介绍】On Error Resume Next
Dim rex As Regex = New Regex(strRegex, rexOpt)
Return rex.Matches(strText)
End Function
Public Function MadeRegexReplace(ByVal sText As String, ByVal sRegex As String, ByVal sReplace As String) As String
REM 正则表达式文本替换
REM sText原文本
REM sRegex表达式
REM sReplace替换文本
On Error Resume Next
Dim rex As Regex = New Regex(sRegex, RegexOptions.IgnoreCase)
Return rex.Replace(sText, sReplace)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim sRegex As String = "([\s\S]*?)"
Dim aTable() As String = MadeRegexArray(TextBox1.Text, sRegex, RegexOptions.IgnoreCase, 1)
For i As Integer = 0 To aTable.Length - 1
TextBox2.Text = TextBox2.TextaTable(i)
Next i
End Sub
End Class
如图:
vb.net如何获取网页的cookie这个问题有点意思,但题主表意不明,确切的说应该分Web端和客户端两种情况 。
想来问到这个问题的不应该是开发Web端的 , 说说客户端的吧:
1、HttpWebRequest.CookieContainer
Cookies通过HttpResponse传给客户端,通过HttpRequest传回服务端,因此你可以
设置Response.Cookies集合的值修改Cookie
1
Response.Cookies("MyCookie")("Data") = myCookie
通过读取Request.Cookies集合的值得到Cookies的值
1
myCookie =Request.Cookies("MyCookie")("Data")""
2、本人自编的一个函数 , 放到一个模块里直接调用即可:
Dim myCookie As String
Public Function LoginAnGetCookie(ByRef sUser As String, ByRef sPass As String) As String()
On Error Resume Next
REM 登录网站并获得cookie
Dim url As String = "网站地址"
Dim postData As String = "sUser="sUser"sPass="sPass '假设传值的是这样的 , 实际中可用Fiddler抓取 。
Dim wc As System.Net.WebClient = New System.Net.WebClient
Rem wc.Headers.Add("Cookie", myCookie)'可讲第一次获得的Cookie赋值给myCookie , 然后在此处传值给网站即可
wc.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
wc.Headers.Add("UserAgent", "Mozilla/5.0(iPad; U; CPU iPhone OS 3_2 like Mac OS X; en-us) AppleWebKit/531.21.10 (KHTML, like Gecko) Version/4.0.4 Mobile/7B314 Safari/531.21.10)")
Dim sHtml As String = wc.UploadString(url, "POST", postData)
Dim arrAllKeys() As String = wc.ResponseHeaders.AllKeys
Dim sCookies As String = "Set-Cookie"
For i As Integer = 0 To arrAllKeys.Length - 1
If arrAllKeys(i).Equals("Set-Cookie") Then sCookies = wc.ResponseHeaders.Get(i)
Next i
Return New String() {sHtml, sCookies} '返回二维数组,其中LoginAnGetCookie(0)是网页源代码,LoginAnGetCookie(1)是登录后的Cookie
End Function
在VB代码中REM表示什么意思代码注释用的vb.netrem,增加程序的可读性vb.netrem,在实际程序编译中不起作用,功能与单引号(')的功能一样rem 这是代码注释'这是代码注释
vb里的 rem是定义的什么啊VB中Rem语句是用来给程序注释 。
Rem语句 , 用来在程序中包含注释 。
语法
Rem
comment
也可以使用如下语法:
'
comment
comment
参数是可选的,指要包括的任何注释文本 。在
Rem
关键字与
comment
之间要加一个空格 。
Rem
语句示例
该示例说明用来在程序中包含注释的
Rem
语句的各种格式 。
Dim MyStr1, MyStr2
MyStr1 = "Hello":Rem 注释在语句之后要用冒号隔开 。
MyStr2 = "Goodbye"'这也是一条注释;无需使用冒号 。
vb中rem注释的格式REM
后面可以加任何内容vb.netrem,该行都是程序vb.netrem的注释
比如
REM
12345
REM
计算器
Calculator
REM
Hello
World!
随便怎么写
可以认为rem相当于'
但是只能用于句首vb.netrem,不可以用在某一语句之后 , 必须另起一行
VB rem关键字是什么作用?Rem关键字引出vb.netrem的是注释语句 。
VB中的注释语句的功能是给语句或程序段加上注释vb.netrem,以提高程序的可读性 。
其格式为vb.netrem:' | Rem 注释内容
注意vb.netrem:Rem关键字与后面的注释内容之间至少有一个空格 。也可以以单引号引出注释语句
例:
Private Sub Form_Activate()
Rem 本程序用于计算圆的面积
Dim R As Single, Area As Single' R为半径
R=Val(InputBox("请输入半径", , "1") )
Area = 3.14 * R^ 2 : Rem 输入半径
' 以下将半径和面积输出到窗体上
PrintR , AREA
End Sub
注意:如果一行有多条语句vb.netrem,那么注释语句只能是放到最后一个 。
vb.netrem的介绍就聊到这里吧,感谢你花时间阅读本站内容 , 更多关于、vb.netrem的信息别忘了在本站进行查找喔 。
推荐阅读
- java代码框架结构,java框架设计技巧
- 中国象棋游戏开发设计方案,中国象棋游戏开发设计方案有哪些
- 黄油直播卖货,黄油直播卖货违法吗
- mysql字段怎么看长度 mysql怎么查询字段值的长度
- 怎么取消手机上的电话通知,怎么取消手机按键音
- 财务益智游戏,财务游戏app
- 主板能接什么cpu,主板能接什么显卡
- PHP数据库连接端 php连接数据库的语句
- 怎么检查u盘的读写速度,u盘读写速度多少算快