變通的方法:

成都創新互聯公司從2013年成立,是專業互聯網技術服務公司,擁有項目成都網站制作、做網站、外貿營銷網站建設網站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元龍口做網站,已為上家服務,為龍口各地企業和個人服務,聯系電話:028-86922220
首先 把List 替換為一個其他的字符串如OOO,要全字匹配替換。然后替換List為fList,然后再把OOO替換為List。
x="a[11dsfsf]b"
b=x.lastindexof("]")
a=x.indexof("[")
x=x.substring(0,a) "0" x.substring(b)
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的引用.
TextBox 有 SelectionStart 和 SelectionLength 兩個屬性,分別代表選中字符(也就是查找之后高亮的那部分)的起始位置和長度。
string 類型本身有方法 IndexOf(),可以獲取某個字符串第一次出現的位置,把這個值賦值給 SelectionStart,把這個字符串的 Length 賦值給 SelectionLength,這就是查找并高亮功能了。
替換的話就是 Replace() 方法。
網頁題目:vb點虐
查找替換 vbnet查找替換word
文章起源:http://www.yijiale78.com/article14/ddgcpge.html
成都網站建設公司_創新互聯,為您提供用戶體驗、域名注冊、外貿建站、云服務器、網站設計公司、商城網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