怎样在VB中用Textbox输入替换txt文档中特定位置的数字

2025-01-07 07:30:43

推荐回答（4个）

回答1：

每次记录修改项是个好办法
不过如果你的txt文档本来就是固定格式了，里面仅有你所说的2这些数字需要改变，可以先编个程序，将每个段落的字符数，你要修改的字符在每段中位置记录在一个文档中，然后再用Textbox对其进行修改，可靠性应该高一些。修改结束时最好再更新一下记录文档中的数据，这样就算你是要把2改为10000，然后再改回来，都不会出啥差错。

回答2：

使用replace函数最为简单
例：
string.replace（“2”，“3”）

回答3：

Sub TextBox_Change() '设置TextBox改变事件
Dim FF1 As String, FF2 As String
Dim SS1 As String
Dim SS2 As String, SS As String
'设FF1为已有的.txt全文件名（包含路径）
If VBA.IsNumeric(TextBox) Then Exit Sub

FF2 = "C:\Temp123.txt"
SS1 = "2" '要替换的文本
SS2 = TextBox
Open FF1 For Input As #1
Open FF2 For Output As #2

On Error GoTo WWW
Do
Line Input #1, SS
VBA.Replace SS, SS1, SS2
Print #2, SS2

Loop

WWW:
Close 1
Close 2
End Sub
这是一个VBA程序，FF2 = "C:\Temp123.txt" 即是你想要的替换后的文件，名字与源文件不同，你可借鉴，希望对你有帮助。

回答4：

VB中在filelistbox中选定一个txt文档单击后会在textbox中显示只要单击事件的代码 Private Sub File1_Click() If UCase(Right(File1.FileName,