中国DOS联盟

CSV格式如下:
姓名,手机号码1,手机号码2,住宅电话,办公室电话,传真,电子邮件,家庭地址,录入时间
zouzhxi,1234567890123,1234567890124,12345678,12345679,12345678,zouzhxi@163.com,深圳大学,2007-04-02


如果没有的话,就留空.:
姓名,手机号码1,,,办公室电话,,电子邮件,家庭地址,录入时间
zouzhxi,1234567890123,,,12345679,,zouzhxi@163.com,深圳大学,2007-04-02

TEL.DB格式如下:
::电话本数据库
--------------------------------------------------

zouzhxi:1234567890123::
姓名：　　　
手机号码 1：
手机号码 2：
住宅电话：　
办公室电话：
传真：　　　
电子邮件：　[zouzhxi@163.com]
家庭地址：　
录入日期：　
-End-

@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%%?!: <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

@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!	

set num=0

goto :eof

Originally posted by zouzhxi at 2007-4-3 21:54:
Re:6F
你的P处理,基本能成功,,但是如果有很多的话,,,用PAUSE就觉得很麻烦了...如果我去掉的话,,,,会在最后一个结果做死循环......能不能改进一下....

R ...