批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理怎样把第2,3,4列数据均除以1000？ [打印本页]

作者: srj092005 时间: 2014-8-31 22:29 标题: 批处理怎样把第2,3,4列数据均除以1000？

1.BAT程序处理的数据行有限吗？我的一个文件有一千多行，但是每次处理都不能全部处理完，并且每次处理感觉原来越少，为什么？
2.我想提取这个文件中的前四列数据，并且第2,3,4列数据均除以1000，代码该怎么编写？
在此膜拜，感激不尽！
数据形式
  NODE       X          Y          Z       THXY THYZ THZX
      1 -102.78    -36.700    0.50070       0.00 0.00 0.00
      2 -116.16    -1.7202    1.4883       0.00 0.00 0.00
      3 -111.74    -31.270    1.4883       0.00 0.00 0.00
      4 -93.983    -31.638    3.1759       0.00 0.00 0.00
      5 -93.860    -30.427    3.2524       0.00 0.00 0.00
      6 -93.711    -30.387    3.2838       0.00 0.00 0.00
      7 -93.743    -29.214    3.3279       0.00 0.00 0.00
      8 -93.435    -29.134    3.3925       0.00 0.00 0.00
      9 -93.631    -28.001    3.4025       0.00 0.00 0.00
   10 -93.526    -26.786    3.4763       0.00 0.00 0.00

作者: DAIC 时间: 2014-9-1 09:53

但是每次处理都不能全部处理完，并且每次处理感觉原来越少，为什么？

把你的代码发出来看看

作者: terse 时间: 2014-9-1 09:57

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-4*" %%a in (a.txt) do (
    if defined str (
       set $1=%%b&set $2=%%c&set $3=%%d
       for /l %%I in (1,1,3) do (
           for /f "tokens=1* delims=." %%i in ("!$%%I!") do (
               set s=%%i
               if "!s:~,1!" == "-" (set b=-) else set b=
               set s=00000!s:-=!
               for /f "tokens=* delims=0" %%m in ("!s:~,-4!.!s:~-4!") do set $%%I=%%m%%j
               if "!$%%I:~,1!" == "." (set $%%I=!b!0!$%%I!) else set $%%I=!!b!!$%%I!
           )
       )
       set str=%%a !$1! !$2! !$3! %%e
    ) else set str=%%a %%b %%e %%d %%e
      echo !str!
)
pause
复制代码

作者: neorobin 时间: 2014-9-1 12:05

本帖最后由 neorobin 于 2014-9-2 20:12 编辑

@echo off & setlocal enabledelayedexpansion
for /f "tokens=1-4" %%a in (a.txt) do (
	if /i "%%a"=="NODE" (
		echo %%a %%b %%c %%d
	) else (
		for %%A in (%%b %%c %%d) do (
			for /f "tokens=1-2 delims=." %%p in ("%%A") do (
				set "L=%%p" & set "N=00!L:-=!"
				set /a "M=!L:-=!/1000,L>>=31"
				set "s=!s! !L:~0,-1!!M!.!N:~-3!%%q"
			)
		)
		echo %%a !s!& set "s="
	)
)
pause
复制代码

作者: srj092005 时间: 2014-9-1 16:48

本帖最后由 srj092005 于 2014-9-1 16:54 编辑

回复 2# DAIC

    @echo off
for /f "tokens=7-8 delims=, " %%a in (13ELIST.lis) do (
echo e,%%a,%%b
)
pause
复制代码

这个代码是取另一个文件的7-8列数据，共1033行，第一次处理只能取到500-1033行左右，请大神指教。

作者: srj092005 时间: 2014-9-1 17:36

回复 3# terse
大神您好，想再问一下代码在哪里体现出了数据除以1000这个概念，比如说我以后想乘以100啊之类，直接在这个模式上改变，还有就是最后的格式，我想存储为
n,10000,10000,10000 这样的形式该怎么处理呢？

作者: srj092005 时间: 2014-9-1 17:54

本帖最后由 srj092005 于 2014-9-1 17:55 编辑

回复 4# neorobin

大神您好，想再问一下代码在哪里体现出了数据除以1000这个概念，比如说我以后想乘以100啊之类，直接在这个模式上改变，还有就是最后的格式，我想存储为
n,10000,10000,10000 这样的形式该怎么处理呢？我改成了这样 echo，%%a，!s!&，set "s="然后就和结果不一样了，然后想把前面IF的那个形式变为直接删除此类行，大神怎么解？

作者: neorobin 时间: 2014-9-1 20:08

本帖最后由 neorobin 于 2014-9-2 20:11 编辑

回复 7# srj092005
cmd 不支持小数运算, 所以没有非常简单直接的方式

关键在第 8-10 行的处理, 举例:
数据: -93.526

第 7 行中 delims=.  将其以 . 为分界符分为两部分 -93  和  526

第 8 行中 00!L:-=! 为整数部分插入若干前缀 0 , 此处要求除以 1000(=10^3) 所以至少插入 2 (=3-1) 个 0, 93 就变成 0093

