100元人民币求bat或Powershell处理文本内容【已解决】 - 有偿求助 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

netbenton

荣誉版主

Rank: 8 Rank: 8

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

34楼

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

本帖最后由 netbenton 于 2019-5-23 16:11 编辑

1，编码问题已经解决，批处理文本和要处理的文本必须是使用相同的编码
2，多出的“=“号问题已经解决
3，可指定例外固定的字符串列表

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" (

		for /f "tokens=1*" %%c in ("%%b") do (
			if defined #%%~c (
				echo;!s1!="!#%%~c!" %%d
			) 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=*" %%a in (temp.txt) do (
	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!
		)
	)
	echo;!str!
)

) > 结果.txt

type 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀
: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
复制代码

smss

Rank: 5 Rank: 5

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

33楼

发表于 2019-5-23 15:09 | 只看该作者

回复 smss

1. "XML中含有数组的代码被替换后无法工作" 这个问题你没有举例说明；
2. 中文字符乱码问 ...
WHY 发表于 2019-5-23 11:22

我先处理简单的再处理包含数组的,任何事都是由简入繁吧

smss

Rank: 5 Rank: 5

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

32楼

发表于 2019-5-23 13:03 | 只看该作者

本帖最后由 smss 于 2019-5-23 15:12 编辑

回复 31# WHY
目前有这么个问题当名字后有个数字时无法正确替换如图

下面name="BallAniAlpha"已替换为name="EE" alpha="#BallAniAlpha*255"却被替换成了alpha="#EFAlpha*255" 应该为alpha="#EE*255"

例子<AnimationCommand target="BallAniAlpha" command="play"/>需替换为<AnimationCommand target="EE" command="play"/> 特点是包含command="play"或target="变量名"

<Var name="BallAni" >被替换成了EF alpha="#BallAniAlpha*255"却被替换成了alpha="#EFAlpha*255"

还有一个是文本c中关联文本a中变量名,希望也同步替换,生成文本d
文本c特点如下 id="Paper" 如果文本a中的 name="Paper"替换成了name="A" 那么文本c中id="Paper" 也需同步变更为id="A"
<Config>
<Group text="功能选项">
<CheckBox text="随机壁纸" summary="" id="Paper" default="1"/>
<CheckBox text="系统壁纸" summary="" id="Using" default="0"/>
<CheckBox text="重力壁纸" summary="" id="bg" default="0"/>
</Group>
</Config>

WHY

Rank: 6 Rank: 6

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

31楼

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

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

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

#修改name属性的值，如果name属性值以music_prev或music_display或music_next等开头，或者节点名为Extra，则不修改
#如果command与target同时出现，command="play"，则修改target属性值，
$reg1 = '(?<=<(?!Extra\s)[^<>]*\sname=")(?!music_(?:prev|display|next|play|pause))[^"]+(?=")';
$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('b.txt', $str, [Text.Encoding]::UTF8);

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

1 评分人数

smss: 太好啦我来测试下能正常不技术 + 1

WHY

Rank: 6 Rank: 6

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

30楼

发表于 2019-5-23 11:22 | 只看该作者

回复 25# smss

1. "XML中含有数组的代码被替换后无法工作" 这个问题你没有举例说明；
2. 中文字符乱码问题是否解决你没有交代；
3. 你应该事先总结好规律，哪些改哪些不改，怎么改，事先想好。

2 评分人数

523066680: 辛苦了PB + 6 技术 + 1
smss: 这个修改也是个循序渐进的过程,不可能一下考 ...技术 + 1

smss

Rank: 5 Rank: 5

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

29楼

发表于 2019-5-23 11:08 | 只看该作者

本帖最后由 smss 于 2019-5-23 11:21 编辑

回复 28# netbenton

中文乱码
首<? 被替换成了ï»
尾>被替换成了>=
肉眼可见错误

netbenton

荣誉版主

Rank: 8 Rank: 8

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

28楼

发表于 2019-5-23 02:06 | 只看该作者

回复 27# smss
你试过这个会出现乱码？
后面加的过滤，改好了！

@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

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

	if "!s1:%exception%=!!s1:~-5!" == "!s1! name" (

		for /f "tokens=1*" %%c in ("%%b") do (
			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 /a n+=1
		)
	
	) else (
		echo;!s1!=%%b
	)

)
) >temp.txt

set/a n-=1

(
for /f "tokens=*" %%a in (temp.txt) do (
	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!
		)
	)
	echo;!str!
)

) > 结果.txt

type 结果.txt

rem 查看有多少个更改
set $

pause

exit /b

