VB.net里的查找和替換怎么寫

TextBox 有 SelectionStart 和 SelectionLength 兩個(gè)屬性，分別代表選中字符（也就是查找之后高亮的那部分）的起始位置和長(zhǎng)度。

創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站制作、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的葉集網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

string 類型本身有方法 IndexOf()，可以獲取某個(gè)字符串第一次出現(xiàn)的位置，把這個(gè)值賦值給 SelectionStart，把這個(gè)字符串的 Length 賦值給 SelectionLength，這就是查找并高亮功能了。

替換的話就是 Replace() 方法。

vb的查找并替換功能怎么用？

Replace函數(shù) \x0d\x0a描述\x0d\x0a返回一個(gè)字符串，該字符串中指定的子字符串已被替換成另一子字符串，并且替換發(fā)生的次數(shù)也是指定的。\x0d\x0a語(yǔ)法\x0d\x0aReplace(expression, find, replacewith[, start[, count[, compare]]])\x0d\x0aReplace函數(shù)語(yǔ)法有如下幾部分：\x0d\x0a部分描述expression必需的。字符串表達(dá)式，包含要替換的子字符串。find必需的。要搜索到的子字符串。replacewith必需的。用來(lái)替換的子字符串。start可選的。在表達(dá)式中子字符串搜索的開(kāi)始位置。如果忽略，假定從1開(kāi)始。count可選的。子字符串進(jìn)行替換的次數(shù)。如果忽略，缺省值是 _1，它表明進(jìn)行所有可能的替換。compare可選的。數(shù)字值，表示判別子字符串時(shí)所用的比較方式。關(guān)于其值，請(qǐng)參閱“設(shè)置值”部分。\x0d\x0a\x0d\x0a設(shè)置值\x0d\x0acompare參數(shù)的設(shè)置值如下：\x0d\x0a常數(shù)值描述vbUseCompareOption_1使用Option Compare語(yǔ)句的設(shè)置值來(lái)執(zhí)行比較。vbBinaryCompare0執(zhí)行二進(jìn)制比較。vbTextCompare1執(zhí)行文字比較。vbDatabaseCompare2僅用于Microsoft Access。基于您的數(shù)據(jù)庫(kù)的信息執(zhí)行比較。\x0d\x0a\x0d\x0a返回值\x0d\x0aReplace的返回值如下：\x0d\x0a如果Replace返回值expression長(zhǎng)度為零零長(zhǎng)度字符串("")。expression為Null一個(gè)錯(cuò)誤。find長(zhǎng)度為零expression的復(fù)本。replacewith長(zhǎng)度為零expression的復(fù)本，其中刪除了所有出現(xiàn)的find 的字符串。start Len(expression)長(zhǎng)度為零的字符串。count is 0expression.的復(fù)本。\x0d\x0a\x0d\x0a說(shuō)明\x0d\x0aReplace函數(shù)的返回值是一個(gè)字符串，但是，其中從start所指定的位置開(kāi)始，到expression字符串的結(jié)尾處的一段子字符串已經(jīng)發(fā)生過(guò)替換動(dòng)作。并不是原字符串從頭到尾的一個(gè)復(fù)制。

vb .net里的 查找替換功能里 ，我想把List 替換替換成fList List是單獨(dú)的字符串。

變通的方法：

首先 把List 替換為一個(gè)其他的字符串如OOO,要全字匹配替換。然后替換List為fList,然后再把OOO替換為L(zhǎng)ist。

vb.net 如何用通配符查找文件

步驟如下：

窗體上添加2個(gè)列表框，一個(gè)按鈕：

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怎么查找并替換字符串

我默認(rèn)路徑為d:\aa.txt,d:\bb.txt,請(qǐng)自己修改。建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

Print

#3,

aa

Else

Line

Input

#2,

bb:

Print

#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對(duì)任一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

需要的話,自已再適當(dāng)修改修改.

項(xiàng)目中需要加對(duì)Microsoft.Office.Interop.Excel的引用.

網(wǎng)站欄目：vb.net怎么查找替換,vb查找和替換代碼
新聞來(lái)源：http://jinyejixie.com/article20/hseeco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、Google、虛擬主機(jī)、App設(shè)計(jì)、營(yíng)銷型網(wǎng)站建設(shè)、企業(yè)建站

廣告

聲明：本網(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)