@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1*" %%a in (a.csv) do (
    setlocal enabledelayedexpansion
    set Line="%%b"
    set Line=!Line:	="	"!
    set Line=!Line:""=!
    for %%j in (!line!,x) do (
        for /f "delims=0123456789." %%k in ("#%%~j") do (
            if not "%%k"=="#" (
                if !x! equ 3 (
                    set /a y+=1
                    set _!y!=!str!
                ) else if !x! equ 4 (
                    if defined _!y! (
                        for /l %%l in (1,1,!y!) do (
                            if defined FourthCol (
                                echo,%%a	!_%%l!	!FourthCol!
                            ) else (
                                echo,%%a	!_%%l!
                            )
                            set _%%l=
                        )
                        set FourthCol=
                        set y=0
                    )
                    echo,%%a	!str!
                )
                set str=%%~j
                set x=0
            ) else (
                set str=!str!	%%~j
                set /a x+=1
                if !x! equ 4 set FourthCol=%%~j
            )
        )
    )
    endlocal
))>out.csv
pause
复制代码

gawk "{n=patsplit($0,a,/[a-zA-Z][^\t]+(\t[0-9.]+){3,4}/);for(i=n;i>0;i--)if(a[i]~/[a-zA-Z][^\t]+(\t[0-9.]+){4}/){a4=gensub(/^.+\t([^\t]+)$/,\"\\1\",\"g\",a[i])}else{a[i]=a[i] \"\t\" a4};for(i=1;i<=n;i++)print $1\"\t\"a[i]}" a.csv>b.txt
复制代码