vb.net查找与替换 vba 查找和替换

vb.net查找功能RichTextBox1.SelectionStart = RichTextBox1.Text.IndexOf(string3,RichTextBox1.SelectionStart1)
这样可以查找多个重复的值.但是到最后没有的时候就会提示:InvalidArgument=“-1”的值对于“SelectionStart”无效 。
参数名: SelectionStart
怎么搞定.查找就是这个问题不能解决,至于替换感谢你们提供的replace.
wuyazhe 朋友,你那个我不太懂啊.而且我也不需要太复杂.现在主要的问题是查找!
vb.net字符串 替换x="a[11dsfsf]b"
b=x.lastindexof("]")
a=x.indexof("[")
x=x.substring(0,a)"0"x.substring(b)
VB.net里的查找和替换怎么写TextBox 有 SelectionStart 和 SelectionLength 两个属性,分别代表选中字符(也就是查找之后高亮的那部分)的起始位置和长度 。
string 类型本身有方法 IndexOf() , 可以获取某个字符串第一次出现的位置,把这个值赋值给 SelectionStart,把这个字符串的 Length 赋值给 SelectionLength,这就是查找并高亮功能了 。
替换的话就是 Replace() 方法 。
求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里的 查找替换功能里 ,我想把List 替换替换成fList List是单独的字符串 。变通的方法:
首先 把List 替换为一个其他的字符串如OOO,要全字匹配替换 。然后替换List为fList,然后再把OOO替换为List 。
【vb.net查找与替换 vba 查找和替换】关于vb.net查找与替换和vba 查找和替换的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读