建站
咨詢
售后
建站咨詢
新聞中心
VB.net里的查找和替換怎么寫
TextBox 有 SelectionStart 和 SelectionLength 兩個屬性，分別代表選中字符（也就是查找之后高亮的那部分）的起始位置和長度。
創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務領域包括：網站制作、做網站、企業(yè)官網、英文網站、手機端網站、網站推廣等服務，滿足客戶于互聯(lián)網時代的葉集網站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網解決方案。努力成為您成熟可靠的網絡建設合作伙伴！
string 類型本身有方法 IndexOf()，可以獲取某個字符串第一次出現(xiàn)的位置，把這個值賦值給 SelectionStart，把這個字符串的 Length 賦值給 SelectionLength，這就是查找并高亮功能了。
替換的話就是 Replace() 方法。
vb的查找并替換功能怎么用？
Replace函數(shù) \x0d\x0a描述\x0d\x0a返回一個字符串，該字符串中指定的子字符串已被替換成另一子字符串，并且替換發(fā)生的次數(shù)也是指定的。\x0d\x0a語法\x0d\x0aReplace(expression, find, replacewith[, start[, count[, compare]]])\x0d\x0aReplace函數(shù)語法有如下幾部分：\x0d\x0a部分描述expression必需的。字符串表達式，包含要替換的子字符串。find必需的。要搜索到的子字符串。replacewith必需的。用來替換的子字符串。start可選的。在表達式中子字符串搜索的開始位置。如果忽略，假定從1開始。count可選的。子字符串進行替換的次數(shù)。如果忽略，缺省值是 _1，它表明進行所有可能的替換。compare可選的。數(shù)字值，表示判別子字符串時所用的比較方式。關于其值，請參閱“設置值”部分。\x0d\x0a\x0d\x0a設置值\x0d\x0acompare參數(shù)的設置值如下：\x0d\x0a常數(shù)值描述vbUseCompareOption_1使用Option Compare語句的設置值來執(zhí)行比較。vbBinaryCompare0執(zhí)行二進制比較。vbTextCompare1執(zhí)行文字比較。vbDatabaseCompare2僅用于Microsoft Access?；谀臄?shù)據(jù)庫的信息執(zhí)行比較。\x0d\x0a\x0d\x0a返回值\x0d\x0aReplace的返回值如下：\x0d\x0a如果Replace返回值expression長度為零零長度字符串("")。expression為Null一個錯誤。find長度為零expression的復本。replacewith長度為零expression的復本，其中刪除了所有出現(xiàn)的find 的字符串。start Len(expression)長度為零的字符串。count is 0expression.的復本。\x0d\x0a\x0d\x0a說明\x0d\x0aReplace函數(shù)的返回值是一個字符串，但是，其中從start所指定的位置開始，到expression字符串的結尾處的一段子字符串已經發(fā)生過替換動作。并不是原字符串從頭到尾的一個復制。
vb .net里的 查找替換功能里 ，我想把List 替換替換成fList List是單獨的字符串。
變通的方法：
首先 把List 替換為一個其他的字符串如OOO,要全字匹配替換。然后替換List為fList,然后再把OOO替換為List。
vb.net 如何用通配符查找文件
步驟如下：
窗體上添加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
VB怎么查找并替換字符串
我默認路徑為d:\aa.txt,d:\bb.txt,請自己修改。建Command1.代碼如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option
Explicit
Private
Sub
Command1_Click()
Dim
aa
As
String,
bb
As
String
Open
"d:\aa.txt"
For
Input
As
1
Open
"d:\bb.txt"
For
Input
As
2
Open
"d:\cc.txt"
For
Output
As
3
Do
Until
EOF(1)
Line
Input
#1,
aa
If
EOF(2)
Then
#3,
aa
Else
Line
Input
#2,
bb:
#3,
IIf(Right(aa,
1)
=
"
",
bb,
aa)
Loop
Close
Kill
"d:\aa.txt"
Name
"d:\cc.txt"
As
"d:\aa.txt"
MsgBox
"替換完畢。"
End
Sub
求VB.NET對任一excel表格查找替換的代碼。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'On Error GoTo EXIT_ERROR
Dim strErrorPos As String = "F_TreatOne"
Dim strFileName As String
strFileName = "d:\test.xlsx"
Dim objExcelApp As New Microsoft.Office.Interop.Excel.Application
Dim objWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim objSheet As Microsoft.Office.Interop.Excel.Worksheet
objWorkBook = objExcelApp.Workbooks.Open(strFileName)
objSheet = objWorkBook.Worksheets(1)
objSheet.UsedRange.Replace("aaa", "bbb")
objWorkBook.Save()
objWorkBook.Close()
objExcelApp.Quit()
objWorkBook = Nothing
objExcelApp = Nothing
End Sub
需要的話,自已再適當修改修改.
項目中需要加對Microsoft.Office.Interop.Excel的引用.
網頁標題：vb.net怎么查找替換,vb查找和替換代碼
網站路徑：http://fisionsoft.com.cn/article/hseeco.html
