[文本处理] 批处理从多个文件中读取这两行之间的内容如何提高效率？

Rank: 1

帖子: 12
积分: 24
技术: 0
捐助: 0
注册时间: 2019-1-3

2楼

发表于 2019-1-16 17:55 | 只看该作者

稍微修改一下，在第九行之后和:next之前添加一行
goto :eof

学习批处理，休息一下午

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

3楼

发表于 2019-1-16 20:44 | 只看该作者

试试这样需要几分钟：

@echo off
setlocal enabledelayedexpansion
set "new_name=newf01"

for /l %%i in (1,1,10) do (
    set cc_i=%%i
    call :next !cc_i!
)
goto :eof

:next
set file_name=pf_s%1.f01
(for /f "delims=" %%i in (%file_name%) do (
    set "s=%%i"
    if not "!s:BUFFER POOL AND=!" == "!s!" (
        set flag=
    ) else if defined flag (
        echo,!s!
    )
    if not "!s:DATABASE USAGE=!" == "!s!" (
        set "flag=1"
    )
    if not "!s:DATABASE USAGE=!" == "!s!" (
        echo ---%~dp0 --- %file_name% --- %date% ---
    )
))>>"%new_name%.txt"
复制代码

1 评分人数

soarhu: 极大地提高了效率！++赞&#128077;技术 + 1

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

4楼

发表于 2019-1-16 20:46 | 只看该作者

回复 2# soarhu

可以点击楼层左下角的“编辑”

yhcfsr

中尉

Rank: 5 Rank: 5

帖子: 635
积分: 969
技术: 107
捐助: 0
注册时间: 2017-11-23

5楼

发表于 2019-1-16 22:06 | 只看该作者

更新

本帖最后由 yhcfsr 于 2019-1-16 23:45 编辑

@echo off
set "new_name=newf01.txt"

for /L %%i in (1,1,10) do if exist "pf_s%%i.f01" call :next "pf_s%%i.f01"
pause&exit
:next
setlocal enabledelayedexpansion
(for /F "delims=" %%i in ('type "%~1"') do (
    set "str=%%i"
	if "!str:DATABASE USAGE=!" neq "!str!" goto :break
	if "!str:BUFFER POOL AND=!" neq "!str!" (set "begin=1") else if defined begin echo;!str!
))>>"%new_name%"
:break
endlocal
复制代码

QQ 33892006

WHY

上校

Rank: 6 Rank: 6

帖子: 1482
积分: 3266
技术: 567
捐助: 0
注册时间: 2015-7-19

6楼

发表于 2019-1-16 22:23 | 只看该作者

回复 5# yhcfsr

如果文件中存在 ! 符号，会被丢弃！！！

1 评分人数

523066680: 你不是人造革，你是真的皮PB + 6

yhcfsr

中尉

Rank: 5 Rank: 5

帖子: 635
积分: 969
技术: 107
捐助: 0
注册时间: 2017-11-23

7楼

发表于 2019-1-16 22:50 | 只看该作者

本帖最后由 yhcfsr 于 2019-1-16 22:51 编辑

回复 6# WHY

题主都说这么用可以实现,只是差点效率.所以我也就偷懒了.
如果要避免!号的问题,我看只能混编了

QQ 33892006

Rank: 1

帖子: 12
积分: 24
技术: 0
捐助: 0
注册时间: 2019-1-3

8楼

发表于 2019-1-16 22:58 | 只看该作者

本帖最后由 soarhu 于 2019-1-16 23:01 编辑

回复 3# Batcher

非常感谢Batch的关注和热心回复，
经过单次测试，好消息是新的Batcher大概快一分钟。

有个问题，只输出了最后一个的内容。可能是哪里有些许问题。

再次感谢！

Batcher

学习批处理，休息一下午

Rank: 1

帖子: 12
积分: 24
技术: 0
捐助: 0
注册时间: 2019-1-3

9楼

发表于 2019-1-16 23:04 | 只看该作者

回复 6# WHY

非常感谢指出这个问题！
目前，！不是问题。需要提取的内容当中不包含符号！
可能有*** ---- 等符号。

感谢Bahome高手热心指点！

学习批处理，休息一下午

Rank: 1

帖子: 12
积分: 24
技术: 0
捐助: 0
注册时间: 2019-1-3

10楼

发表于 2019-1-16 23:28 | 只看该作者

回复 5# yhcfsr

这一改进简单测试，不可运行，提示错误
The filename, directory name, or volume label syntax is incorrect.
我认为可能是我的目录中含有下划线的原因。
但是放到没有特殊字符的目录下，有同样的错误出现。暂时未能运行。如果了解原因，请告知，

谢谢你对这一问题的关注和热心回复。

学习批处理，休息一下午

Rank: 1

帖子: 12
积分: 24
技术: 0
捐助: 0
注册时间: 2019-1-3

11楼

发表于 2019-1-16 23:29 | 只看该作者

回复 4# Batcher

嗯，谢谢，已经改正

学习批处理，休息一下午

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

12楼

发表于 2019-1-16 23:30 | 只看该作者

回复 8# soarhu

请详细说明一下“只输出了最后一个的内容”

yhcfsr

中尉

Rank: 5 Rank: 5

帖子: 635
积分: 969
技术: 107
捐助: 0
注册时间: 2017-11-23

13楼

发表于 2019-1-16 23:47 | 只看该作者

本帖最后由 yhcfsr 于 2019-1-16 23:49 编辑

回复 10# soarhu
5楼代码我稍微改了下,根据实际情况,修改第4行两处引号内与文件名相关的地方.

@echo off
set "new_name=newf01.txt"

for /L %%i in (1,1,10) do if exist "pf_s%%i.f01" call :next "pf_s%%i.f01"
pause&exit
:next
setlocal enabledelayedexpansion
(for /F "delims=" %%i in ('type "%~1"') do (
    set "str=%%i"
	if "!str:DATABASE USAGE=!" neq "!str!" goto :break
	if "!str:BUFFER POOL AND=!" neq "!str!" (set "begin=1") else if defined begin echo;!str!
))>>"%new_name%"
:break
endlocal
复制代码

QQ 33892006

Rank: 1

帖子: 12
积分: 24
技术: 0
捐助: 0
注册时间: 2019-1-3

14楼

发表于 2019-1-17 12:52 | 只看该作者

本帖最后由 soarhu 于 2019-1-17 13:04 编辑

回复 12# Batcher

前面的文件都没有输出，最后仅输出了最后一个文件的两行之间的内容。
嗯，具体原因稍晚我会再研究一下。如果有新发现，请告知。谢谢

---file_path--- file_name10--- date ---
text between line_keyword_a and line_keyword_b in file10

学习批处理，休息一下午

Rank: 1

帖子: 12
积分: 24
技术: 0
捐助: 0
注册时间: 2019-1-3

15楼

发表于 2019-1-17 12:53 | 只看该作者

回复 13# yhcfsr

嗯，感谢小修改，稍晚我会试一下。

学习批处理，休息一下午