[已解决]批处理如何从所有txt文件提取相应内容后，合并到一个txt文件？

magelit272 · 发表于 2011-10-7 15:26:12

本帖最后由 magelit272 于 2011-10-7 17:16 编辑

首先解决第一个问题：
在600050.txt里

◆ 回顾展望 ◆
循环到
◆  最新指标 (中期定期报告)  ◆

即循环到最开头

.bat在
◆ 回顾展望 ◆
与相邻的
◆  最新指标 (中期定期报告)  ◆
之间
查找关键词 2011-08-25  环比

如果在相邻黑方块内查找到这两个关键词，就提取  环比  上下两行的内容

同理

在000895.txt里

◆  行业新闻  ◆
与相邻的
◆  大事提醒  ◆
之间
查找关键词 2011-08-25  环比

如果在相邻黑方块内查找到这两个关键词，就提取  环比  上下两行的内容

000026.txt查找不到那两个关键词，就不提取，不显示

如果相邻黑方块内  环比  关键词重复，就重复提取  环比  关键词上下两行的内容

还要提取☆这一行的内容

提取的内容之间空一行

这三个.txt文件提取后，合并成一个.txt文件

这样的.bat,怎么写呢？

提取的内容为：

☆曾用名: 中国联通
◆ 回顾展望 ◆             ◇万国测评制作:更新时间:2011-08-25◇
实现服务收入136.00 亿元，同比增长235.2％，季度平均环比增幅达到31.7％。

  ☆曾用名: 双汇实业->双汇发展->S双汇
◆  行业新闻  ◆
●2011-08-25 8月猪肉价格重拾升势(上海证券报)
　　进入8月份以后，猪肉价格又悄然重拾升势。国家统计局24日发布的50个城
市主要食品平均价格变动情况（8月11日到20日）显示，猪肉后臀尖价格达到3
1.18 元/公斤，环比上涨0.3%，五花肉价格为30.22元/公斤，环比上涨0.4%。
在8月上旬，猪肉后臀尖的价格环比持平，但五花肉价格环比上涨0.1%。

magelit272 · 发表于 2011-10-7 15:28:34

600050里面有

magelit272 · 发表于 2011-10-7 15:30:31

本帖最后由 magelit272 于 2011-10-7 15:36 编辑

由于文件大，删减，就不能完整展示信息

想了办法，也一直传不上去

我的QQ 515526247

用QQ可以传文件

Batcher · 发表于 2011-10-7 16:52:49

回复 18# magelit272

压缩一下再上传，可以吗？

magelit272 · 发表于 2011-10-7 16:55:51

回复 19# Batcher

好的
这次分卷压缩，共四卷：

magelit272 · 发表于 2011-10-7 16:56:21

本帖最后由 magelit272 于 2011-10-7 17:25 编辑

终于上传成功，谢谢老师们

请老师们继续解决我的问题

magelit272 · 发表于 2011-10-11 11:06:02

回复 21# magelit272

本帖已由batman(威士)大师完美、胜利完成，完成了原创性的编写代码工作，处理两千多个.txt文件，深表感谢和衷心的祝贺

下面就是这历史性的原创代码，以batman大师的名字命名：

@echo off&setlocal enabledelayedexpansion
del new*>nul 2>nul
(for /f "delims=" %%a in ('dir /on /b *.txt') do (
setlocal
for /f "delims=" %%b in ('type %%a^&echo ◆结尾◆') do (
if defined ok if not defined "%%b" echo,%%b&set "ok="&set ""%%b"=a"
set "str=%%b"
if "!str:☆曾用名=!" neq "!str!" set "bt=!str!"
for %%c in ("◆控盘情况◆" "◆成交回报(单位:万元)◆" "◆ 大事提醒 ◆" "◆ 公司概况 ◆" "◆ 回顾展望 ◆" "◆结尾◆") do if "!str:%%~c=!" neq "!str!" set "flag="&set "str1="
for %%c in ("◆最新消息◆" "◆概念题材◆" "◆ 行业新闻 ◆" "◆ 八面来风 ◆" "◆ 信息快讯 ◆") do (
if "!str:%%~c=!" neq "!str!" set "flag=a"&set "bk=!str!"
if "!str:◆ 回顾展望 ◆=!" neq "!str!" set "flag=a"&set "bk=!str! "
)
if defined flag (
if "!str:2011-08-25=!" neq "!str!" if "!str!" neq "!bk!" set "str1=!str! "
if defined str1 (
if "!str:环比=!" neq "!str!" (
for %%c in ("!bt!" "!bk!" "!str1!" "!var!" "!str!") do if not defined %%c echo %%~c&set "%%c=a"
for %%c in (bt bk) do set "%%c="
set "ok=a"
)
)
)
set "var=!str!"
)
endlocal&echo ----------------------------------------------------------------------
))>new
move /y new new.txt
start new.txt

复制代码

这个代码用于：股市关于万国测评的浩如烟海的f10资料的特别内容提取、合成以及自动打开。

magelit272 · 发表于 2011-10-11 11:52:30

上面两个文件是一样的
不好意思

jayheight · 发表于 2016-4-12 13:13:28

好厉害

:):)

		自动登录	找回密码
密码			注册

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

[文件操作] [已解决]批处理如何从所有txt文件提取相应内容后，合并到一个txt文件？