vb 替换文本

来源：百度知道 编辑：UC知道 时间：2024/06/16 18:19:21
假如我要把C:\cmd.cmd中的标题替换为Text1中输入的文字 自定义一替换为Text2中输入的文字 自定义一替换为Text3中输入的文字，替换完成后保存至C:\WINDOWS\cmd.cmd中，然后导入C:\ST.reg静默导入啊 然后提示完成，这个该怎么弄？然后我要删除C:\WINDOWS\cmd.cmd这个文件，但是如果这个文件不存在VB就是崩溃，该如何让VB检查文件是否存在，不存在就直接执行Shell "regedit.exe /s C:\DEL.reg"，然后弹出窗口

if dir(文件路径) = "" then '如文件不存在·不返回值 所以是 空白
msgbox "不存在"
else
Shell "regedit.exe /s C:\DEL.reg"，
end if

1.我看不懂你第一个问题什么意思
我大概说下思路：
首先，读取文件的代码：
Dim s as string,t as string
open "文件路径" for input as #1
do until eof(1)
line input #1,s
t = t & s & vbcrlf
loop
close #1
msgbox "文件内容为:" & vbcrlf & t

这里将文件内容读取到了t中；
第二：
搜索指定字符串的位置：
假设有字符串“asdfghjk12345678”
则查找5的位置（5现在是第13个字符）例子：
Dim s As String
s = "asdfghjk12345678"
MsgBox InStr(1, s, "5")
可以发现 弹出的是13。但是用mid等的时候就要13-1了

第三：无条件基本替换：
dim s as string
s = "1234aaabv"
s = replace(s,"aaa","000000")
这里把字符串里面的aaa替换为000000。

第四：查找文件：
dim s as string
s = dir(文件路径)
if s = "" then
msgbox "文件存在！"
else
msgbox "文件不存在！"
end