有啊,用正則表達式,下面是簡單的例子

讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:域名注冊、雅安服務器托管、營銷軟件、網站建設、威寧網站維護、網站推廣。
Imports?System.Text.RegularExpressions
Public?Class?Form1
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?str?As?String?=?"ABCDAEAFAG"
Dim?Patter?As?String?=?"A"
Dim?Matches?As?MatchCollection?=?Regex.Matches(str,?Patter,?RegexOptions.IgnoreCase?Or?RegexOptions.ExplicitCapture)
For?Each?ws?In?Matches
ListBox1.Items.Add("索引位置:"??ws.index)
Next
End?Sub
End?Class
步驟如下:
窗體上添加2個列表框,一個按鈕:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并顯示子文件夾
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并顯示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
解壓密碼:1299
假設路徑為C:\abc
代碼:
Public?Class?Form1
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
Dim?Files?As?ObjectModel.ReadOnlyCollection(Of?String)?=?My.Computer.FileSystem.GetFiles("C:\abc")
Dim?FileSize?As?Long,?FileName?As?String?=?Nothing
Dim?oFileSize?As?Long
For?Each?File?As?String?In?Files
oFileSize?=?My.Computer.FileSystem.GetFileInfo(File).Length
If?oFileSize??FileSize?Then
FileSize?=?oFileSize
FileName?=?File
End?If
Next
Dim?ListN?As?ListViewItem?=?New?ListViewItem(My.Computer.FileSystem.GetName(FileName))
ListN.SubItems.Add(oFileSize??"?byte")
ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension??"?文件")
ListN.SubItems.Add(FileName)
ListView1.Items.Add(ListN)
End?Sub
End?Class
詳見源代碼!!
思路:
1,使用ListBox1控件來存放搜索到的文件名,然后ListBox1.SelectedItem就可以返回選中項的文本;
2,利用獲得的選中項文本(即文件與路徑),使用打開文本文件的方法,讀取內容顯示在文本框里。
窗體上添加一個文本框,一個列表框,一個按鈕:
代碼如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
Dim MyFilter As String = "*" TextBox1.Text "*"
ListBox1.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir, MyFilter)
ListBox1.Items.Add(MyFile)
Next
End Sub
網站欄目:vb.net文件中查找,vb查找文件的路徑
鏈接分享:http://chinadenli.net/article30/dsehepo.html
成都網站建設公司_創(chuàng)新互聯,為您提供網站排名、網站建設、網站維護、網站策劃、網站制作、建站公司
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