Question

vbs代码，读取txt第一行的内容到变量a，如果第一行只有一位字母，则用0补成四位，读取到变量a

。也就是说我要保证变量a里有四位。谢谢大虾。

Answer 1

把以下代码存为myreadtxt.vbs，双击就会提示读取到的、已用0补足4位的txt第1行。请您自己改一下txt文件名，我测试用的是my.txt。

option explicit
dim fso,fread,line_1st,len_line,a
set fso=createobject("scripting.filesystemobject")
set fread=fso.opentextfile("my.txt",1)
line_1st=fread.readline
fread.close
set fso=nothing
a=right("0000"&line_1st,4)
msgbox a

该程序已测试。