Public Sub saveAUrl(ByVal Str As String) Dim r As Regex Dim m As Match r = New Regex((?=a.*?href\s*=\s*)(?1[^]*)(?=|(?1\S+)), RegexOptions.IgnoreCase Or RegexOp...
Dim currentline As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (RichTextBox1.Line...
Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i = Len(FilePathFileNa...
Sub 获取一般性网页代码(ByVal URLstr As String) Try Dim w As New System.Net.WebClient() 要Imports System.Net w.Proxy = Nothing 设置为无代理模式,否则首次运行会慢4秒左右。 w.CachePolicy = New C...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Doc As New System.Net.WebClient Dim TempText As ...
Imports System.Net.NetworkInformation 引用顶部Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butto...
Private Shared Function SearchMidString(ByVal s As String, ByVal s1 As String, ByVal s2 As String) As String 获取搜索到的数目 Dim n1 As Integer, n2 As Integer n1 = s.In...