批处理怎样提取指定字符后面的数字？

Rasm

本来是用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

笔记存为1.txt

1. 
   
2. 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

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

Rasm

回复 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

回复 2# sxw


    求批处理,bat代码

Rasm

没人回答了吗

sxw

回复 6# Rasm


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

hfg1977

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

1. 
   
2. @echo off
   
3. :start ============================================================
   
4. set/a _p=0,_s=0
   
5. 
   
6. for /f "tokens=2 usebackq delims=@" %%a in ("01.txt") do (
   
7. echo %%~a
   
8. for /f "tokens=1,2 delims=." %%A in ("%%~a") do (set/a _p+=%%A,_s+=%%B 2>nul)
   
9. )
   
10. 
    
11. set/a "_p+=%_s:~0,-1%","_s=%_s:~-1%"
    
12. echo.--------%_p%.%_s%--------
    

复制代码

920168

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

复制代码

sxw

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