vb搜索文件替换内容

vb搜索文件替换内容



Private Sub Command1_Click()
'遇到错误，直接执行下一行。
On Error Resume Next
取读文件位置 = Text3
If Dir(取读文件位置) = "" Then MsgBox "文件不存在"
If Dir(取读文件位置) = "" Then GoTo ll:
备用文件位置 = App.Path & "\2-CMM.txt"
Kill (备用文件位置) '【删除文件】
查找内容 = Text1
替换内容 = Text2
i = 0
p = 0
Open 取读文件位置 For Input As #1
Do While Not EOF(1)
Line Input #1, temp
i = i + 1
If i > 10000 Then GoTo ll:
lngHandle = FreeFile() '取得句柄
Open 备用文件位置 For Append As lngHandle
If temp <> 查找内容 Then
Print #lngHandle, temp
Else
p = p + 1
Print #lngHandle, 替换内容
End If
Close lngHandle
Loop
Close #1
Kill (取读文件位置) '【删除文件】
Name 备用文件位置 As 取读文件位置 '【移动文件】
MsgBox "完成替换有" & p & "行被替换"
ll:
End Sub

Private Sub Form_Load()
'使对话框在显示屏中间：
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
End Sub




_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/