思路:
在昌江等地區(qū),都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局,加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力,以專注、極致的服務(wù)理念,為客戶提供網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì) 網(wǎng)站設(shè)計(jì)制作按需定制,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站制作,營(yíng)銷型網(wǎng)站,成都外貿(mào)網(wǎng)站建設(shè),昌江網(wǎng)站建設(shè)費(fèi)用合理。
1,使用ListBox1控件來存放搜索到的文件名,然后ListBox1.SelectedItem就可以返回選中項(xiàng)的文本;
2,利用獲得的選中項(xiàng)文本(即文件與路徑),使用打開文本文件的方法,讀取內(nèi)容顯示在文本框里。
一,出錯(cuò)后繼續(xù)運(yùn)行程序,可以使用On Error Resume Next.
二,要能點(diǎn)了又可以使用,就要看代碼了,應(yīng)該是你的代碼問題
你在代碼后面都fileclose(1)了,前面又沒有open當(dāng)然會(huì)報(bào)錯(cuò),你把open放到do while前面,就OK了呀。
dim str1 ,str2 as string
dim n as integer
str2=inputbox("請(qǐng)輸入要查找的字符:")
for n=1 to len(textbox1.text)
str1=mid(textbox1.text,n,1)
if str2=str1 then
msgbox("找到啦!")
exit for
end if
next
if n=len(textbox1.text)+1 then
msgbox("沒有你要找的字符!")
end if
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é)果中間的部分截取就是鏈接啦
string.LastIndexOf(搜索的字符串, 位置)
位置 = 已經(jīng)選中的字符串在整個(gè)文本中的Index序號(hào)