扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
变通的方法:
为渭城等地区用户提供了全套网页设计制作服务,及渭城网站建设行业解决方案。主营业务为成都网站建设、网站制作、渭城网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
首先 把List 替换为一个其他的字符串如OOO,要全字匹配替换。然后替换List为fList,然后再把OOO替换为List。
TextBox 有 SelectionStart 和 SelectionLength 两个属性,分别代表选中字符(也就是查找之后高亮的那部分)的起始位置和长度。
string 类型本身有方法 IndexOf(),可以获取某个字符串第一次出现的位置,把这个值赋值给 SelectionStart,把这个字符串的 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
需要的话,自已再适当修改修改.
项目中需要加对Microsoft.Office.Interop.Excel的引用.
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流