xxpinqz

@echo off
for /f tokens^=3^,4^delims^=^" %%a in (a.txt) do (
    set "str=%%a"
    setlocal enabledelayedexpansion
    for /f "tokens=4 delims=," %%c in ("%%b") do (
        if not "%%c"=="." (
        	 if not "%%c"=="-." (
                      set/a n=17+%%c
                      if !n! equ 17 if %%c neq 0 set n=x
                ) else set n=17
        ) else set n=18
        move "!str!" "!n!\"&endlocal
    )
)2>nulCOPY

xxpinqz

回复 11# cobat

if与for可以else，要不明显很多重复执行了，虽然用2>nul屏蔽了回显。