
| Quote: | |
|
| Quote: | |
|
CODE: [Copy to clipboard]@echo off&SETLOCAL ENABLEDELAYEDEXPANSION
set life=test.txt
set "fl=姓名,手机号码1,手机号码2,住宅电话,办公室电话,传真,电子邮件,家庭地址,录入时间"
set n=0
for %%? in (%fl%) do (
set/a n+=1
set "d!n!=%%?"
)
set n=0
:loop
set/a n+=2
for /f "tokens=*" %%? in ('findstr /N "." c.txt^|findstr "^%n%"') do (call :替换 "%%?")
for /f "tokens=2* delims=:" %%? in ('set v^|findstr "^v="') do (
for /f "tokens=1-9 delims=," %%a in ('set/p^=^%%?^<nul') do (
set "b1=%%a"
set "b2=%%b"
set "b3=%%c"
set "b4=%%d"
set "b5=%%e"
set "b6=%%f"
set "b7=%%g"
set "b8=%%h"
set "b9=%%i"
)
)
>>%life% set/p=^!b1!的通讯录<nul
>>%life% echo.
for /l %%? in (1,1,9) do (
>>%life% set/p=^!d%%?!: [!b%%?!]<nul
>>%life% echo.
)
>>%life% echo.
>>%life% echo.
pause
goto loop
:替换
set "v=%~1"
:loop_替换
set "v=!v:,,=,空,!"
set v|findstr "^v="|findstr ",," >nul 2>nul &&goto loop_替换
goto :eof
CODE: [Copy to clipboard]@echo off
::Code by namejm
setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.csv) do (
set /a num+=1
if !num! equ 1 set str1=%%i
if !num! equ 2 (
set str2=%%i
set num=0
set str1=!str1:,=\!
set str2=!str2:,=\!
call :translate
)
echo.
)
echo.
pause
exit
:translate
set /a num+=1
for /f "delims=" %%i in ("%str1%") do (
set var%num%=%%~ni:
set str1=%%~dpi
set str1=!str1:~0,-1!
)
for /f "delims=" %%i in ("%str2%") do (
set var_%num%=%%~ni
set str2=%%~dpi
set str2=!str2:~0,-1!
)
if /i not "%str1%"=="%cd%" goto translate
for /l %%i in (%num%,-1,1) do echo !var%%i! [!var_%%i!]
set num=0
goto :eof
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |