[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 批处理怎样提取指定字符后面的数字?

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

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

TOP

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

评分人数

    • Rasm: 感谢你的帮助技术 + 1
http://www.diecasting86.com

TOP

直接统计总消费(不用excel):
  1. @echo off
  2. :start ============================================================
  3. set/a _p=0,_s=0
  4. for /f "tokens=2 usebackq delims=@" %%a in ("01.txt") do (
  5. echo %%~a
  6. for /f "tokens=1,2 delims=." %%A in ("%%~a") do (set/a _p+=%%A,_s+=%%B 2>nul)
  7. )
  8. set/a "_p+=%_s:~0,-1%","_s=%_s:~-1%"
  9. echo.--------%_p%.%_s%--------
复制代码
1

评分人数

    • Rasm: 你这直接总计总消费的不行,没反应技术 + 1
“阿姐走了。。。可是。。。我。。。我愿意。”

TOP

回复 6# Rasm


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

TOP

没人回答了吗

TOP

回复 2# sxw


    求批处理,bat代码

TOP

回复 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
这一行


这一行可以去掉吗

TOP

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

TOP

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

笔记存为1.txt
  1. 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

TOP

返回列表