magelit272

首先解决第一个问题：
在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

600050里面有

magelit272

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

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

我的QQ  515526247

用QQ可以传文件

Batcher

回复 18# magelit272


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

magelit272

回复 19# Batcher


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

magelit272

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

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

magelit272

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

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

jayheight

好厉害:):)