批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理怎样提取指定字符后面的数字？ [打印本页]

作者: Rasm 时间: 2011-10-26 10:25 标题: 批处理怎样提取指定字符后面的数字？

本来是用EXCEL做的,但是那个打开太大,速度慢,所以我用了QQ记事本来做

但总消费金额算下来,一个个太麻烦,所以我把每天每次消费i额的金额在最后一行做了标注,字符用 @分割

我就是想,能否提取 @后面的字符到文本,并按顺序排列

这样,我就可以直接复制到EXCEL里进行统计计算了

做的笔记如下:

20110329早餐酱饼2,稀饭0.5 @2.5
20110329晚饭青菜面3,荷包蛋1.5 @4.5
20110330早餐炒面5 @5
20110330晚饭 2包泡面3,香肠3 @6
20110330夜宵黄鹤楼21 @21
20110331早餐稀饭0.5,酱饼2 @2.5
20110331晚饭青菜面3,荷包蛋1.5,蒸饺3 @7.5
20110401早饭酱饼2,花生牛奶1 @3
20110401晚饭青菜面3,荷包蛋1.5,蒸饺3 @7.5
20110401晚上雪碧 3 @3
20110401晚上蓝色利群 17.5 @17.5
20110402早饭酱饼 2 @2
20110402晚饭蛋炒饭5 @5
20110402夜宵辣鸡腿面包2 @2
20110403傍晚排骨肉粽6,大肉粽6 @12
20110404......................
20110405中午两本书 20 @20

作者: sxw 时间: 2011-10-26 10:46

本帖最后由 sxw 于 2011-10-26 10:49 编辑

笔记存为1.txt

perl -lan -F"\@" -e "push @s,$F[1];END{print join \"\n\",sort {$a<=>$b}@s}" 1.txt
复制代码

精简版的Perl解释器：
http://www.bathome.net/thread-12390-1-3.html

作者: caruko 时间: 2011-10-26 10:54

(for /f "tokens=2 delims=@" %%a in (笔记.txt) do echo,%%a) >提取.txt

作者: Rasm 时间: 2011-10-26 10:59

回复 3# caruko

C:\Documents and Settings\Administrator\桌面>echo,2.5
2.5

C:\Documents and Settings\Administrator\桌面>echo,4.5
4.5

C:\Documents and Settings\Administrator\桌面>echo,5
5

C:\Documents and Settings\Administrator\桌面>echo,6
6

C:\Documents and Settings\Administrator\桌面>echo,21
21

为什么多了C:\Documents and Settings\Administrator\桌面>echo,21
这一行

这一行可以去掉吗

作者: Rasm 时间: 2011-10-26 11:00

回复 2# sxw

求批处理,bat代码

作者: Rasm 时间: 2011-10-26 14:13

没人回答了吗

作者: sxw 时间: 2011-10-26 14:21

回复 6# Rasm

还要排序，输出后你直接粘贴在excel中，让它给你排吧

作者: hfg1977 时间: 2011-10-26 17:48

直接统计总消费(不用excel):

@echo off
:start ============================================================
set/a _p=0,_s=0

for /f "tokens=2 usebackq delims=@" %%a in ("01.txt") do (
echo %%~a
for /f "tokens=1,2 delims=." %%A in ("%%~a") do (set/a _p+=%%A,_s+=%%B 2>nul)
)

set/a "_p+=%_s:~0,-1%","_s=%_s:~-1%"
echo.--------%_p%.%_s%--------
复制代码

作者: 920168 时间: 2011-10-26 19:52

echo off
for /f "tokens=2 delims=@" %%a in (数据.txt) do echo %%a>>提取.txt
pause
复制代码

作者: sxw 时间: 2011-10-27 00:08

直接在excel中做算鸟，排序一下，再函数

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