中国DOS联盟

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

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

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-08-10 07:54
欢迎新会员 zhichenwen　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 2 篇 / 48,255 会员排行 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]txt转csv的问题 查看 3,188　回复 10
推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 [求助]txt转csv的问题 发表于 2008-10-22 13:31　·　 中国 四川 南充 阆中市 电信
hgx126
初级用户
★★
积分 100
发帖 80
注册 2008-09-12 15:08
17年会员
UID 125478
性别 男
状态 离线
一目录下有许多文本文件，格式相同，内容如下：
5411|54110000377889|0|30000.0|2006/09/29|88130095863129|2008/09/27|0.0|0.0|罗宗良|

54110000410360|5411|88130114562095|0|敬永猛|60000.0|2007/05/31|2009/05/29|0.0|0.0|

5411|88130122241160|0|30000.0|2007/08/28|2008/08/27|0.0|54110000744667|798.53|李国富|


要将此文本文件转换为Excel的csv.文件，我写如下代码：

for %%a in (*.txt) do (

  for /f "delims=" %%h in (%%a) do (

    set var=%%h

    setlocal enabledelayedexpansion

   set var=!var:^|=,!

   echo.!var!>>"%%~na_new%%.csv"

   endlocal   

  )

)

pause


转换成功了，可打开csv文件后，凡单元格内数字位数超过11位的数字全部成了科学计数。
我现在要做的是在数字位数超过11位的数字前加一个单引号“'”,转换成如下：


5411,'54110000377889,0,30000.0,2006/09/29,'88130095863129,2008/09/27,0.0,0.0,罗宗良,

'54110000410360,5411,'88130114562095,0,敬永猛,60000.0,2007/05/31,2009/05/29,0.0,0.0,

5411,'88130122241160,0,30000.0,2007/08/28,2008/08/27,0.0,'54110000744667,798.53,李国富,

请教代码如何写？
第 2 楼 发表于 2008-10-22 13:46　·　 美国 惠普HP
HAT
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
这样能满足要求么？
@echo off

for %%a in (*.txt) do (

  for /f "delims=" %%h in (%%a) do (

    set var=%%h

    setlocal enabledelayedexpansion

    set var=!var:^|=,'!

    echo.'!var!>>"%%~na_new%%.csv"

    endlocal   

  )

)
第 3 楼 发表于 2008-10-22 14:41　·　 中国 四川 南充 阆中市 电信
hgx126
初级用户
★★
积分 100
发帖 80
注册 2008-09-12 15:08
17年会员
UID 125478
性别 男
状态 离线
你这个是把所有的数字和汉字前都加了一个单引号。
我希望只是在数字位数超过11位的数字加引号，能行吗？
第 4 楼 Re 3楼 发表于 2008-10-22 15:08　·　 美国 惠普HP
HAT
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
批处理计算字符串的长度是一件比较浪费资源的操作，当数据量比较大的时候尤为明显。
如果一定要这样，可在本版搜索字符串长度
第 5 楼 发表于 2008-10-22 15:22　·　 中国 四川 南充 阆中市 电信
hgx126
初级用户
★★
积分 100
发帖 80
注册 2008-09-12 15:08
17年会员
UID 125478
性别 男
状态 离线
那能不能这样：只给第二列、第三列和第五列的字符前加单引号？



例将下面：

5426|47960000132016|88130097408157|0|88130140097408134|45000.0|兰林|

5426|48320000038190|88130097413071|0|88130140097413048|10000.0|王培杰|

5426|48360000105672|88130097505153|0|88130140097505130|2220.0|张勇|





转换成：

5426,'47960000132016,'88130097408157,0,'88130140097408134,45000.0,兰林,

5426,'48320000038190,'88130097413071,0,'88130140097413048,10000.0,王培杰,

5426,'48360000105672,'88130097505153,0,'88130140097505130,2220.0,张勇,


[ Last edited by hgx126 on 2008-10-22 at 15:35 ]
第 6 楼 发表于 2008-10-26 19:02　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
20年会员
UID 59080
状态 离线
E:\>gawk --posix --re-interval -F"|" -v OFS=, "{for(i=1;i<=NF;i++)if($i~/^{9,}/)$i=\"'\"$i;print}" your_file.txt
5411,'54110000377889,0,30000.0,2006/09/29,'88130095863129,2008/09/27,0.0,0.0,罗宗良,
'54110000410360,5411,'88130114562095,0,敬永猛,60000.0,2007/05/31,2009/05/29,0.0,0.0,
5411,'88130122241160,0,30000.0,2007/08/28,2008/08/27,0.0,'54110000744667,798.53,李国富,

E:\>
第 7 楼 Re 5楼 发表于 2008-10-26 21:51　·　 中国 广东 汕头 电信
longge0000
初级用户
★
积分 24
发帖 11
注册 2008-10-14 18:02
17年会员
UID 128375
性别 男
状态 离线
Originally posted by hgx126 at 2008-10-22 15:22:
那能不能这样：只给第二列、第三列和第五列的字符前加单引号？



例将下面：

5426|47960000132016|88130097408157|0|88130140097408134|45000.0|兰林|

5426|4832 ...

比较笨的方法,有没有高手来简化下:
echo off
for %%a in (*.txt) do (
for /f "delims=| tokens=1,2,3,4,5,*" %%b in (%%a) do (
setlocal enabledelayedexpansion
set var2=%%c & set var2=!var2:~12!
set var3=%%d & set var3=!var3:~12!
set var5=%%f & set var5=!var5:~12!
set var6=%%g

if defined var2 (set var2='%%c) else (set var2=%%c)
if defined var3 (set var3='%%d) else (set var3=%%d)
if defined var5 (set var5='%%f) else (set var5=%%f)
set var6=!var6:^|=,!
echo %%b,!var2!,!var3!,%%e,!var5!,!var6!>>"%%~na_new%%.csv"
endlocal
)
)
pause
第 8 楼 发表于 2008-10-29 23:56　·　 中国 四川 南充 阆中市 电信
hgx126
初级用户
★★
积分 100
发帖 80
注册 2008-09-12 15:08
17年会员
UID 125478
性别 男
状态 离线

E:\>gawk --posix --re-interval -F"|" -v OFS=, "{for(i=1;i<=NF;i++)if($i~/^{9,}/)$i=\"'\"$i;print}" your_file.txt
5411,'54110000377889,0,30000.0,2006/09/29,'88130095863129,2008/09/27,0.0,0.0,罗宗良,
'54110000410360,5411,'88130114562095,0,敬永猛,60000.0,2007/05/31,2009/05/29,0.0,0.0,
5411,'88130122241160,0,30000.0,2007/08/28,2008/08/27,0.0,'54110000744667,798.53,李国富,

E:\>



利用的是外部命令吗？看不懂能不能解释一下？
第 9 楼 Re 8楼 发表于 2008-10-30 00:13　·　 中国 重庆 电信
HAT
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
gawk.exe可以去这里下载：批处理室附件收集专用帖

这个命令比较复杂，靠别人讲是学不会的，自己先看看帮助吧。
第 10 楼 发表于 2008-10-30 01:26　·　 中国 北京 联通
yishanju
银牌会员
★★★★
[b]看你妹啊[/b]
积分 1,488
发帖 1,357
注册 2006-05-20 12:00
20年会员
UID 55770
状态 离线
搜索gawk http://www.cn-dos.net/forum/search.php?searchid=243527&orderby=lastpost&ascdesc=desc&searchsubmit=yes

有问题请发论坛或者自行搜索,再短消息问我的统统是SB
第 11 楼 发表于 2008-10-30 02:28　·　 中国 江苏 常州 溧阳市 电信
terse
银牌会员
★★★
积分 2,404
发帖 946
注册 2005-09-08 13:44
20年会员
UID 42345
状态 离线
基本满足(没特殊字符的话) 但文件大的话 BAT的效率还是问题


@echo off

for %%i in (*.txt) do (

  for /f "usebackq delims=" %%a in ("%%i") do (

    set var=%%a

    setlocal enabledelayedexpansion

    set var=!var:^|= !

    for %%b in (!var!) do (

    for /f "skip=1 delims=:" %%c in ('^(echo "%%b"^&echo.^)^|findstr /o ".*"') do (

    set/a n=%%c-5

    if !n! gtr 11 (set "str=!str!'%%b,")else set "str=!str!%%b,"

    ))

    >>"%%~ni_new.csv" echo !str!

    endlocal   

  )

)

pause
简单!简单!再简单!
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 - 简版 ]

Sponsored by ifanr Inc | © 2001–2023