Question

VBS读取文本内容 问题

Set c = createobject("scripting.filesystemobject").CreateTextFile("D:\a.txt",3, True)
c.WriteLine("123456")
c.Close

a=createobject("scripting.filesystemobject").opentextfile("D:\a.txt").readall
MsgBox a

怎么读取不到写入的123456？

Answer 1

应该这样写的

dim fso,file,read,string_arr(),count,string_finally
set fso=createobject("scripting.filesystemobject")
file="1.txt" '文件
fso.createtextfile(file).write "123456" '写入file文件
read=fso.opentextfile(file).readall '读取file文件
msgbox read '显示结果
set fso=nothing

再给你写个函数

dim fso,file,read,string_arr(),count,string_finally,list
set fso=createobject("scripting.filesystemobject")
file="121s.txt"
'CreateFile [文件],[写入的字符串],[0不创建/1创建]文件
createfile file,"123",0
createfile file,"333",0
createfile file,"444",0
x=createfile (file,"999",1)
for each list in x
 msgbox list
next
msgbox ReadFile(file) '读取文件 
public function CreateFile(byval file,byval text_var,byval fwrite_var) '创建文件函数
 set fso=createobject("scripting.filesystemobject")
 if len(text_var)>0 then '输入的字符串不为空
  if text_var=vbcrlf then text_var=empty '将换行符剔除
  redim preserve string_arr(count) '重定义数组
  string_arr(count)=text_var '写入数组
  createfile=text_var '将text_var的值返回给函数
  count=count+1 '新建元素
 end if
 if fwrite_var=1 then
  string_finally=join(string_arr,vbcrlf) '合并数组
  fso.createtextfile(file).write string_finally '写入文件
  createfile=string_arr '将函数转换成数组
 end if
 set fso=nothing '释放内存
end function
public function ReadFile(file) '读取文件函数
 set fso=createobject("scripting.filesystemobject")
 readfile=fso.opentextfile(file).readall '读取全文
 set fso=nothing '释放内存
end function