:getn	计算临名字，可加上前缀
set L=%1
set l1=%1
set %2=
:loop
set /a M=L %% 26

set %2=!ASC:~%M%,1!!%2!

if !L1! neq !L! set /a L=L/26&goto :loop

goto :eof
复制代码

1 评分人数

523066680: netbenton好久不见技术 + 1

smss

Rank: 5 Rank: 5

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

27楼

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

回复 26# netbenton
感谢你的热情回复
这个用BAT处理中文会乱码而且后边加的过滤条件貌似有点难以做到

netbenton

荣誉版主

Rank: 8 Rank: 8

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

26楼

发表于 2019-5-23 01:24 | 只看该作者

1，只检查第一个等号是否是name="xxxxx"，作为要改的名字，
2，所有@和#对应的字符串都会匹配更改

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

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


(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
	set s1=%%a
	set s2=%%b
	if "!s1:~-5!" == " name" (

		for /f "tokens=1*" %%c in ("%%b") do (
			call	:getn !n! ss
			echo;!s1!="!ss!" %%d
			set $!n!=!ss!囧%%~c
			set /a n+=1
		)
	
	) else (
		echo;!s1!=%%b
	)

)
) >temp.txt

set/a n-=1

(
for /f "tokens=*" %%a in (temp.txt) do (
	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!
		)
	)
	echo;!str!
)

) > 结果.txt

type 结果.txt

rem 查看有多少个更改
set $

pause

exit /b

:getn	计算临名字，可加上前缀
set L=%1
set l1=%1
set %2=
:loop
set /a M=L %% 26

set %2=!ASC:~%M%,1!!%2!

if !L1! neq !L! set /a L=L/26&goto :loop

goto :eof
复制代码

smss

Rank: 5 Rank: 5

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

25楼

发表于 2019-5-23 01:20 | 只看该作者

本帖最后由 smss 于 2019-5-23 11:20 编辑

回复 24# WHY
需要加入以下筛选
系统固定名称别替换
特点<Extra 例如<Extra name="ShowCameraWhenLocked" type="boolean" expression="1"/>
以下名称固定需过滤
name="music_prev"
name="music_display"
name="music_next"
name="music_play"
name="music_pause" 或许还有最好说明下在哪添加过滤

以.animation .visibility结尾调用需要同步变更(同以# @开头调用)
例如<MusicControl y="#screen_height/2" name="music_control" autoShow="true" visibility="false" enableLyric="true" updateLyricInterval="100"> name="music_control"被替换成了name="A"
<Command target="music_control.animation" value="play"/>
<Command target="music_control.visibility" value="false" condition="not(#appear)" delay="500"/>
需替换成A.animation和A.visibility

WHY

Rank: 6 Rank: 6

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

24楼

发表于 2019-5-22 21:57 | 只看该作者

回复 23# smss

请举例说明：XML中含有数组的代码被替换后无法工作。
另外，我这里测试中文字符没有乱码，把 [Text.Encoding]::Default 改成 [Text.Encoding]::UTF8 试试

smss

Rank: 5 Rank: 5

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

23楼

发表于 2019-5-22 21:06 | 只看该作者

本帖最后由 smss 于 2019-5-22 21:09 编辑

回复 22# WHY
现在才空下来测试
中文全部乱码无法用建议使用昨天那个加入判断和筛选即可

$global:n = 65; $h = @{};
$s = [IO.File]::ReadAllText('manifest.txt', [Text.Encoding]::Default);
$s = [regex]::Replace($s, '(?<=\bname=")[^"]+(?=")',{param($m);$a=$m.Value; if(!$h.ContainsKey($a)){$h[$a]=[char]($global:n++)}; $h[$a]});
$s = [regex]::Replace($s, '(?<=")[^@#]*[@#][^"]+(?=")',{param($m);$a=$m.Value;forEach($k In $h.Keys){$a=$a.Replace('@'+$k,'@'+$h[$k]).Replace('#'+$k,'#'+$h[$k])};$a});
[IO.File]::WriteAllText('manifest.xml', $s, [Text.Encoding]::UTF8);
复制代码

这个含中文不乱码 XML中含有数组的代码被替换后无法工作

WHY

Rank: 6 Rank: 6

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

22楼

发表于 2019-5-22 15:13 | 只看该作者

回复 19# smss

有可能变量名超出26个英文字母范围，变成非字母变量名了，已修改。

523066680

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

21楼

发表于 2019-5-22 14:41 | 只看该作者

本帖最后由 523066680 于 2019-5-23 11:45 编辑

NULL

FuniCode 编程论坛