循环处理Master登录信息

最新推荐文章于 2022-10-23 19:30:54 发布

kuailexq2000

最新推荐文章于 2022-10-23 19:30:54 发布

阅读量517

点赞数

CC 4.0 BY-SA版权

文章标签： integer string button class function

本文链接：https://blog.youkuaiyun.com/kuailexq2000/article/details/4936458

本文介绍了一个简单的文本替换工具的实现方法，该工具能够批量查找并替换指定文本文件中的字符串。通过Visual Basic编程，用户可以轻松地从文件中读取文本，并使用自定义函数进行查找和替换操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

do master

Imports System.IO Public Class Form1 Private Sub ReplaceItems() Me.RichTextBox2.Text = FindReplace(RichTextBox1.Text, Me.TextBoxformid1.Text, Me.TextBoxformid2.Text) Me.RichTextBox2.Text = FindReplace(RichTextBox1.Text, Me.TextBoxformid1.Text, Me.TextBoxformid2.Text) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click openFileDialog1.Filter = "text.text|*.txt" If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Me.RichTextBox1.LoadFile(Me.OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If ReplaceItems() End Sub Public Function FindReplace(ByVal strSearch As String, ByVal strFind As String, ByVal strReplace As String) Dim LastChar As Integer, NextPos As Integer Dim strTemp As String = "" LastChar = Len(strSearch) strTemp = strSearch NextPos = 0 NextPos = InStr(NextPos + 1, strTemp, strFind) Do Until (NextPos = 0) Or (NextPos > LastChar) strTemp = Microsoft.VisualBasic.Left(strTemp, NextPos - 1) & strReplace & _ Microsoft.VisualBasic.Right(strTemp, (Len(strTemp) - Len(strFind) - (NextPos - 1))) LastChar = LastChar - Len(strFind) + Len(strReplace) NextPos = 0 NextPos = InStr(NextPos + 1, strTemp, strFind) Loop Return strTemp End Function End Class