第 9 行 M=!L:-=!/1000, 取整数部分的绝对值除以 1000, 这个除法不会保留精确商的小数部分, 小数部分由第 7, 8 行保留
L>>=31 得到数据的符号, 负数得到 -1, 否则得到 0

第 10 行:  !L:~0,-1!!M!.!N:~-3!%%q
!L:~0,-1! 取符号, !M! 得到数据除以 1000 后的整数部分, !N:~-3! 是取  00-0093 的最后 3 位 093,
%%q 得到第 7 行分解出来的原小数部分 526,  结果数据就是 -0.093526

第 13 行, 不要在 & 后加 , 号

如果要变成除以 100, 第 8 行中两处 2 个 0 仍然可用 (2 > 1), 因为至少各只需 1 个 0 就行了, 如果是要除以 10000, 0 的个数就必须增加了.
第 9 行 1000 改成 100 即可, 第 10 行 !N:~-3! 中 3 就要改成 2, 如果除数是其他 10 的 n 次方, 以此类推.

如果要以 , 号为分隔符输出,
第 10 行改为

set "s=!s!,!L:~0,-1!!M!.!N:~-3!%%q"
复制代码

第 13 行改为

echo %%a,!s!& set "s="
复制代码

标题行是首行, 可以将第 2 行改为

for /f "tokens=1-4 skip=1" %%a in (a.txt) do (
复制代码

将第 1 行跳过

作者: DAIC 时间: 2014-9-2 12:39

回复 5# srj092005

把13ELIST.lis压缩一下，传上来，我试试。

作者: srj092005 时间: 2014-9-2 13:33

本帖最后由 srj092005 于 2014-9-2 13:38 编辑

回复 8# neorobin

多谢大神指教，还有就是他处理的数据是不是有限？1033行的数据只显示了500多行。能加您QQ吗？

作者: srj092005 时间: 2014-9-2 13:36

回复 9# DAIC

用这个文件试一试，有1033行，任取哪几列都可以，弹出的窗口会显示从1到1033，但是最后只有500多到1033左右。

作者: neorobin 时间: 2014-9-2 14:02

本帖最后由 neorobin 于 2014-9-2 20:13 编辑

回复 10# srj092005

CMD 的窗口缓冲区行数和列数都是有限制的, 你可以用 MODE 命令查看

有大量文本输出时, 把输出定向到文件, 不要在窗口中截取

@echo off & setlocal enabledelayedexpansion

>R.txt (
	for /f "tokens=1-5 delims=," %%a in (node.txt) do (
		for %%A in (%%c %%d %%e) do (
			for /f "tokens=1-2 delims=." %%p in ("%%A") do (
				set "L=%%p" & set "N=00!L:-=!"
				set /a "M=!L:-=!/1000,L>>=31"
				set "s=!s!,!L:~0,-1!!M!.!N:~-3!%%q"
			)
		)
		echo %%a,%%b!s!& set "s="
	)
)
start R.txt
pause
复制代码

作者: terse 时间: 2014-9-2 16:07

回复 12# neorobin
这里第7行 "N=00!L:-=-00!" 和 "N=00!L:-=!" 没区别吧一时没看懂意思

作者: neorobin 时间: 2014-9-2 20:07

回复 13# terse

确实, 我写得多余了, 只需 N=00!L:-=! 就行了

作者: srj092005 时间: 2014-9-3 11:02

回复 14# neorobin

大神我想学批处理，但是没门道，怎么学习这些代码编写啊？之前大学时学了一些C++，但是都忘光了····

作者: srj092005 时间: 2014-9-3 11:11

回复 srj092005
cmd 不支持小数运算, 所以没有非常简单直接的方式

关键在第 8-10 行的处理, 举例:
数 ...
neorobin 发表于 2014-9-1 20:08

其实不仅仅是标题行是这样，中间每隔20行数据就会出现一行与标题行一样的，但是取用的时候不需要，所以我就每次只能手动删除。代码可以实现不取这样的行吗？

作者: srj092005 时间: 2014-9-3 11:13

回复 8# neorobin

其实不仅仅是标题行，中间每隔20行数据都会出现与标题行一样的，所以每次我取完数据后都得手动删除，能用代码实现取数据时就删掉这样的非数据行吗？

作者: neorobin 时间: 2014-9-3 11:17

回复 15# srj092005

微软提供了帮助文件, 此帖有下载页链接

http://www.bathome.net/viewthrea ... mp;highlight=NTCMDS

此论坛的教程&资料区有许多文章, 其中有些知识及技巧甚至是官方帮助文件中未提及的

此论坛的许多精华帖及加分帖,挑战题等可以提供一些更深入精进学习的资源

作者: neorobin 时间: 2014-9-3 11:20

回复 17# srj092005

在 4 楼代码中保留 if /i "%%a"=="NODE" ( , 过滤掉那些非数据行就行了

作者: DAIC 时间: 2014-9-3 12:43

回复 15# srj092005

http://bbs.bathome.net/thread-75-1-1.html

欢迎光临批处理之家 (http://www.bathome.net/)