vbs怎么将一个带有空格的字符串写入文件，且遇到空格写入的内容就换行
1个回答
展开全部
你的意思是将所有的空格替换成换行符吧?
dim fso,file,read,string_finally,spath,sfile
set fso=createobject("scripting.filesystemobject")
file="1.txt" '要处理的文件
if instr(file,"\")>0 then '过滤路径
spath=left(file,instr(file,"\"))
sfile=mid(file,instrrev(file,"\")+1)
else
sfile=file
end if
read=fso.opentextfile(file).readall '读取全文
string_finally=replace(read,space(1),vbcrlf) '替换空格为回车符
fso.createtextfile(spath&"New_"&sfile).write string_finally '写入新文件
set fso=nothing '释放内存
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
