Question

如何用批处理提取文本中的每行;字符前作为新文本名称?

文本a.txt内容如下: 第一行文字是,203班王小明;100 99 99 98 95.第二行文字是,503班王军;100 99 99 98 95,第三行文字是,401班某某某;99 100 98 97,......提取每一行开头分号;前的文字作为另外新建txt文本名称。新建成,第一个文本名称是203班王小明,第二个文本名称是503班王军,如此类推......

Answer 1

只有一个a.txt文件还是有很多文件要这样处理？可以用VBS脚本实现。我的理解是把a.txt 每行拆分成一个文件。

在a.txt目录新建一个记事本，复制粘贴以下代码。然后另存为: 文件拆分.vbs  注意红色部分。双击运行。在TXTFoder文件夹看看。

dim fs,str,strarry,linestr,linearr

Set fs=CreateObject("Scripting.FileSystemObject") 

If fs.folderExists("TXTFoder") =False Then fs.createfolder("TXTFoder")

if (fs.fileexists("a.txt")) =False then

wscript.echo "文件a.txt不存在"

wscript.quit

end if

set fread=fs.opentextfile("a.txt")

str=fread.readall

fread.close

if str="" then

   wscript.echo "文件内容为空！"

   wscript.quit

end if

strarry=split(str,vbcrlf)

for each linestr in strarry

if linestr <> "" then

linearr = split(linestr,";")

set f=fs.opentextfile("TXTFoder\" & linearr(0) & ".txt",2, true)

f.close

end if

next

set fs=nothing

msgbox "Done!",64,"TXT"