Question

我的.txt文件读取为“ 203,13,58,2018,0”，我需要做的就是用1替换末尾的0。

我发现了以下几种变化：

我在这里有代码，但是该站点不允许我发布该格式已关闭的信息，我很沮丧，在这里有一些我一直在尝试使用的代码的站点，对此几乎没有帮助。（https://ss64.com/vb/syntax-replace.html）

但是它们都删除了所有其他内容，而我的文件仅带有“，1”。我想念什么？

Answer 1

使用相同的代码，但进行了修改：

Option Explicit
Dim fso,strFilename,strSearch,strReplace,objFile,oldContent,newContent

strFilename="D:\demo.txt"
strSearch=",0"
strReplace=",1"

'Does file exist?
Set fso=CreateObject("Scripting.FileSystemObject")
if fso.FileExists(strFilename)=false then
   wscript.echo "file not found!"
   wscript.Quit
end if

'Read file
set objFile=fso.OpenTextFile(strFilename,1)
oldContent=objFile.ReadAll

'Write file
newContent=replace(oldContent,strSearch,strReplace,1,-1,0)
set objFile=fso.OpenTextFile(strFilename,2)
objFile.Write newContent
objFile.Close

替换.txt文件中的特定字符

1 个答案: