[文本处理] 【已解决】BAT如何提取文本指定内容？谢谢大家了！

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

2楼

发表于 2013-10-19 17:59 | 只看该作者

来个纯批，不知道能不能用

@echo off
for /f "delims=" %%a in ('find /i "href="^<a.txt') do (
    set "str=%%a"
    setlocal enabledelayedexpansion
    for %%b in ("!str:href=" "!") do (
        endlocal
        for /f tokens^=1-2delims^=^=^" %%c in ("%%~b") do (
            if /i "%%d"==" target" echo,%%c
        )
    )
)
pause
复制代码

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

3楼

发表于 2013-10-19 18:03 | 只看该作者

本帖最后由 apang 于 2013-10-19 18:04 编辑

vbs

Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt").ReadAll
Set re = New RegExp
re.Pattern = "href=""(/txt/[^=]*\.html)"" target="
re.Global = True
re.IgnoreCase = True
For Each a In re.Execute(text)
    str = str & a.SubMatches(0) & vbCrLf
Next
fso.opentextfile("b.txt",2,true).Write str
复制代码

2 评分人数

1270697389: 非常好用技术 + 1
Batcher: 乐于助人技术 + 1

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

4楼

发表于 2013-10-19 21:17 | 只看该作者

来个纯批，不知道能不能用
apang 发表于 2013-10-19 17:59

这个代码只能提取前30个，后面的提取不了，能改进一下吗？谢谢您！

初九的冬天

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

5楼

发表于 2013-10-19 21:19 | 只看该作者

vbs
apang 发表于 2013-10-19 18:03

谢谢您，可以执行，要是有纯批处理的就好了。

初九的冬天

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

6楼

发表于 2013-10-19 21:46 | 只看该作者

回复 4# 1270697389

如果文本中存在超长行，纯批没有办法解决

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

7楼

发表于 2013-10-20 08:15 | 只看该作者

回复 1270697389

如果文本中存在超长行，纯批没有办法解决
apang 发表于 2013-10-19 21:46

非常感谢！

初九的冬天

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

8楼

发表于 2013-10-20 08:17 | 只看该作者

谢谢apang的帮助，谢谢！完美实现

初九的冬天

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

9楼

发表于 2013-10-21 19:09 | 只看该作者

vbs
apang 发表于 2013-10-19 18:03

你好！这个批处理很好用，可是我不会变通，比如我要复制文本中的：
a.txt
这个批处理很好用，可是我不会变通，比如我要复制文本中的
Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt").ReadAll
Set re = New RegExp
rem re.Pattern = "href=""(/txt/[^=]*\.html)"" target="
re.Pattern = "这""(个[^=]*\文)"" 本"
re.Global = True
re.IgnoreCase = True
For Each a In re.Execute(text)
str = str & a.SubMatches(0) & vbCrLf
Next
fso.opentextfile("b.txt",2,true).Write str

可是我改了这一段运行不了。谢谢

初九的冬天

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

10楼

发表于 2013-10-21 21:26 | 只看该作者

回复 9# 1270697389

比如，提取 "这个" 与 "文本" 之间的内容，括弧包围的就代表要提取的内容：
这个批处理很好用，可是这个我不会变通，比如我要复制文本中的文本
re.Pattern = ".*这个(.*?)文本"

这个批处理很好用，可是这个我不会变通，比如我要复制文本中的文本
re.Pattern = "这个(.*)文本"

1 评分人数

1270697389: 乐于助人技术 + 1

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

11楼

发表于 2013-10-22 07:43 | 只看该作者

回复 1270697389

比如，提取 "这个" 与 "文本" 之间的内容，括弧包围的就代表要提取的内容：
这 ...
apang 发表于 2013-10-21 21:26

太好了，谢谢！

初九的冬天

Rank: 5 Rank: 5

帖子: 182
积分: 1035
技术: 4
捐助: 0
注册时间: 2013-10-3

12楼

发表于 2013-10-22 10:58 | 只看该作者

回复 1270697389

比如，提取 "这个" 与 "文本" 之间的内容，括弧包围的就代表要提取的内容：
这 ...
apang 发表于 2013-10-21 21:26

<li><a href="http://www.chuxingyi.net/txt/1_1.html">玄幻</a></li>
向这种怎么写：
re.Pattern = "href=""(.*)""^>"

初九的冬天

work345

列兵

Rank: 1

帖子: 4
积分: 15
技术: 0
捐助: 0
注册时间: 2013-10-22

13楼

发表于 2013-10-22 11:44 | 只看该作者

:)学习下 :):)