變通的方法:
為渭城等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù),及渭城網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都網(wǎng)站建設(shè)、網(wǎng)站制作、渭城網(wǎng)站設(shè)計(jì),以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會(huì)得到認(rèn)可,從而選擇與我們長(zhǎng)期合作。這樣,我們也可以走得更遠(yuǎn)!
首先 把List 替換為一個(gè)其他的字符串如OOO,要全字匹配替換。然后替換List為fList,然后再把OOO替換為L(zhǎng)ist。
TextBox 有 SelectionStart 和 SelectionLength 兩個(gè)屬性,分別代表選中字符(也就是查找之后高亮的那部分)的起始位置和長(zhǎng)度。
string 類型本身有方法 IndexOf(),可以獲取某個(gè)字符串第一次出現(xiàn)的位置,把這個(gè)值賦值給 SelectionStart,把這個(gè)字符串的 Length 賦值給 SelectionLength,這就是查找并高亮功能了。
替換的話就是 Replace() 方法。
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的引用.