Public?Function?BinSearch(ByRef?strElement()?As?String,?ByVal?strKey?As?String)?As?Long?

東光網(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)站制作要多少錢,請(qǐng)找那個(gè)售后服務(wù)好的東光做網(wǎng)站的公司定做!
Dim?lngLow?As?Long
Dim?lngHigh?As?Long
Dim?lngMiddle?As?Long
lngLow?=?0
lngHigh?=?UBound(strElement)
While?(lngLow?=?lngHigh)
lngMiddle?=?(lngLow?+?lngHigh)?/?2
If?strElement(lngMiddle)?=?strKey?Then
BinSearch?=?lngMiddle
Exit?Function
Else
If?strElement(lngMiddle)??strKey?Then
lngHigh?=?lngMiddle?-?1
Else
lngLow?=?lngMiddle?+?1
End?If
End?If
End?While
BinSearch?=?-1??'查找失敗
End?Function
1、實(shí)現(xiàn)上傳按鈕方法代碼。
2、判斷圖片對(duì)象是否為空代碼。
3、取得數(shù)據(jù)庫(kù)字段 dt.Rows(0)("Pic")方法代碼。
4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。
5、處理SQL中操作Image類型方法代碼。
6、實(shí)現(xiàn)的上傳結(jié)果。
思路:
1,使用ListBox1控件來(lái)存放搜索到的文件名,然后ListBox1.SelectedItem就可以返回選中項(xiàng)的文本;
2,利用獲得的選中項(xiàng)文本(即文件與路徑),使用打開(kāi)文本文件的方法,讀取內(nèi)容顯示在文本框里。
1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程,只有一個(gè)Form,F(xiàn)orm上有兩個(gè)按鈕:Command1和Command2。
2、雙擊Command1添加如下代碼
Private Sub Command1_Click()
Dim strFile? ? ?As String
Dim intFile? ? ?As Integer
Dim strData? ? ?As String
strFile = "c:\學(xué)生成績(jī).txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8開(kāi)始單步調(diào)試代碼,點(diǎn)擊Command1,進(jìn)入單步調(diào)試功能,
4、多次按下F8或直接按下F5運(yùn)行完成,就完成了讀取文本文件內(nèi)容并輸出到立即窗口。
1,逐個(gè)搜索文件夾里的所有TXT文件。
2,每搜索到一個(gè)TXT文件就進(jìn)行對(duì)應(yīng)操作。
網(wǎng)頁(yè)題目:vb.net檢索txt的簡(jiǎn)單介紹
本文來(lái)源:http://chinadenli.net/article15/dsidjdi.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供響應(yīng)式網(wǎng)站、網(wǎng)站導(dǎo)航、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站制作、做網(wǎng)站、云服務(wù)器
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)