我是用C#.net寫出來的
常德ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景,ssl證書未來市場廣闊!成為成都創(chuàng)新互聯(lián)的ssl證書銷售渠道,可以享受市場價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:18982081108(備注:SSL證書合作)期待與您的合作!
SqlConnection myConn = new SqlConnection(sqlconnstring);
myConn.Open();
SqlDataAdapter thisAdapter = new SqlDataAdapter("SELECT * from 表名", myConn);
thisAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey;
DataTable thisDataTable = new DataTable();
thisAdapter.Fill(thisDataTable);
DataTableReader thisReader = new DataTableReader(thisDataTable);
DataTable schemaTable = thisReader.GetSchemaTable();
foreach (DataRow dr in schemaTable.Rows)
{
MessageBox.Show(dr["ColumnName"].ToString());獲取字段名稱(f1 f2 f3)
MessageBox.Show(dr["ColumnSize"].ToString());獲取字段長度(2 2 2)
MessageBox.Show(dr["DataType"].ToString());獲取字段類(str str int)
}
VB.net里有Split函數(shù)嗎?
我的思路是,先尋找http://字符,然后向后尋找第一個(gè)在鏈接中肯定不會(huì)出現(xiàn)的字符,比如 ' " ; , 等等,截取中間這段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",發(fā)現(xiàn)在第19個(gè)字符處(一定要注意,VB.net第一個(gè)字符的索引值下標(biāo)為0,所以h是第20個(gè)字母,搜索所得到的結(jié)果就是19)
然后從19向后搜索異常字符( " ' ; , )之類,得到第二個(gè)搜索結(jié)果,將這兩個(gè)結(jié)果中間的部分截取就是鏈接啦
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public db As String
Private sSQL As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
db = "C:\Documents and Settings\ws01\デスクトップ\新しいフォルダ\WindowsApplication1\db1.mdb"
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" db
conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
conn.Open(db)
Rs = conn.OpenSchema()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = Mid(TextBox1.Text, 11, 2) ’第十一位開始算起的2個(gè)字符
End Sub
用正則表達(dá)式啊
如果是在webbrowser中,那更簡單了,直接有函數(shù)的可以提取的
但是,你那個(gè)TD沒有ID,沒有Name,所以可以用以下方法:
Dim straaa = WebBrowser1.Document.GetElementsByTagName("td")
straaa(num).InnerText 'num是所有td的序號(hào)
Dim?str?As?String?=?My.Computer.FileSystem.ReadAllText("D:\Demo.txt")
Dim?str_search?As?String?=?"profile="?'定義要搜索的字符串
TextBox1.Text?=?str.Substring(InStr(str,?str_search)?+?str_search.Length?-?1)