Private?Sub?Form_Load()
北海網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián),北海網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為北海上千多家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢,請找那個(gè)售后服務(wù)好的北海做網(wǎng)站的公司定做!
s?=?"123456"
n?=?3?'從第三個(gè)字符
j?=?2?'向左截取2個(gè)
For?i?=?n?To?1?Step?-1
l?=?l?+?1
ss?=??ss??Mid(s,?i,?1)?
ss1?=?Mid(s,?i,?1)??ss1?
If?l?=?j?Then?Exit?For
Next
MsgBox?ss
msgbox?ss1
End?Sub
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é)果中間的部分截取就是鏈接啦
使用mid函數(shù) 參數(shù)1是文本內(nèi)容 參數(shù)2是起始位置 參數(shù)3是截取的數(shù)量
Private?Sub?Command1_Click()
MsgBox?Mid(Text1.Text,?Val(Text2.Text),?Val(Text3.Text)?-?Val(Text2.Text)?+?1)
End?Sub
你自己的代碼問題是 參數(shù)3 題目說到第幾個(gè)字符 你應(yīng)該是用這個(gè)數(shù)減去起始位置+1 才是數(shù)量
因?yàn)椴灰欢◤牡谝粋€(gè)開始
{“Xm”:“李明”,“Dh”:“123456”,“Nl”:“30”}這是個(gè)JSON串,在序列化后,可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer類來完成任務(wù)。也可以利用第三方工具比如:Newtonsoft.Json.dll等,來完成任務(wù)。
如何使用System.Web.Script.Serialization.JavaScriptSerializer類或第三方工具,網(wǎng)上有大量代碼,或參閱微軟在線幫助。這里就不貼了。
使用InStr函數(shù)和InStrRev得到“”的位置,如果有多個(gè)“”,計(jì)算出相鄰兩個(gè)的位置,再使用Mid函數(shù)截取。
PS:多個(gè)“”的話,InStr函數(shù)和InStrRev這兩個(gè)函數(shù)都要使用。
System.IO.Path.GetExtension("c:\windows\test.txt")'獲取擴(kuò)展名
System.IO.Path.GetFileName("c:\windows\test.txt")'獲取文件名
System.IO.Path.GetDirectoryName("c:\windows\test.txt")'獲取文件夾