中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 把CSV文件转成想要的格式 上一主题 | 下一主题
zouzhxi
中级用户

蝴蝶之吻


积分 430
发帖 177
注册 2006-9-20
来自 广东深圳
状态 离线
『楼 主』:  把CSV文件转成想要的格式

请看
http://www.cn-dos.net/forum/view ... hlight=&page=10

能不能写一个P,把CSV文件转成TEL.DB的格式呀....

  Quote:
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



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

zouzhxi:1234567890123::
姓名:   [zouzhxi]
手机号码 1:[1234567890123]
手机号码 2:[1234567890124]
住宅电话: [12345678]
办公室电话:[12345679]
传真:   [12345678]
电子邮件: [zouzhxi@163.com]
家庭地址: [深圳大学]
录入日期: [2007-04-02]
-End-





Butterfly Kiss Blog
计算机DIY联盟论坛
2007-4-3 07:21
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (234693993)  编辑帖子  回复  引用回复
flyinspace
银牌会员





积分 1206
发帖 517
注册 2007-3-25
状态 离线
『第 2 楼』:  

可以写的。你可以自己试着写一下。。。



知,不觉多。不知,乃求知
2007-4-3 07:38
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zouzhxi
中级用户

蝴蝶之吻


积分 430
发帖 177
注册 2006-9-20
来自 广东深圳
状态 离线
『第 3 楼』:  

就是在处理“,”出错了。。。没弄出来。。。如果是完整的就可以。。。可是里边要是有空位的话,就出错了。。。郁闷ing...



Butterfly Kiss Blog
计算机DIY联盟论坛
2007-4-3 08:01
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (234693993)  编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 4 楼』:  

先每两行为单位,call ,后替换,,为,空, 这样就可以for /f 来 set 了,然后set/p 就ok了

2007-4-3 10:12
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
estar
中级用户





积分 346
发帖 103
注册 2004-4-6
状态 离线
『第 5 楼』:  

你那个 CSV 有没有出现空格、引号等特殊字符之类的情况?如果没有的话正则一句就搞定了

2007-4-3 10:28
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 6 楼』:  

剩下的你自己修改下应该可以的
@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


2007-4-3 11:04
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 7 楼』:  替namejm兄发的一个回贴


@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


2007-4-3 13:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
flyinspace
银牌会员





积分 1206
发帖 517
注册 2007-3-25
状态 离线
『第 8 楼』:  

因为 for 语句里面对空格也做为分割行。

所以。我一般在这种情况下会采用其他的方案执行。。



知,不觉多。不知,乃求知
2007-4-3 15:10
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zouzhxi
中级用户

蝴蝶之吻


积分 430
发帖 177
注册 2006-9-20
来自 广东深圳
状态 离线
『第 9 楼』:  

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

Re:7F
你的不行...第一个联系人的资料会和第二个联系的资料连在一起,,,而第二个也和第三个连在一起....



还有就是我想问一下,就是怎么知道这个CSV文件里边有多少行记录....

[ Last edited by zouzhxi on 2007-4-3 at 10:31 PM ]



Butterfly Kiss Blog
计算机DIY联盟论坛
2007-4-3 21:54
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (234693993)  编辑帖子  回复  引用回复
zouzhxi
中级用户

蝴蝶之吻


积分 430
发帖 177
注册 2006-9-20
来自 广东深圳
状态 离线
『第 10 楼』:  

没人回答????



Butterfly Kiss Blog
计算机DIY联盟论坛
2007-4-4 03:13
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (234693993)  编辑帖子  回复  引用回复
digger
初级用户

游荡的孤魂



积分 79
发帖 29
注册 2007-4-2
来自 湖南
状态 离线
『第 11 楼』:  

7F的代码能处理顶楼的文本内容啊。如果不能处理你的文件,那就是你的文件内容格式比较复杂,和顶楼的例子有出入,最好的办法是把你的文件发出来让大家看看。

2007-4-4 06:52
查看资料  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 12 楼』:  



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

R ...

倒,给你的已经很详细了啊~你自己修改下不就可以了
加2一句 if "%~1"=="" exit/b 就好了

[ Last edited by vkill on 2007-4-4 at 08:19 AM ]

2007-4-4 08:18
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
digger
初级用户

游荡的孤魂



积分 79
发帖 29
注册 2007-4-2
来自 湖南
状态 离线
『第 13 楼』:  

难道楼主是把每个联系人的信息分别保存为对应的文件?

[ Last edited by digger on 2007-4-3 at 07:53 PM ]

2007-4-4 08:42
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: