100元人民币 求bat或Powershell处理文本内容【已解决】

smss

Rank: 5 Rank: 5

帖子: 575
积分: 779
技术: 37
捐助: 0
注册时间: 2018-11-29

63楼

发表于 2019-6-1 17:13 | 只看该作者

本帖最后由 smss 于 2019-6-4 15:25 编辑

回复WHY
图1图2是a文件和b文件比对存在的问题如果名称是A 替换成了B 当出现@AA或者@ABC时(且没有任何name="AA"与之关联时)会被替换成@BA或@BBC

图3是c文件和d文件比对存在的问题

如何批量删除src=""中.png.jpg.webp 及srcExp=""中.png.jpg.webp或+'.png'+'.jpg'+'.webp'同步变更目录下脚本中涉及的图片名称
如
<Image src="Ai/123.png" x="0" y="0"/>
<Image src="Ai/c.jpg" x="100" y="20"/>
<Image src="Ai/345.webp" x="1003" y="203"/>
<Image srcExp="'Ai/timing/'+ifelse(#start_pause==1,'Stop','count')+'.png'"/> 注意其中可能涉及变量名需要同步

方案A 改名称为A~ZZZZ之间
<Image src="Ai/A" x="0" y="0"/>
<Image src="Ai/B" x="100" y="20"/>
<Image src="Ai/C" x="1003" y="203"/>
<Image srcExp="'Ai/timing/'+ifelse(#start_pause==1,#A,#B)+'.png'"/>
方案B 仅删除后缀但是需要规避重名（如同时出现1.png和1.jpg时删除后缀将导致重名冲突）
<Image src="Ai/123" x="0" y="0"/>
<Image src="Ai/c" x="100" y="20"/>
<Image src="Ai/345" x="1003" y="203"/>
<Image srcExp="'Ai/timing/'+ifelse(#start_pause==1,'Stop','count')"/>

还有我应该怎样改成 PowerShell "" 这样以BAT方式运行的加了几个^有什么特殊的地方说明吗？
以下是目前的

$global:n = 0; $Hash=@{};
$str = [IO.File]::ReadAllText('manifest.xml',[Text.Encoding]::Default);

#修改name属性的值，如果name属性值以music_prev或music_display或music_next等开头，或者节点名为Extra，则不修改
$reg1 = '(?<=<(?!Extra)[^<>]*\sname=")(?!notice)(?!music_(?:prev|display|next|play|pause|album_cover))(?!notification_(?:icon|title|content|time|info|subtext|key|list))[^"]+(?=")';

#如果command与target同时出现，command="play"，则修改target属性值，
$reg2 = '(?<=\starget=")[^"]+(?="[^<>]*\scommand="play)|(?<=\scommand="play[^<>]*\starget=") [^"]+(?=")';

$str = [regex]::Replace($str, $reg1 + '|' + $reg2, {
    param($m);
    $key = $m.Value;
    if( !$Hash.ContainsKey($key) ){
        $x = [Math]::floor( $global:n / 26 );
        if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
        $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
    }
    $Hash[$key];
})

$arrKey = $Hash.Keys | sort -Desc {$_.Length};

#如果属性值包含@#字符，或者属性值以 .animation或.visibility 结尾，则修改
$str = [regex]::Replace($str, '(?<=")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
    param($m);
    $s = $m.Groups[1].Value;
    forEach( $key In $arrKey ) {
        $s = $s.Replace( '@' + $Key, '@' + $Hash[$Key] );
        $s = $s.Replace( '#' + $Key, '#' + $Hash[$Key] );
        $s = $s.Replace( $Key + '.animation', $Hash[$Key] + '.animation' );
        $s = $s.Replace( $Key + '.visibility', $Hash[$Key] + '.visibility' );
    }
    $s;
})

[IO.File]::WriteAllText('manifest2.xml', $str, [Text.Encoding]::UTF8);

$str = [IO.File]::ReadAllText('config.xml', [Text.Encoding]::Default);
$str = [regex]::Replace($str, '(?<=\sid=")[^"]+(?=")', {param($m); if($Hash[$m.Value]){$Hash[$m.Value]}else{$m.Value}});
[IO.File]::WriteAllText('config2.xml', $str, [Text.Encoding]::UTF8);

echo 'Done';
[Console]::ReadKey()
复制代码

smss

Rank: 5 Rank: 5

帖子: 575
积分: 779
技术: 37
捐助: 0
注册时间: 2018-11-29

62楼

发表于 2019-5-28 13:57 | 只看该作者

回复 61# Batcher 我是怕浪费了他的宝贵时间

Batcher

管理员

Rank: 12

帖子: 14788
积分: 45964
技术: 847
捐助: 745
注册时间: 2008-6-9

61楼

发表于 2019-5-28 08:20 | 只看该作者

回复 59# smss

兄弟，你可不能劝人放弃啊

请坚信：这个论坛里面绝大部分人写代码不是为了挣钱

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

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

60楼

发表于 2019-5-28 00:59 | 只看该作者

回复 59# smss
1，加入了区分大小写
2，加入了完整词检查
3，加入了多种位置变量的替换，自己可以根据情况添加

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off
set /p "strFile=请拖入处理文本:"


setlocal enabledelayedexpansion

if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)


endlocal

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 定义可用于命名的字符表
set tab="." [ + - ^"

rem 例外情况定义
set exception=Extra Button
set z=
set o=

setlocal enabledelayedexpansion

for /f "tokens=1* delims==" %%a in (!strFile!) do (


 	for /f "tokens=1,2 delims= " %%K in ("1 !z!") do (
endlocal
	set z=%%L
	set s1=%%a
	set s2=%%b
setlocal enabledelayedexpansion

 	)


	if defined z for %%k in (%exception%) do (
		if "#!s1:</%%k>=!" neq "#!s1!" (
			set z=!z:~1!
		)
	)

 	for %%k in (%exception%) do (
		if "!s1:<%%k=!" neq "!s1!" (
			if "#!s2:/>=!" equ "#!s2!" (
				set z=!z!y
			) else (
				set o=o
			)
		)
	)



	if "!o!!z!!s1:~-5!" equ " name" (
	
		set s3=!s2:^"= !
		
		for /f "tokens=1 delims= " %%c in ("!s3!") do (
		
			if not defined #%%~c (

				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!


				for /f "tokens=1,2,3 delims= " %%x in ("!n! !ss! !z!") do (
					endlocal
					set $%%x=%%y囧%%~c
					set #%%~c=%%y
					set /a n+=1
					set z=%%z
					setlocal enabledelayedexpansion
			
				)
			)
		)
	
	)



)

set/a n-=1

(
for /f "tokens=1,*" %%a in (!strFile!) do (

endlocal
	set stra=%%a
	set str=%%b
setlocal enabledelayedexpansion

	if defined str (
		set "str=!stra! !str: =!"
		for /l %%1 in (0,1,%n%) do (
			for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
				if "!str:%%c=!" neq "!str!" (
				if "!str:%%c=%%c!" equ "!str!" (
					set str=!str:"%%c"="%%b"!
					set str=!str:"@%%c"="@%%b"!
					set str=!str:"#%%c"="#%%b"!
					if "!str:*%%c=!" neq "!str!" (
						call	:parti %%c %%b
					)
				))
			)
		)

	) else (

		set str=%%a

	)	

	echo;!str!

)

) >结果.txt

start 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀，多个，A 到 ZZZZ 多个
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof

rem 非双引号位置处理 如：#xxxx+  #xxxx[  ]  #xxxx.dir  
:parti
for %%a in (!tab!) do (
	if "!str:%1%%~a=!" neq "!str!" (
		if "!str:%1%%~a=%1%%~a!" equ "!str!" (
			set str=!str:@%1%%~a=@%2%%~a!
			set str=!str:#%1%%~a=#%2%%~a!
			if "!str:*%1=!" equ "!str!" (
				goto :partiE
			)
		)
	)
)
:partiE

goto :eof
复制代码

smss

Rank: 5 Rank: 5

帖子: 575
积分: 779
技术: 37
捐助: 0
注册时间: 2018-11-29

59楼

发表于 2019-5-27 01:48 | 只看该作者

本帖最后由 smss 于 2019-5-27 01:58 编辑

回复 56# netbenton

放弃吧
比对一下会出现如下错误如 name="sh" expression="#screen_height" 被替换成name="QHA" expression="#screen_height"

当出现@shqwfwdwe或@Shqwfwdwe这种将被替换@QHAqwfwdwe 它不判断大小写和完整字符

amwfjhh

六级士官

Rank: 4

帖子: 314
积分: 408
技术: 19
捐助: 0
注册时间: 2014-11-3

58楼

发表于 2019-5-27 01:05 | 只看该作者

回复 56# netbenton

代码风格看着舒服…

echo,hP1X500P[PZBBBfh#b##fXf-V@`$fPf]f3/f1/5++u5x>in.com

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

57楼

发表于 2019-5-27 00:04 | 只看该作者

回复 55# xczxczxcz

我觉得批处理也可以做得到

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

56楼

发表于 2019-5-27 00:03 | 只看该作者

数组也可以处理了。
终于全部搞好了，连特殊符号“！”号也处理好了！！！

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off




set /p "strFile=请拖入处理文本:"

setlocal enabledelayedexpansion

if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)


endlocal

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 例外情况定义
set exception=Extra Button
set z=
set o=

setlocal enabledelayedexpansion

for /f "tokens=1* delims==" %%a in (!strFile!) do (


 	for /f "tokens=1,2 delims= " %%K in ("1 !z!") do (
endlocal
	set z=%%L
	set s1=%%a
	set s2=%%b
setlocal enabledelayedexpansion

 	)


	if defined z for %%k in (%exception%) do (
		if "#!s1:</%%k>=!" neq "#!s1!" (
			set z=!z:~1!
		)
	)

 	for %%k in (%exception%) do (
		if "!s1:<%%k=!" neq "!s1!" (
			if "#!s2:/>=!" equ "#!s2!" (
				set z=!z!y
			) else (
				set o=o
			)
		)
	)



	if "!o!!z!!s1:~-5!" equ " name" (
	
		set s3=!s2:^"= !
		
		for /f "tokens=1 delims= " %%c in ("!s3!") do (
		
			if not defined #%%~c (

				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!


				for /f "tokens=1,2,3 delims= " %%x in ("!n! !ss! !z!") do (
					endlocal
					set $%%x=%%y囧%%~c
					set #%%~c=%%y
					set /a n+=1
					set z=%%z
					setlocal enabledelayedexpansion
			
				)
			)
		)
	
	)



)

set/a n-=1

(
for /f "tokens=1,*" %%a in (!strFile!) do (

endlocal
	set stra=%%a
	set str=%%b
setlocal enabledelayedexpansion

	if defined str (
		set "str=!stra! !str: =!"
		for /l %%1 in (0,1,%n%) do (
			for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
				set str=!str:"%%c"="%%b"!
				set str=!str:@%%c=@%%b!
				set str=!str:#%%c=#%%b!
			)
		)

	) else (

		set str=%%a

	)	

	echo;!str!

)

) > 结果.txt

start 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀，多个，A 到 ZZZZ 多个
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof
复制代码

xczxczxcz

Rank: 5 Rank: 5

帖子: 709
积分: 961
技术: 83
捐助: 0
注册时间: 2012-9-14

55楼

发表于 2019-5-26 21:15 | 只看该作者

回复 54# netbenton

以前偶用纯P写的时候，经常前面设好的坑到后面忘记填坑。唉。现在一些旧的脚本还保留着原P外，新的一律用PS写。用P写的时候经常要用硬盘做临时存储交换。特别是有特殊符号时。现在基本只用内存交换。
《题外话。自从用了win10后，我已经坏了两块机械硬盘。因为读盘比以前的系统更利害了。SSD倒是5年了还正常。Windows Defender 已禁止它随意乱动。》

----------现在看到用纯P写长脚本时就有一种莫明恐惧感！

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

54楼

发表于 2019-5-26 11:58 | 只看该作者

除了数组，其它的做解决了~~~

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off


setlocal enabledelayedexpansion


set /p "strFile=请拖入处理文本:"
if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 例外情况定义
set exception=Extra Button

(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
	set s1=%%a
	set s2=%%b
	set z=
	for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
	if "!z!!s1:~-5!" equ " name" (
		set s3=!s2:^"= !
		for /f "tokens=1 delims= " %%c in ("!s3!") do (
			if defined #%%~c (
				echo;%%a=%%b
			) else (
				
				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!

				echo;!s1!="!ss!" %%d
				set $!n!=!ss!囧%%~c
				set #%%~c=!ss!
				set /a n+=1
			)
		)
	
	) else (
		if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
	)

)
) >temp.txt

set/a n-=1

(
for /f "tokens=1,*" %%a in (temp.txt) do (

	set str=%%b
	if defined str (set str=%%a !str: =!) else set str=%%a

	for /l %%1 in (0,1,!n!) do (
		for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
			set str=!str:"%%c"="%%b"!
			set str=!str:@%%c=@%%b!
			set str=!str:#%%c=#%%b!
		)
	)
	echo;!str!
)

) > 结果.txt

start 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀，A-Z,AA-ZZ,AAA-ZZZ,AAAA-ZZZZ ……
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof
复制代码

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

53楼

发表于 2019-5-26 00:07 | 只看该作者

回复 52# smss

这两个比较容易实现，BAT也可以做到，关于需要过滤固定数组的地方有没有举例的文本？

smss

Rank: 5 Rank: 5

帖子: 575
积分: 779
技术: 37
捐助: 0
注册时间: 2018-11-29

52楼

发表于 2019-5-25 17:21 | 只看该作者

本帖最后由 smss 于 2019-6-1 17:08 编辑

回复 51# WHY

测试了一下没能成功生成的文本d就是复制了一个文本c

文本a以前缀#bg或@QQNC调用文本c对应名称id="bg"、id="QQNC" default=""中的值
例如文本a中含<Var name="bg" const="true" expression="ifelse(isnull(#bg),0,#bg)"/>
<Text name="Qm" x="100" y="300" w="458" alignV="center" color="#ababab" size="30" textExp="@QQNC" marqueeSpeed="50" marqueeGap="2"/>
<Text name="Qm2" x="100" y="300" w="458" alignV="center" color="#ababab" size="30" textExp="@QQQM" marqueeSpeed="50" marqueeGap="2"/>文本c如下<Config>
<Group text="─=≡Σ(((?つ??ω??)つ超人">
<StringInput text="昵称" id="QQNC" default="smss" />
<StringInput text="签名" id="QQQM" default="百年江湖,谁人与共." />
<CheckBox text="重力壁纸" id="bg" default="0"/>
</Group>
</Config> 文本c中关联名较少如果不行就换个思路不替换文本c中涉及的id="变量名" 仅获取文本c中id="变量名"将其设为文本a替换前的过滤条件

还有如何把<Text x="100" y="300" marqueeGap="2"/>变成<Text x="100"y="300"marqueeGap="2"/>去除中间所有空格只保留第一个空格应该怎样改

WHY

上校

Rank: 6 Rank: 6

帖子: 1442
积分: 3193
技术: 556
捐助: 0
注册时间: 2015-7-19

51楼

发表于 2019-5-25 12:38 | 只看该作者

本帖最后由 WHY 于 2019-5-25 12:45 编辑

回复 50# smss

在 echo 'Done' 上面，插入三行：

$str = [IO.File]::ReadAllText('c.txt', [Text.Encoding]::Default);
$str = [regex]::Replace($str, '(?<=\sid=")[^"]+(?=")', {param($m); if($Hash[$m.Value]){$Hash[$m.Value]}else{$m.Value}});
[IO.File]::WriteAllText('d.txt', $str, [Text.Encoding]::UTF8);
复制代码