dos(批处理)或VBS脚本批量修改CSV格式文件内容

我有很多个文件夹，比如A1001，A1002，A1003文件夹内有文件有比如A1001文件里有：A1001TA1001HA1001W三个CSV文件，我要批量替换A1001... 我有很多个文件夹，比如A1001 ，A1002，A1003 文件夹内有文件有比如A1001文件里有：A1001T A1001H A1001W三个CSV文件，我要批量替换A1001T 内第二列和第六列的内容“端子”替换为 “TER”请问该如何写，谢谢！！展开

 我来答

2个回答

#热议# 网上掀起『练心眼子』风潮，真的能提高情商吗？

xiaomingtt
2018-01-09 · TA获得超过1752个赞

知道小有建树答主

回答量：917

采纳率：86%

帮助的人：691万

我也去答题访问个人页

关注

展开全部

set fso=createobject("scripting.filesystemobject")
set fols=fso.getfolder("C:\P")
for each fol in fols.subfolders
	folPath = fol.path
	folName = fol.name
	File1 = folPath & "\" & folName & "T.CSV"
	set f = fso.opentextfile(File1)
	text = f.readall
	f.close 
	fso.deletefile File1
	arrT = split(text,vbcrlf)
	SS=""
	for i = 0 to ubound(arrT)
		if arrT(i) <> "" then
			ArrS = split(arrT(i),",")
			ArrS(1)="TER"
			ArrS(5)="TER"
			s = join(ArrS,",")
		end if 
		SS = SS & s & vbcrlf
	next 
	set f = fso.createtextfile(File1)
	f.write SS
	f.close
next