vbnet替换 vb 替换函数

VB.net里的查找和替换怎么写

TextBox 有 SelectionStart 和 SelectionLength 两个属性，分别代表选中字符（也就是查找之后高亮的那部分）的起始位置和长度。

string 类型本身有方法 IndexOf()，可以获取某个字符串第一次出现的位置，把这个值赋值给 SelectionStart，把这个字符串的 Length 赋值给 SelectionLength，这就是查找并高亮功能了。

替换的话就是 Replace() 方法。

vb.net字符串 替换

x="a[11dsfsf]b"

b=x.lastindexof("]")

a=x.indexof("[")

x=x.substring(0,a) "0" x.substring(b)

大家好，请问vb.net如何将一个txt文本文件中指定位置的内容替换掉？？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim txt As String = My.Computer.FileSystem.ReadAllText("c:\新建 文本文档.txt", System.Text.Encoding.Default) '先读取文本中所有内容

My.Computer.FileSystem.WriteAllText("c:\新建 文本文档.txt", "", False, System.Text.Encoding.Default) '清空原文本内容

Dim AllLine() = Split(txt, vbCrLf) '按回车符号切割成数组

For i As Integer = 0 To UBound(AllLine) '循环数组

' AllLine(i) = Replace(AllLine(i), "000", "111") '如果所有行都是统一转换则本条生效

If i = 5 Then '只转换第六行 起始是0，所以5实际为第6行

AllLine(i) = Replace(AllLine(i), "000", "111")

End If

My.Computer.FileSystem.WriteAllText("c:\新建 文本文档.txt", AllLine(i) vbCrLf, True, System.Text.Encoding.Default) '按行重新写入

Next

End Sub

VB/VB.net 如果实现对Excel单元格中内容的批量替换功能（悬赏可加）

用vba可以实现，不难。要看你具体做什么，下面是一个录制的宏，替换aaa为axa，然后替换bbb为xbx。

Sub 宏2()

'

' 宏2 宏

'

'

Cells.Replace What:="aaa", Replacement:="axa", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.Replace What:="bbb", Replacement:="xbx", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

用VB.NET快速替换DLL文件中的字符串

读500万行的txt文件190m左右，提取每行中特定字符，写入7个文件，单个文件130万行，13m左右。一共用时20秒左右。

用system.io.streamreader

system.io.streamwriter。

求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

需要vbnet替换的话,自已再适当修改修改.

项目中需要加对Microsoft.Office.Interop.Excelvbnet替换的引用.

关于vbnet替换和vb 替换函数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。