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

Rank: 1

帖子
5 
积分
17 
技术
0  
捐助
0  
注册时间
2020-11-14 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2020-11-14 20:29 | 只看该作者

[文本处理] [已解决]如何提取html特定链接代码，用title名称重命名以链接文件名存储的文件？

现状：
1、文件结构：某文件夹中有2个子文件夹，一个是html文件夹，该文件夹中有N个html文件；另一个是jpg文件夹，该文件夹有N个子文件夹，形如dir1,dir2...dirN，每个dir里有不定数量的jpg文件(文件名以字母或数字命名)。
2、html代码：每个html包含特定的2行代码，形如<title>样例</title>和<src="../jpg/DirN/sample.jpg">。
3、html文件与jpg文件的关系。html中<src="../jpg/DirN/sample.jpg">的sample.jpg已存储在jpg/DirN文件夹中。


需求：
查找所有html文件，提取每个html中的<title>样例</title>及<src="../jpg/DirN/sample.jpg">，将以sample.jpg命名对应保存在jpg/DirN文件夹中的sample.jpg文件重命名为样例.jpg。
收藏 分享

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
2楼
发表于 2020-11-15 12:03 | 只看该作者 
  1. #&cls&@powershell "Get-Content '%~0' | Out-String | Invoke-Expression" & pause&exit

  2. 

  3. dir -Recurse *.html | %{

  4. $title = [Regex]::Match((gc $_),"(?<=<title>).*(?=</title>)")

  5. $img = [Regex]::Match((gc $_),"(?<=src="").*(?=\"")")

  6. $title = $title.Value

  7. $img = $img.Value.Substring(1)

  8. $ext = "."+$img.Split(".")[2]

  9. Rename-Item -Path $img -NewName $title$ext  -Verbose

  10. }
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

YY2020

Rank: 1

帖子
5 
积分
17 
技术
0  
捐助
0  
注册时间
2020-11-14 
3楼
发表于 2020-11-15 13:26 | 只看该作者
回复 2# ivor

感谢ivor！代码运行时，出现错误，如图：

麻烦再看下是哪里出了问题。

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
4楼
发表于 2020-11-15 13:56 | 只看该作者
本帖最后由 ivor 于 2020-11-15 13:58 编辑

脚本命名为1.bat,保存位置：html文件夹、jpg、1.bat
  1. │  1.bat

  2. │

  3. ├─html

  4. │      1.html

  5. │      N.html

  6. │      此目录下有N个不规则以英文或数字命名的Html文件

  7. │

  8. └─jpg

  9.     │  此文件夹下有N个不规则以英文或数字命名的子文件夹

  10.     │

  11.     ├─Dir1

  12.     │      test.jpg

  13.     │

  14.     └─DirN

  15.             sample.jpg
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

YY2020

Rank: 1

帖子
5 
积分
17 
技术
0  
捐助
0  
注册时间
2020-11-14 
5楼
发表于 2020-11-15 14:11 | 只看该作者
回复 4# ivor

照您的方法试了，执行后显示“请按任意键继续. . .”，查看JPG文件夹中的文件名，没有变化，还是原文件名。

TOP

YY2020

Rank: 1

帖子
5 
积分
17 
技术
0  
捐助
0  
注册时间
2020-11-14 
6楼
发表于 2020-11-15 16:51 | 只看该作者
感谢ivor大神提供的代码，问题已解决。

谢谢各位关注及参与。分享代码：

#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0'))" &pause&exit

dir -Recurse -Filter *.html | %{
$title = [Regex]::Match((gc $_.FullName),"(?<=<title>).*(?=</title>)")
$img = [Regex]::Match((gc $_.FullName),"(?<=src="").*(?=\"")")
$title = $title.Value
$img = $img.Value.Substring(1)
$ext = "."+$img.Split(".")[2]
Rename-Item -Path $img -NewName $title$ext  -Verbose
}

TOP

返回列表