aloha20200628

回复 1# zhengwei007

再用纯P版来一轮“庖丁解牛”...
用一楼示例测试通过

@echo off &setlocal enabledelayedexpansion
(for /f "tokens=1-5 delims==	" %%1 in (rec.csv) do (
	set "vc=%%3"&set "vc=!vc:};{=,!"&set "vc=!vc:;=/!"
	for %%c in ( {,[,],} ) do (set "vc=!vc:%%c=!")
	for %%e in (!vc!) do (set "_vc=%%e"&echo,%%1	%%2	!_vc:/=	!)
	set "va=%%5"&set "va=!va:~5!"&set "va=!va:{{[=,!"&set "va=!va:;=/!"
	for %%a in (!va!) do (
		set "av=%%a"&set "vn=!av:*}}/=!"&for %%c in ( {,/,} ) do (set "vn=!vn:%%c=!")
		for %%q in (!vn!) do (set "_av=!av:/%%q=!")
		set "_av=!_av:}/{=,!"
		for %%c in ( {,[,],} ) do (set "_av=!_av:%%c=!")
		for %%e in (!_av!) do (set "v=%%e"&echo,%%1	%%4	!v:/=	!	!vn!)
	)
))>"sour.csv"
endlocal&exit/b
复制代码