[文本处理] 如何根据B表格的第一列将A表格第一列相同内容的同行其他列的内容插入到B表格

@echo off&setlocal enabledelayedexpansion
for /f "skip=1" %%a in ('findstr /v "^,$" "1.csv"') do (
    set "str=%%a"
    if "!str:~,1!" neq "," (
        set/a n+=1
        set #!n!=%%a
    ) else for %%b in (!n!) do set #!n!=!#%%b!%%a
)
(echo;姓  名,号  码,号  码
for /f "tokens=1* delims==" %%c in ('set #') do echo;%%d
)>"2.csv"
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set "f1=1.csv"
set "f2=2.csv"
set "f3=3.csv"
for /f "skip=1 delims=" %%a in ('findstr /v "^,$" "%f1%"') do (
    set "str=%%a"
    if "!str:~,1!" neq "," (
        for /f "tokens=1 delims=," %%b in ("%%a") do set #%%b=%%a&set name=%%b
    ) else for /f %%c in ("!name!") do set #%%c=!#%%c!%%a
)
(set /p t=<"%f2%"&echo;!t!
for /f skip^=1^ usebackq^ tokens^=1^ delims^=^",  %%a in ("%f2%") do (
    for /f %%b in ("%%a") do if defined #%%~nxb (echo;!#%%~nxb!) else echo;%%~nxb
))>"%f3%"
pause
复制代码

@echo off & setlocal enabledelayedexpansion
for /f "skip=2 tokens=1,2 delims=," %%i in (1.csv) do (
	set line=%%i,%%j
	if "!line:~,1!"=="1" (
		set nn=!nn!,%%i
		set !name!=!nn:,,=,!&set name=
	)else (
		if defined name set !name!=!nn!
		set nn=!line!&set name=%%i
	)
)
if defined name set !name!=!nn!
(set /p t=<"2.csv"&echo;!t!
	for /f "skip=1 delims=," %%i in (2.csv) do (
		set line=%%i
		set line=!line: =!
		set line=!line:	=!
		set line=!line:"=!
		if defined !line! (
			for %%a in (!line!) do echo;!%%a!
		) else echo;!line!
	)
)>3.csv
pause & exit /b
复制代码

@if(0)==(0) echo off
cscript -nologo -e:jscript %0 "%~dp01.xls" "%~dp02.xls" "%~dp03.xls" 
pause & exit
@end
var  xlApp = new ActiveXObject("Excel.Application");
var xlBook = xlApp.Workbooks.open(WScript.Arguments.Item(0));
xlBook.worksheets(1).activate;
var XlSheet = xlBook.activeSheet;
var Ojb = {};
var Count = XlSheet.usedrange.rows.count;
for(var i = 3; i <= Count; i += 2) {
    var L1 = XlSheet.Cells(i, 1).value;
    var L2 = XlSheet.Cells(i, 2).value;
    var L3 = XlSheet.Cells(i + 1, 2).value;
    Ojb[L1] = L3 ? L2 ? [L2, L3] : [L3] : L2 ? [L2] : "";
}
xlBook = xlApp.Workbooks.open(WScript.Arguments.Item(1));
xlBook.worksheets(1).activate;
XlSheet = xlBook.activeSheet;
Count = XlSheet.usedrange.rows.count;
for (i = 2; i <= Count; i++) {
     var len = Ojb[XlSheet.Cells(i, 1)].length
     if (len) {
         if (len >1) {
             XlSheet.Cells(i, 2).value = Ojb[XlSheet.Cells(i, 1)][0];
             XlSheet.Cells(i, 3).value = Ojb[XlSheet.Cells(i, 1)][1];
         }
         else { XlSheet.Cells(i, 2).value = Ojb[XlSheet.Cells(i, 1)] }
  }
}
//xlBook.SaveAs(WScript.Arguments.Item(2));
xlBook.Save()
xlBook.Close();
xlApp.Quit();
复制代码