找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 26660|回复: 4

[文本处理] [已解决]批处理如何提取制定文字后面的第一个数字?

[复制链接]
发表于 2011-2-8 22:34:07 | 显示全部楼层 |阅读模式
本帖最后由 xptool 于 2011-10-12 19:49 编辑

如何用批处理提取制定文字后面的第一个数字

13551非官方价格法规范历史 3 3255 426方价格法规范
非官方价格法规范 5244 非官方价格法规范 历史67890方价格法规范
非官方价格法规范历史6   5244
历史 667573 55

我想提取历史后面第一个数字

结果是3
          67890
          6
          667573

请朋友帮帮忙

如果只提取第一个历史后面的数字 应该怎么写呢

[ 本帖最后由 xptool 于 2011-2-9 13:00 编辑 ]

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2011-2-8 23:34:30 | 显示全部楼层
每行只有一个“历史”
  1. @echo off
  2. for /f "delims=" %%i in (a.txt) do (
  3.    set sun=%%i
  4.    setlocal enabledelayedexpansion
  5.    set str=!sun:*历史=!
  6.    if not "!str!"=="!sun!" (
  7.       for /f "tokens=1 delims= " %%j in ("!str!") do set str=a%%j
  8.       set str=!str: =!a
  9.       for /l %%j in (0 1 9) do set str=!str:%%j= %%j !
  10.       for /f "tokens=1* delims= " %%a in ("!str!") do set str=%%b
  11.       set str=!str: =!
  12.       for /l %%j in (0 1 9) do set str=!str:%%j= %%j !
  13.       for %%a in (!str!) do (
  14.          set var=!var!!num!
  15.              set num=%%a
  16.       )
  17.       echo !var!
  18.    )
  19.    endlocal
  20. )
  21. pause
复制代码

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

发表于 2011-2-9 02:59:37 | 显示全部楼层
支持一行多个历史,但是因为偷懒,只过滤历史与数字之间的一个空格,多了就会漏:
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "delims=" %%a in (a.txt) do (
  3.     set a=%%a&set b= %%a
  4.     for /l %%b in (0 1 9) do set a=!a:%%b= !
  5.     set a=!a:历史 = !
  6.     for %%b in (!a!) do set b=!b:%%b=!
  7.     set b=!b:史 =史!
  8.     for /l %%b in (0 1 9) do set b=!b:%%b历=%%b 历!
  9.     for %%b in (!b!) do (
  10.         set c=%%b
  11.         if "!c:~0,2!"=="历史" echo;!c:~2!
  12.     )
  13. )
  14. pause
复制代码

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2011-2-9 12:11:46 | 显示全部楼层
谢谢帮助

如果只提取第一个历史后面的数字 应该怎么写呢
发表于 2011-2-9 12:14:27 | 显示全部楼层

回复 4楼 的帖子

请把所有的需求全部更新到顶楼
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 03:25 , Processed in 0.016787 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表