Board logo

标题: 100元人民币 求bat或Powershell处理文本内容【已解决】 [打印本页]

作者: smss    时间: 2019-5-21 22:06     标题: 100元人民币 求bat或Powershell处理文本内容【已解决】

本帖最后由 smss 于 2019-6-26 11:23 编辑

具体报酬:100元人民币
支付方式:支付宝微信转账
联系方式:QQ296578353
有效期限:功能实现之前

批量替换文本中的指定内容 文本类似以下
<Variable name="city_id" type="string" column="city_id"/>
<Variable name="weather_location" type="string" column="city_name"/>
<Variable name="weather_id" type="int" column="weather_type"/>
<Variable name="city_id" type="string" column="city_id"/>

<Text name="Qm" x="100" y="300" w="458" alignV="center" color="#ababab" size="30" textExp="@city_id" marqueeSpeed="50" marqueeGap="2"/>
<Text name="QW" x="100" y="300" w="458" alignV="center" color="#ababab" size="30" textExp="#weather_location" marqueeSpeed="50" marqueeGap="2"/>
<Text name="QA" x="100" y="300" w="458" alignV="center" color="#ababab" size="30" textExp="#weather_id+#city_id" marqueeSpeed="50" marqueeGap="2"/>
需要把文本中
name="city_id"替换成name="A" name="weather_location"替换成name="B"以此类推顺序是从上到下 把每一个name=""中的名称替换为A B C D...如果超26字母那么就以AA AB AC...AAA AAB AAC...这种命名或类似你能想到不重名的方式来命名(但需要规避运算符号 如把一个名称替换成了*那么后边调用这个变量时就面临一个致命问题 #*+#-  使得代入不了运算  因此名称中不要出现运算符号 需要规避符号 +,-,*,/,%,**,|,||,=,==, !,not)
注意:如果名称出现2次以上 如name="city_id" 也需要把name="city_id"替换为name="A" 后续文本中如有关联那么也需要同步变更 特点是会在变量名前加#或@如下例子
希望得到如下文本
<Variable name="A" type="string" column="city_id"/>
<Variable name="B" type="string" column="city_name"/>
<Variable name="C" type="int" column="weather_type"/>
<Variable name="A" type="string" column="city_id"/>
<Text name="D" x="100" y="300" w="458" alignV="center" color="#ababab" size="30" textExp="@A" marqueeSpeed="50" marqueeGap="2"/>
<Text name="E" x="100" y="300" w="458" alignV="center" color="#ababab" size="30" textExp="#B" marqueeSpeed="50" marqueeGap="2"/>
<Text name="F" x="100" y="300" w="458" alignV="center" color="#ababab" size="30" textExp="#C+#A" marqueeSpeed="50" marqueeGap="2"/>

注意textExp不是固定调用以上变量名的 x="100" y="300" color="#ababab" size="30" 都可以调用 如x="#city_id" 需要变更为x="#A"

1实现替换name="" 中名称,使其变为无意义的字母或其它任何你知道的不重名的方式 让他人无法根据名称直接得知用途
2如果一个名称多次出现如下相同名称 那么需要替换成相同名称

<VariableCommand name="time_count" type="number[]" index="0" expression="0" />
<VariableCommand name="time_count" type="number[]" index="1" expression="0" />
<VariableCommand name="time_count" type="number[]" index="2" expression="0" />
<VariableCommand name="time_count" type="number[]" index="3" expression="0" />
变成
<VariableCommand name="B" type="number[]" index="0" expression="0" />
<VariableCommand name="B" type="number[]" index="1" expression="0" />
<VariableCommand name="B" type="number[]" index="2" expression="0" />
<VariableCommand name="B" type="number[]" index="3" expression="0" />
3如果name="tms0" 变成name="A"后续调用时 如#tms0或@tms0要同步这个名称变为#A @A

以下文本测试时使用
  1. <Group x="540" y="483" w="#tms_w" align="center" pivotX="#tms_w/2" pivotY="0" scale="ifelse(#time_hour0}0,0.85,1)">
  2. <!-- 小时 -->
  3. <Time name="tms0" x="0" y="0" src="ToolsScreen_src/timing/number/number.png" space="2" formatExp="ifelse(#time_hour0}0,#time_hour0,'')+#time_hour1+#time_hour2+':'" visibility="(#time_hour0+#time_hour1+#time_hour2)}0"/>
  4. <!-- 分钟 : 秒 -->
  5. <Time name="tms1" x="#tms0.bmp_width" y="0" src="ToolsScreen_src/timing/number/number.png" space="2" formatExp="#time_minute1+#time_minute2+':'+#time_second1+#time_second2" />
  6. <!-- 毫秒 -->
  7. <Time name="milis1" x="#tms0.bmp_width+#tms1.bmp_width" y="0" src="ToolsScreen_src/timing/number/number.png" space="2" formatExp="'.'+#time_millisecond1+#time_millisecond2" />
  8. </Group>
  9. <Text x="540" y="425" align="center" size="30" color="#ffffff" text="最多计数4次哦" visibility="#timing_count==5" alpha="510*#start_ani"/>
  10. </Group>
  11. </Group>
  12. <Var name="time_count" type="number[]" size="4" const="true"/>
  13. <!-- #count_y_ani/2.06 -->
  14. <Array x="0" y="0+100*(1-#start_ani)+200-#count_y_ani/2.06" count="4" indexName="__count" alpha="510*#start_ani">
  15. <Group y="103*#__count" visibility="#__count{#timing_count*#start_ani">
  16. <!-- 序号 0-4 -->
  17. <Text x="245" y="984" size="27" color="#ffffff" textExp="'0'+int(#__count+1)"/>
  18. <!-- + 00:00.00 上次计时到本次间隔时间 -->
  19. <!-- <Text x="585" y="980" align="right" size="34" color="#ffffff" textExp="'+ '+'00:00.00'" alpha="180"/> -->
  20. <Text x="585" y="980" align="right" size="34" color="#ffffff" textExp="'+ '+int((#time_count[#__count]-#time_count[#__count-1])/1000%3600/60/10)+int((#time_count[#__count]-#time_count[#__count-1])/1000%3600/60%10)+':'+int((#time_count[#__count]-#time_count[#__count-1])/1000%60/10)+int((#time_count[#__count]-#time_count[#__count-1])/1000%60%10)+'.'+int((#time_count[#__count]-#time_count[#__count-1])/100%10)+int((#time_count[#__count]-#time_count[#__count-1])/10%10)" alpha="180"/>
  21. <!-- 本次计时时间:上次结束的时间+本次计次时间 -->
  22. <!-- <Text x="840" y="980" align="right" size="34" color="#ffffff" textExp="'02:30.25'" /> -->
  23. <Text x="840" y="980" align="right" size="34" color="#ffffff" textExp="int(#time_count[#__count]/1000%3600/60/10)+int(#time_count[#__count]/1000%3600/60%10)+':'+int(#time_count[#__count]/1000%60/10)+int(#time_count[#__count]/1000%60%10)+'.'+int(#time_count[#__count]/100%10)+int(#time_count[#__count]/10%10)"/>
  24. <Rectangle x="239" y="1047-1" w="646" h="2" fillColor="#ffffff" alpha="25" />
  25. </Group>
  26. </Array>
  27. <Var name="start_ani">
  28. <VariableAnimation name="startAni" initPause="true" loop="false">
  29. <AniFrame value="0" time="0" easeType="QuadEaseOut"/>
  30. <AniFrame value="1" time="300" easeType="QuadEaseOut"/>
  31. <AniFrame value="0" time="600" />
  32. <Triggers>
  33. <Trigger action="end" condition="#startAni.current_frame==600">
  34. <VariableCommand name="start_on" expression="0" persist="true"/>
  35. <VariableCommand name="start_pause" expression="0" persist="true"/>
  36. <VariableCommand name="time_count" type="number[]" index="0" expression="0" />
  37. <VariableCommand name="time_count" type="number[]" index="1" expression="0" />
  38. <VariableCommand name="time_count" type="number[]" index="2" expression="0" />
  39. <VariableCommand name="time_count" type="number[]" index="3" expression="0" />
  40. <VariableCommand name="timing_count" expression="0" persist="true" />
  41. </Trigger>
  42. </Triggers>
  43. </VariableAnimation>
  44. </Var>
  45. <Var name="count_y_ani">
  46. <VariableAnimation initPause="true" loop="false">
  47. <AniFrame value="#count_y_ani" time="0" easeType="QuadEaseOut"/>
  48. <AniFrame value="min(#timing_count,4)*103" time="300" easeType="QuadEaseOut"/>
  49. <AniFrame value="0" time="800"/>
  50. </VariableAnimation>
  51. </Var>
  52. <Group x="0" y="#count_y_ani/4.12" >
  53. <!-- 计次/停止(重置) -->
  54. <Image x="540-130*#start_ani" y="1420" pivotX="78" pivotY="78" align="center" alignV="center"  srcExp="'ToolsScreen_src/timing/'+ifelse(#start_pause==1,'Stop','count')+'.png'" visibility="#start_on==1"/>
  55. <Button x="540-130*#start_ani" y="1420" w="156" h="156" visibility="#start_on==1" align="center" alignV="center">
  56. <Pressed>
  57. <Image x="540-130*#start_ani" y="1420" src="ToolsScreen_src/timing/pressed.png" alpha="30" align="center" alignV="center"/>
  58. </Pressed>
  59. <Triggers>
  60. <!-- 计次 -->
  61. <Trigger action="up" condition="#start_pause==0">
  62. <VariableCommand name="timing_count" expression="min(#timing_count+1,5)" persist="true" />
  63. <VariableCommand name="time_count" type="number[]" index="#timing_count-1" expression="#Time_total" persist="true"/>
  64. <AnimationCommand target="count_y_ani" command="play(0,300)" />
  65. <VariableCommand name="time_count0" expression="#time_count[0]" persist="true"/>
  66. <VariableCommand name="time_count1" expression="#time_count[1]" persist="true"/>
  67. <VariableCommand name="time_count2" expression="#time_count[2]" persist="true"/>
  68. <VariableCommand name="time_count3" expression="#time_count[3]" persist="true"/>
  69. </Trigger>
  70. <!-- 停止(重置) -->
  71. <Trigger action="up" condition="#start_pause==1">
  72. <AnimationCommand target="count_y_ani" command="play(300,800)" />
  73. <AnimationCommand target="clock_minute_ani" command="play(0,500)" condition="#clock_minute_ani==0"/>
  74. <AnimationCommand target="start_ani" command="play(300,600)" condition="#start_ani==1"/>
  75. </Trigger>
  76. </Triggers>
  77. </Button>
  78. <!-- 开始/继续/暂停 -->
  79. <Image x="540+130*#start_ani" y="1420" pivotX="78" pivotY="78" align="center" alignV="center" srcExp="'ToolsScreen_src/timing/'+ifelse(#start_on==0||#start_pause==1,'start','pause')+'.png'" />
  80. <Button x="540+130*#start_ani" y="1420" w="156" h="156" align="center" alignV="center" >
  81. <Pressed>
  82. <Image x="540+130*#start_ani" y="1420" src="ToolsScreen_src/timing/pressed.png" align="center" alignV="center" alpha="30"/>
  83. </Pressed>
  84. <Triggers>
  85. <!-- 开始 -->
  86. <Trigger action="up" condition="#start_on==0">
  87. <VariableCommand name="start_on" expression="1" persist="true" delay="10"/>
  88. <VariableCommand name="Start_timing" expression="#time_sys" persist="true"/>
  89. <VariableCommand name="Time_total" expression="0" persist="true" />
  90. <AnimationCommand target="start_ani" command="play(0,300)" condition="#start_ani==0"/>
  91. </Trigger>
  92. <Trigger action="up" condition="#start_on==1">
  93. <!-- 继续 -->
  94. <VariableCommand name="Start_timing" expression="#time_sys" persist="true" condition="#start_pause==1"/>
  95. <!-- 暂停 -->
  96. <VariableCommand name="Time_total_pause" expression="#Time_total" persist="true" condition="#start_pause==0"/>
  97. <VariableCommand name="start_pause" expression="int(#start_pause+1)%2" persist="true" />
  98. </Trigger>
  99. </Triggers>
  100. </Button>
  101. <!-- 返回按钮 -->
  102. <Image x="540" y="1700" src="ToolsScreen_src/back.png" align="center" alignV="center" touchable="true" alpha="170+50*#back_flag">
  103. <Triggers>
  104. <Trigger action="down">
  105. <VariableCommand name="back_flag" expression="1"/>
  106. </Trigger>
  107. <Trigger action="up">
  108. <VariableCommand name="back_flag" expression="0"/>
  109. <AnimationCommand target="init_tools_ani" command="play(800,0)"  condition="#init_tools_ani==1"/>
  110. </Trigger>
  111. </Triggers>
  112. </Image>
  113. </Group>
  114. <Button w="1080" h="#screen_height" interceptTouch="true"/>
  115. </Group>
复制代码

作者: zaqmlp    时间: 2019-5-21 22:54

本帖最后由 zaqmlp 于 2019-5-22 10:12 编辑
  1. @echo off
  2. cd /d "%~dp0"
  3. set "folder=结果"
  4. md "%folder%" 2>nul
  5. powershell -NoProfile -ExecutionPolicy bypass ^
  6.     $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Extension -eq '.xml')});^
  7.     $arr='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.toCharArray();^
  8.     for($i=0;$i -lt $files.length;$i++){^
  9.         write-host $files[$i].Name;^
  10.         $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  11.         $list=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  12.         $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::UTF8);^
  13.         $m=[regex]::matches($text,'name=\""([^^\""]+)\""');^
  14.         $newtext=$text;^
  15.         if($m.Count -ge 1){^
  16.             for($j=0;$j -lt $m.Count;$j++){^
  17.                 $kw=$m[$j].groups[1].value;^
  18.                 if(@('=','%%') -notcontains $kw){^
  19.                     if(-not $dic.ContainsKey($kw)){^
  20.                         $c=@(get-random -input $arr -count 3) -join '';^
  21.                         while($list.ContainsKey($c)){$c=@(get-random -input $arr -count 3) -join '';};^
  22.                         $list.add($c,'');^
  23.                         $newtext=$newtext.replace($m[$j].groups[0].value,'name=\"'+$c+'\"');^
  24.                         $dic.add($kw,$c);^
  25.                         $n++;^
  26.                     };^
  27.                 };^
  28.             };^
  29.             $k=@($dic.keys^|sort {$_.length} -des);^
  30.             $newtext=[regex]::replace($newtext,'(?^<==)\""[^^\""]+?\""',{param($a);$b=$a.value;foreach($it in $k){$b=$b.replace(('@'+$it),('@'+$dic[$it])).replace(('#'+$it),('#'+$dic[$it]));};$b});^
  31.             [IO.File]::WriteAllText(('%folder%\'+$files[$i].Name), $newtext, [Text.Encoding]::UTF8);^
  32.         };^
  33.     }
  34. pause
复制代码

作者: smss    时间: 2019-5-21 23:12

回复 2# zaqmlp
只实现了替换变量名
作者: smss    时间: 2019-5-21 23:37

本帖最后由 smss 于 2019-5-22 10:44 编辑
zaqmlp 发表于 2019-5-21 22:54

上次那代码可以换名称 你改后 就一片红了
作者: zaqmlp    时间: 2019-5-21 23:43

回复 4# smss

加我q
作者: amwfjhh    时间: 2019-5-22 00:17

正则处理由sed来完成,故运行时请确保系统内有sed命令。
  1. @if (0)==(0) echo off
  2. setlocal enabledelayedexpansion
  3. pushd %~dp0
  4. REM 取得名称列表
  5. set "strDict="
  6. set "nCount=0"
  7. set /p "strFile=请拖入处理文本:"
  8. set "strFile=!strFile:"=!"
  9. set "strFilter1=name=.[^^\"]*."
  10. set "strFilter2=.*name=\"\([^^\"]*\)\".*$"
  11. for /f "tokens=*" %%i in ('sed -n "/!strFilter1!/{s/!strFilter2!/\1/;p}" "!strFile!"') do (
  12. set "strTmpName=%%i"
  13. echo,!strDict! | findstr /i "!strTmpName!" >nul 2>nul && (
  14. REM 有字典存在,跳过
  15. ) || (
  16. REM 无字典,添加记录
  17. set /a "nCount+=1"
  18. set "strDict=!strDict!(!strTmpName!)"
  19. )
  20. )
  21. echo,总共存在变量 !nCount! 个
  22. set "nChar=64"
  23. set "strRegExp="
  24. for /l %%i in (1 1 !nCount!) do (
  25. set /a "nChar+=1"
  26. for /f "tokens=*" %%j in ('cscript -nologo -e:jscript %~s0 GetCharFromCode !nChar!') do set "strChar=%%j"
  27. call :_GetParm %%i
  28. )
  29. echo,替换变量正则表达式为 :
  30. echo,!strRegExp!
  31. echo,&echo,
  32. REM 进行关键内容替换
  33. for /f "tokens=*" %%i in ('echo,!strFile!') do set "strNewFile=%%~dpni_rep%%~xi"
  34. >"!strNewFile!" sed "!strRegExp!" "!strFile!"
  35. type "!strNewFile!"
  36. pause
  37. goto :EOF
  38. :_GetParm
  39. (
  40. for /f "tokens=%~1 delims=()" %%a in ('echo,!strDict!') do (
  41. echo,第 %%i 个变量 : %%a ==^> !strChar!
  42. set "strRegExp=!strRegExp!s/%%a/!strChar!/g;"
  43. )
  44. goto :EOF
  45. )
  46. @end
  47. var fun = WScript.Arguments(0);
  48. switch (fun) {
  49. case "GetCharFromCode":
  50. var nChar = parseInt(WScript.Arguments(1));
  51. GetCharFromCode(nChar);
  52. break;
  53. default:;
  54. }
  55. function GetCharFromCode(nChar) {
  56. WScript.Echo(String.fromCharCode(nChar));
  57. }
复制代码

作者: WHY    时间: 2019-5-22 00:31

本帖最后由 WHY 于 2019-5-22 15:10 编辑

test.bat
  1. @echo off
  2. PowerShell "$h=@{};$s=[regex]::Replace([IO.File]::ReadAllText('a.txt',[Text.Encoding]::Default),'(?<=\bname=\")[^^\"]+(?=\")',{param($m);$a=$m.Value;if(!$h.ContainsKey($a)){$x=[Math]::floor($global:n/26);if(!$x){$c=''}else{$c=[char](64+[int]$x)};$h[$a]=$c+[char](65+$global:n++%%26)};$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});sc b.txt -Value $s -Enc utf8"
  3. pause
复制代码
变量名范围:A~Z、AA~ZZ,应该够用
作者: smss    时间: 2019-5-22 00:32

回复 6# amwfjhh
Win10怎样安装这个??
作者: smss    时间: 2019-5-22 00:44

本帖最后由 smss 于 2019-5-22 00:53 编辑

回复 7# WHY 写的太棒了
有个小问题可以处理下吗 就是其中有数组时共用同一个名称是要替换成同名称的 虽然也替换成同名了 单生成的XTX文本 可以被读取 但部分功能不在
说明 混编时还是有问题
作者: amwfjhh    时间: 2019-5-22 00:50

回复 8# smss


    就是单个sed.exe程序,论坛也能搜得到。很好下载的。玩批处理的或多或少都要用到正则表达式,各种语言中也有支持的,不过支持的程度不一样,sed是对正则支持比较全面的一个工具了。
下载下来后直接放到批处理同级目录即可调用,或者将其拷到系统PATH路径下(比如c:\windows),则任意目录下都可以调用它。
作者: smss    时间: 2019-5-22 00:57

回复 10# amwfjhh

哥楼上有更好更简短有力的代码 而且我已支付给了1楼一半的钱

不过我更倾向于WHY的方法 化繁为简 效率高
作者: amwfjhh    时间: 2019-5-22 01:08

回复 11# smss


    嗯,无所谓,不同的实现方式,WHY兄用powershell,本身对各种对象支持就要好些,写出的代码也更简捷,而且代码中正则表达式过滤条件也要好些,没毛病。
作者: smss    时间: 2019-5-22 03:11

回复 7# WHY

有如下几个问题
1.名称中不要出现运算符号 如name="call_name1" 居然替换成了*或/

需要规避符号 +,-,*,/,%,**,|,||,=,==, !,not

2数组不能使用或许是上个问题导致
作者: 523066680    时间: 2019-5-22 08:50

本帖最后由 523066680 于 2019-5-23 11:46 编辑
  1. use Mojo::DOM;
  2. use File::Slurp;
  3. my $xml = read_file( "test.xml" );
  4. my $dom = Mojo::DOM->new->xml(1)->parse( $xml );
  5. my @code = ('A' .. 'ZZZ');
  6. for my $e ( $dom->find("Variable")->each ) {
  7.     my $k = $e->attr("name");
  8.     $h{$k} = $code[$id++] unless (exists $h{$k});
  9.     $e->attr("name" => $h{$k} );
  10. }
  11. for my $e ( $dom->find("Text")->each ) {
  12.     my $exp = $e->attr("textExp");
  13.     $exp =~s/([\@\#])([\w\_]+)/$1$h{$2}/g;
  14.     $e->attr("textExp"=>$exp);
  15. }
  16. printf "%s\n", $dom;
复制代码
  1. <Variable column="city_id" name="A" type="string" />
  2. <Variable column="city_name" name="B" type="string" />
  3. <Variable column="weather_type" name="C" type="int" />
  4. <Variable column="city_id" name="A" type="string" />
  5. <Text alignV="center" color="#ababab" marqueeGap="2" marqueeSpeed="50" name="Qm" size="30" textExp="@A" w="458" x="100" y="300" />
  6. <Text alignV="center" color="#ababab" marqueeGap="2" marqueeSpeed="50" name="QW" size="30" textExp="#B" w="458" x="100" y="300" />
  7. <Text alignV="center" color="#ababab" marqueeGap="2" marqueeSpeed="50" name="QA" size="30" textExp="#C+#A" w="458" x="100" y="300" />
复制代码

作者: amwfjhh    时间: 2019-5-22 08:54

回复 14# 523066680


    python?
作者: smss    时间: 2019-5-22 10:32

回复 14# 523066680
感谢 这个应该怎样使用 我电脑中没有 不是BAT也不是PS?还要安装其它什么吗??
作者: WHY    时间: 2019-5-22 10:54

回复 13# smss


    我测试没有发现你所说的问题。请分别举例说明问题1,问题2
作者: Batcher    时间: 2019-5-22 11:06

回复 16# smss


参考:怎样在Windows系统中搭建Python环境?
http://bbs.bathome.net/thread-15581-1-1.html
作者: smss    时间: 2019-5-22 13:10

本帖最后由 smss 于 2019-5-22 13:20 编辑

回复 17# WHY
昨天测试了zaqmlp的代码生成的文本在手机上试 手机是直接无法开机刷了一次ROM但锁屏数据还在 只好清数据再刷了次ROM
用BCompare比对原码和生成代码 还是发现不少问题的 目前看那方法 效率较低 自己看不懂这语言只好作罢

你给的方法是目前看到效率最高的 比对原码时变量名能被有效替换 后面关联时也可同步替换 但是有时会出错 我会截图你看

问题1例子 name="city_id"以下统称变量名 被替换成了XML中涉及的运算符号 当该变量名被调用运算时将可能出现 如name="city_id"替换成了name="+" name="city_id2"替换成了name="-"
后边调用这个时x="#city_id+#city_id2"将被替换成x="#++#-"  机器运算不了 这就尴尬啦
作者: zaqmlp    时间: 2019-5-22 13:27

已更新,试试
作者: 523066680    时间: 2019-5-22 14:41

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

NULL
作者: WHY    时间: 2019-5-22 15:13

回复 19# smss


    有可能变量名超出26个英文字母范围,变成非字母变量名了,已修改。
作者: smss    时间: 2019-5-22 21:06

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

回复 22# WHY
现在才空下来测试
中文全部乱码无法用 建议使用昨天那个加入判断和筛选 即可
  1. $global:n = 65; $h = @{};
  2. $s = [IO.File]::ReadAllText('manifest.txt', [Text.Encoding]::Default);
  3. $s = [regex]::Replace($s, '(?<=\bname=")[^"]+(?=")',{param($m);$a=$m.Value; if(!$h.ContainsKey($a)){$h[$a]=[char]($global:n++)}; $h[$a]});
  4. $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});
  5. [IO.File]::WriteAllText('manifest.xml', $s, [Text.Encoding]::UTF8);
复制代码
这个含中文不乱码 XML中含有数组的代码被替换后无法工作
作者: WHY    时间: 2019-5-22 21:57

回复 23# smss


    请举例说明:XML中含有数组的代码被替换后无法工作。
另外,我这里测试中文字符没有乱码,把 [Text.Encoding]::Default 改成 [Text.Encoding]::UTF8 试试
作者: smss    时间: 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
作者: netbenton    时间: 2019-5-23 01:24

1,只检查第一个等号是否是name="xxxxx",作为要改的名字,
2,所有@和#对应的字符串都会匹配更改
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set /p "strFile=请拖入处理文本:"
  4. if not exist !strFile! (
  5. echo;"!strFile!" 文件不找不到!!
  6. exit /b
  7. )
  8. rem 定义用于命名的字符表
  9. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  10. set n=0
  11. (
  12. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  13. set s1=%%a
  14. set s2=%%b
  15. if "!s1:~-5!" == " name" (
  16. for /f "tokens=1*" %%c in ("%%b") do (
  17. call :getn !n! ss
  18. echo;!s1!="!ss!" %%d
  19. set $!n!=!ss!囧%%~c
  20. set /a n+=1
  21. )
  22. ) else (
  23. echo;!s1!=%%b
  24. )
  25. )
  26. ) >temp.txt
  27. set/a n-=1
  28. (
  29. for /f "tokens=*" %%a in (temp.txt) do (
  30. set str=%%a
  31. for /l %%1 in (0,1,!n!) do (
  32. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  33. set str=!str:@%%c=@%%b!
  34. set str=!str:#%%c=#%%b!
  35. )
  36. )
  37. echo;!str!
  38. )
  39. ) > 结果.txt
  40. type 结果.txt
  41. rem 查看有多少个更改
  42. set $
  43. pause
  44. exit /b
  45. :getn 计算临名字,可加上前缀
  46. set L=%1
  47. set l1=%1
  48. set %2=
  49. :loop
  50. set /a M=L %% 26
  51. set %2=!ASC:~%M%,1!!%2!
  52. if !L1! neq !L! set /a L=L/26&goto :loop
  53. goto :eof
复制代码

作者: smss    时间: 2019-5-23 01:48

回复 26# netbenton
感谢你的热情回复
这个用BAT处理中文会乱码 而且后边加的过滤条件 貌似有点难以做到
作者: netbenton    时间: 2019-5-23 02:06

回复 27# smss
你试过这个会出现乱码?
后面加的过滤,改好了!
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set /p "strFile=请拖入处理文本:"
  4. if not exist !strFile! (
  5. echo;"!strFile!" 文件不找不到!!
  6. exit /b
  7. )
  8. rem 定义用于命名的字符表
  9. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  10. set n=0
  11. rem 例外情况定义
  12. set exception=Extra
  13. (
  14. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  15. set s1=%%a
  16. set s2=%%b
  17. if "!s1:%exception%=!!s1:~-5!" == "!s1! name" (
  18. for /f "tokens=1*" %%c in ("%%b") do (
  19. call :getn !n! ss
  20. set sa=%%~c
  21. rem 保留"."后面的尾巴
  22. if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
  23. echo;!s1!="!ss!" %%d
  24. set $!n!=!ss!囧%%~c
  25. set /a n+=1
  26. )
  27. ) else (
  28. echo;!s1!=%%b
  29. )
  30. )
  31. ) >temp.txt
  32. set/a n-=1
  33. (
  34. for /f "tokens=*" %%a in (temp.txt) do (
  35. set str=%%a
  36. for /l %%1 in (0,1,!n!) do (
  37. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  38. set str=!str:@%%c=@%%b!
  39. set str=!str:#%%c=#%%b!
  40. )
  41. )
  42. echo;!str!
  43. )
  44. ) > 结果.txt
  45. type 结果.txt
  46. rem 查看有多少个更改
  47. set $
  48. pause
  49. exit /b
  50. :getn 计算临名字,可加上前缀
  51. set L=%1
  52. set l1=%1
  53. set %2=
  54. :loop
  55. set /a M=L %% 26
  56. set %2=!ASC:~%M%,1!!%2!
  57. if !L1! neq !L! set /a L=L/26&goto :loop
  58. goto :eof
复制代码

作者: smss    时间: 2019-5-23 11:08

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


回复 28# netbenton

中文乱码
首<? 被替换成了ï»
尾>被替换成了>=
肉眼可见错误
作者: WHY    时间: 2019-5-23 11:22

回复 25# smss


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

本帖最后由 WHY 于 2019-5-25 12:32 编辑
  1. $global:n = 0; $Hash = @{};
  2. $str = [IO.File]::ReadAllText('a.txt',[Text.Encoding]::Default);
  3. #修改name属性的值,如果name属性值以music_prev或music_display或music_next等开头,或者节点名为Extra,则不修改
  4. #如果command与target同时出现,command="play",则修改target属性值,
  5. $reg1 = '(?<=<(?!Extra\s)[^<>]*\sname=")(?!music_(?:prev|display|next|play|pause))[^"]+(?=")';
  6. $reg2 = '(?<=\starget=")[^"]+(?="[^<>]*\scommand="play")|(?<=\scommand="play"[^<>]*\starget=")[^"]+(?=")';
  7. $str = [regex]::Replace($str, $reg1 + '|' + $reg2, {
  8.     param($m);
  9.     $key = $m.Value;
  10.     if( !$Hash.ContainsKey($key) ){
  11.         $x = [Math]::floor( $global:n / 26 );
  12.         if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
  13.         $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
  14.     }
  15.     $Hash[$key];
  16. })
  17. $arrKey = $Hash.Keys | sort -Desc {$_.Length};
  18. #如果属性值包含@#字符,或者属性值以 .animation或.visibility 结尾,则修改
  19. $str = [regex]::Replace($str, '(?<==")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
  20.     param($m);
  21.     $s = $m.Groups[1].Value;
  22.     forEach( $key In $arrKey ) {
  23.         $s = $s.Replace( '@' + $Key, '@' + $Hash[$Key] );
  24.         $s = $s.Replace( '#' + $Key, '#' + $Hash[$Key] );
  25.         $s = $s.Replace( $Key + '.animation', $Hash[$Key] + '.animation' );
  26.         $s = $s.Replace( $Key + '.visibility', $Hash[$Key] + '.visibility' );
  27.     }
  28.     $s;
  29. })
  30. [IO.File]::WriteAllText('b.txt', $str, [Text.Encoding]::UTF8);
  31. echo 'Done';
  32. [Console]::ReadKey()
复制代码

作者: smss    时间: 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>
作者: smss    时间: 2019-5-23 15:09

回复  smss


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

我先处理简单的再处理包含数组的,任何事都是由简入繁吧
作者: netbenton    时间: 2019-5-23 15:15

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

1,编码问题已经解决,批处理文本和要处理的文本必须是使用相同的编码
2,多出的“=“号问题已经解决
3,可指定例外固定的字符串列表
  1. goto :ansi
  2. rem UTF-8 编码支持
  3. chcp 65001
  4. cls
  5. :ansi
  6. @echo off
  7. setlocal enabledelayedexpansion
  8. set /p "strFile=请拖入处理文本:"
  9. if not exist !strFile! (
  10. echo;"!strFile!" 文件不找不到!!
  11. exit /b
  12. )
  13. rem 定义用于命名的字符表
  14. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  15. set n=0
  16. rem 例外情况定义
  17. set exception=Extra Button
  18. (
  19. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  20. set s1=%%a
  21. set s2=%%b
  22. set z=
  23. for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
  24. if "!z!!s1:~-5!" equ " name" (
  25. for /f "tokens=1*" %%c in ("%%b") do (
  26. if defined #%%~c (
  27. echo;!s1!="!#%%~c!" %%d
  28. ) else (
  29. call :getn !n! ss
  30. set sa=%%~c
  31. rem 保留"."后面的尾巴
  32. if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
  33. echo;!s1!="!ss!" %%d
  34. set $!n!=!ss!囧%%~c
  35. set #%%~c=!ss!
  36. set /a n+=1
  37. )
  38. )
  39. ) else (
  40. if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
  41. )
  42. )
  43. ) >temp.txt
  44. set/a n-=1
  45. (
  46. for /f "tokens=*" %%a in (temp.txt) do (
  47. set str=%%a
  48. for /l %%1 in (0,1,!n!) do (
  49. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  50. set str=!str:@%%c=@%%b!
  51. set str=!str:#%%c=#%%b!
  52. )
  53. )
  54. echo;!str!
  55. )
  56. ) > 结果.txt
  57. type 结果.txt
  58. rem 查看有多少个更改
  59. set $
  60. pause
  61. exit /b
  62. rem 计算临名字,可加上前缀
  63. :getn
  64. (set L=%1
  65. set M=%1
  66. set %2=)
  67. :loop
  68. set /a M=L %% 26
  69. set %2=!%2!!ASC:~%M%,1!
  70. if !M! neq !L! set /a L=L/26&goto :loop
  71. goto :eof
复制代码

作者: 523066680    时间: 2019-5-23 15:37

回复 30# WHY

欢迎过来写感慨:
    提问题的正确方式(反面教材)
    http://www.bathome.net/viewthread.php?tid=51315
作者: smss    时间: 2019-5-23 15:52

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

回复 34# netbenton
不要替换成运算符号 无法识别这个 效率是个大问题

PS 1~2秒 电脑好像没费什么事 BAT开了CPU和风扇都感觉有压力 可以想像 两者有很大差距的
还有我已支付 zaqmlp一半钱 但过程不完美 而且他还要加价 在期间还有中伤WHY代码因为没有加UTF8 而乱码的行为 而在那WHY发贴之前zaqmlp给的代码同样效率低下 因此放弃zaqmlp的任何方式方法
以下放上代码 有心可以比对 供交流 不涉及人身攻击 善恶自有分辨
WHY 5.22
  1. $global:n = 65; $h = @{};
  2. $s = [IO.File]::ReadAllText('manifest.xml', [Text.Encoding]::UTF8);
  3. $s = [regex]::Replace($s, '(?<=\bname=")[^"]+(?=")',{param($m);$a=$m.Value; if(!$h.ContainsKey($a)){$h[$a]=[char]($global:n++)}; $h[$a]});
  4. $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});
  5. [IO.File]::WriteAllText('manifest2.xml', $s, [Text.Encoding]::UTF8);
复制代码
WHY5.22 15:10
  1. @echo off
  2. PowerShell "$h=@{};$s=[regex]::Replace([IO.File]::ReadAllText('manifest.xml',[Text.Encoding]::UTF8),'(?<=\bname=\")[^^\"]+(?=\")',{param($m);$a=$m.Value;if(!$h.ContainsKey($a)){$x=[Math]::floor($global:n/26);if(!$x){$c=''}else{$c=[char](64+[int]$x)};$h[$a]=$c+[char](65+$global:n++%%26)};$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});sc b.txt -Value $s -Enc utf8"
  3. pause
复制代码
WHY 5.23
  1. $global:n = 0; $Hash=@{};
  2. $str = [IO.File]::ReadAllText('manifest.xml',[Text.Encoding]::UTF8);
  3. #修改name属性的值
  4. #如果name属性的值以music_prev或music_display或music_next等开头,或者节点名为Extra,则排除
  5. $str = [regex]::Replace($str, '(?<=<(?!Extra)[^<>]*\sname=")(?!music_(?:prev|display|next|play|pause))[^"]+(?=")', {
  6.     param($m);
  7.     $key = $m.Value;
  8.     if( !$Hash.ContainsKey($key) ){
  9.         $x = [Math]::floor( $global:n / 26 );
  10.         if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
  11.         $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
  12.     }
  13.     $Hash[$key];
  14. })
  15. #如果属性值包含@#字符,或者属性值以 .animation或.visibility 结尾,则修改
  16. $str = [regex]::Replace($str, '(?<=")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
  17.     param($m);
  18.     $s = $m.Groups[1].Value;
  19.     forEach( $key In $Hash.Keys ) {
  20.         $s = $s.Replace( '@' + $key, '@' + $Hash[$key] );
  21.         $s = $s.Replace( '#' + $key, '#' + $Hash[$key] );
  22.         $s = $s.Replace( $key + '.animation', $Hash[$key] + '.animation' );
  23.         $s = $s.Replace( $key + '.visibility', $Hash[$key] + '.visibility' );
  24.     }
  25.     $s;
  26. })
  27. [IO.File]::WriteAllText('manifest2.xml', $str, [Text.Encoding]::UTF8);
  28. echo 'Done';
  29. [Console]::ReadKey()
复制代码
zaqmlp5.22
  1. @echo off
  2. cd /d "%~dp0"
  3. set "folder=结果"
  4. md "%folder%" 2>nul
  5. powershell -NoProfile -ExecutionPolicy bypass ^
  6.     $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Extension -eq '.xml')});^
  7.     $arr='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.toCharArray();^
  8.     for($i=0;$i -lt $files.length;$i++){^
  9.         write-host $files[$i].Name;^
  10.         $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  11.         $list=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  12.         $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::UTF8);^
  13.         $m=[regex]::matches($text,'name=\""([^^\""]+)\""');^
  14.         $n=65;^
  15.         $newtext=$text;^
  16.         if($m.Count -ge 1){^
  17.             for($j=0;$j -lt $m.Count;$j++){^
  18.                 $kw=$m[$j].groups[0].value;^
  19.                 if(-not $dic.ContainsKey($kw)){^
  20.                     $c=@(get-random -input $arr -count 3) -join '';^
  21.                     while($list.ContainsKey($c)){$c=@(get-random -input $arr -count 3) -join '';};^
  22.                     $list.add($c,'');^
  23.                     $newtext=$newtext.replace($kw,'name=\"'+$c+'\"');^
  24.                     $newtext=[regex]::replace($newtext,'(?^<==)\""[^^\""]+?\""',{param($a);if($a.value.Contains($m[$j].groups[1].value)){$a.value.replace($m[$j].groups[1].value,$c);}else{$a.value}});^
  25.                     $dic.add($kw,[char]$n);^
  26.                     $n++;^
  27.                 };^
  28.             };^
  29.             [IO.File]::WriteAllText(('%folder%\'+$files[$i].Name),  $newtext, [Text.Encoding]::UTF8);^
  30.         };^
  31.     }
  32. pause
复制代码
zaqmlp5.23
  1. @echo off
  2. cd /d "%~dp0"
  3. set "folder=结果"
  4. md "%folder%" 2>nul
  5. powershell -NoProfile -ExecutionPolicy bypass ^
  6.     $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Extension -eq '.xml')});^
  7.     $arr='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.toCharArray();^
  8.     for($i=0;$i -lt $files.length;$i++){^
  9.         write-host $files[$i].Name;^
  10.         $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  11.         $list=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  12.         $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::UTF8);^
  13.         $m=[regex]::matches($text,'name=\""([^^\""]+)\""');^
  14.         $n=65;^
  15.         $newtext=$text;^
  16.         if($m.Count -ge 1){^
  17.             for($j=0;$j -lt $m.Count;$j++){^
  18.                 $kw=$m[$j].groups[0].value;^
  19.                 if(-not $dic.ContainsKey($kw)){^
  20.                     $c=@(get-random -input $arr -count 3) -join '';^
  21.                     while($list.ContainsKey($c)){$c=@(get-random -input $arr -count 3) -join '';};^
  22.                     $list.add($c,'');^
  23.                     $newtext=$newtext.replace($kw,'name=\"'+$c+'\"');^
  24.                     $newtext=[regex]::replace($newtext,'(?^<==)\""[^^\""]+?\""',{param($a);if($a.value.Contains($m[$j].groups[1].value)){$a.value.replace($m[$j].groups[1].value,$c);}else{$a.value}});^
  25.                     $dic.add($kw,[char]$n);^
  26.                     $n++;^
  27.                 };^
  28.             };^
  29.             [IO.File]::WriteAllText(('%folder%\'+$files[$i].Name),  $newtext, [Text.Encoding]::UTF8);^
  30.         };^
  31.     }
  32. pause
复制代码
zaqmlp5.23
  1. @echo off
  2. cd /d "%~dp0"
  3. set "folder=结果"
  4. md "%folder%" 2>nul
  5. powershell -NoProfile -ExecutionPolicy bypass ^
  6.     $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Extension -eq '.xml')});^
  7.     $arr='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.toCharArray();^
  8.     for($i=0;$i -lt $files.length;$i++){^
  9.         write-host $files[$i].Name;^
  10.         $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  11.         $list=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  12.         $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::UTF8);^
  13.         $m=[regex]::matches($text,'(?^<!^<Extra )name=\""([^^\""]+)\""');^
  14.         $newtext=$text;^
  15.         if($m.Count -ge 1){^
  16.             for($j=0;$j -lt $m.Count;$j++){^
  17.                 $kw=$m[$j].groups[1].value;^
  18.                 if(@('=','%%') -notcontains $kw){^
  19.                     if(-not $dic.ContainsKey($kw)){^
  20.                         $c=@(get-random -input $arr -count 3) -join '';^
  21.                         while($list.ContainsKey($c)){$c=@(get-random -input $arr -count 3) -join '';};^
  22.                         $list.add($c,'');^
  23.                         $newtext=$newtext.replace($m[$j].groups[0].value,'name=\"'+$c+'\"');^
  24.                         $dic.add($kw,$c);^
  25.                         $n++;^
  26.                     };^
  27.                 };^
  28.             };^
  29.             $k=@($dic.keys^|sort {$_.length} -des);^
  30.             $newtext=[regex]::replace($newtext,'(?^<==)\""[^^\""]+?\""',{param($a);$b=$a.value;foreach($it in $k){$b=$b.replace(('@'+$it),('@'+$dic[$it])).replace(('#'+$it),('#'+$dic[$it])).replace(($it+'.animation'),($dic[$it]+'.animation')).replace(($it+'.visibility'),($dic[$it]+'.visibility'));};$b});^
  31.             [IO.File]::WriteAllText(('%folder%\'+$files[$i].Name), $newtext, [Text.Encoding]::UTF8);^
  32.         };^
  33.     }
  34. pause
复制代码

作者: 523066680    时间: 2019-5-23 16:14

他这个多半是工作需求,商业用途,大概是抬高逆向门槛吧?
其中主要是 XML 的混淆。由于限制了批处理 和 PS,批处理正则不够强,还是 PS 划算。
但是即使用 PS,正则表达式要完美处理[后续可能产生的需求]也会让代码变得很复杂。所以建议是找一个 XML Parser(解析器)模块,PS肯定有,就是不知道需不需要额外安装。
让解析器去把XML变成数据结构,这样自由度就高了。

这样的问题,加价很合理啊。
作者: smss    时间: 2019-5-23 16:26

回复 38# 523066680
是的 降低可读性并不能彻底阻断逆向 还需加密 有个矛盾在解读时就必然要提供个解密器 这是双向的
目前有一可用JAVA工具是不能适用包含数组的文本 所以另寻方法
作者: zaqmlp    时间: 2019-5-23 16:37

回复 36# smss

“中伤”是你的用词,我只是说了会乱码的事实,而且你自己23楼也验证了;需求一再变动,加价很合理,买卖不成,仁义要在,你在这煽动情绪也没用
作者: netbenton    时间: 2019-5-23 16:38

  1. <Text name="QA">
复制代码
找到出现替换错误的原因了,"QA"之后不是空格,而是其它字符的时,会出错,以下代码已经处理好
  1. goto :ansi
  2. rem UTF-8 编码支持
  3. chcp 65001
  4. cls
  5. :ansi
  6. @echo off
  7. setlocal enabledelayedexpansion
  8. set /p "strFile=请拖入处理文本:"
  9. if not exist !strFile! (
  10. echo;"!strFile!" 文件不找不到!!
  11. exit /b
  12. )
  13. rem 定义用于命名的字符表
  14. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  15. set n=0
  16. rem 例外情况定义
  17. set exception=Extra Button
  18. (
  19. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  20. set s1=%%a
  21. set s2=%%b
  22. set z=
  23. for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
  24. if "!z!!s1:~-5!" equ " name" (
  25. set s3=!s2:^"= !
  26. for /f "tokens=1* delims= " %%c in ("!s3!") do (
  27. if defined #%%~c (
  28. echo;!s1!="!#%%~c!" %%d
  29. ) else (
  30. call :getn !n! ss
  31. set sa=%%~c
  32. rem 保留"."后面的尾巴
  33. if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
  34. echo;!s1!="!ss!" %%d
  35. set $!n!=!ss!囧%%~c
  36. set #%%~c=!ss!
  37. set /a n+=1
  38. )
  39. )
  40. ) else (
  41. if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
  42. )
  43. )
  44. ) >temp.txt
  45. set/a n-=1
  46. (
  47. for /f "tokens=*" %%a in (temp.txt) do (
  48. set str=%%a
  49. for /l %%1 in (0,1,!n!) do (
  50. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  51. set str=!str:@%%c=@%%b!
  52. set str=!str:#%%c=#%%b!
  53. )
  54. )
  55. echo;!str!
  56. )
  57. ) > 结果.txt
  58. type 结果.txt
  59. rem 查看有多少个更改
  60. set $
  61. pause
  62. exit /b
  63. rem 计算临名字,可加上前缀
  64. :getn
  65. (set L=%1
  66. set M=%1
  67. set %2=)
  68. :loop
  69. set /a M=L %% 26
  70. set %2=!%2!!ASC:~%M%,1!
  71. if !M! neq !L! set /a L=L/26&goto :loop
  72. goto :eof
复制代码

作者: smss    时间: 2019-5-23 17:12

本帖最后由 smss 于 2019-5-23 17:22 编辑

回复 39# zaqmlp
你给代码出错 导致测试手机无法开机 我没有说什么 又质疑这方法不行 而且问到你应该怎样改一个筛选条件都不说的 说的前提是加钱的(建议你以后加行代码加次价钱) 你上来说别和你扯这个 那请问不扯这个我花钱请你做什么 请不要在我的帖子下留言了

只怪自己问题没有解决就先打钱
作者: zaqmlp    时间: 2019-5-23 17:31

回复 41# smss

事实你最初的方式就是不行呀,如果只按你最初的需求,替换后为什么你要一再变更需求,而且我让你找出替换后不对的地方,你一直跟我扯手机不行有什么用,你要告诉我哪里替换不对
作者: xczxczxcz    时间: 2019-5-23 20:37

回复 35# 523066680

PS 可以完全操控 XML 按节点操作。问题是楼主问题不详。不敢写,没完没了。他自己都没有一个完整的修改方案出来。不让人家累死。
作者: xczxczxcz    时间: 2019-5-23 20:43

回复 41# smss


    可以把你要解决的问题具有完整代表性发一份上来。还有完整的要求。本简单的事搞这么复杂。让大神们一次给你搞定。
作者: smss    时间: 2019-5-23 20:47

回复 44# xczxczxcz
关键问题是不可能一下子知道全部要做具体哪些 只能说个大概 然后在发现问题的地方排查
作者: xczxczxcz    时间: 2019-5-23 20:49

回复  523066680
是的 降低可读性并不能彻底阻断逆向 还需加密 有个矛盾在解读时就必然要提供个解密器 这 ...
smss 发表于 2019-5-23 16:26



    个人感觉这样混淆。 要破解也就是多搜索一下。还是把APK写好些。
作者: smss    时间: 2019-5-23 20:54

回复 46# xczxczxcz 谷歌有混淆器的 这个大家都知道 也就不是什么秘密了 所以要写个不一样的
作者: xczxczxcz    时间: 2019-5-23 21:01

回复 47# smss


    做一简单版,和高级版。高级版要收费下载。简单版基本功能要好用。让人家想买高级版。APK加密唉。
作者: WHY    时间: 2019-5-23 23:09

回复 32# smss


    已修改,如果还有问题,请其他高手解答。
作者: smss    时间: 2019-5-24 18:58

回复 49# WHY

谢谢你的注释 经过多次 修改调试 含数组的也可以正常工作了

现在只有一关联文本c中关联文本a中变量名,希望也同步替换,生成文本d
文本c特点如下 id="aper"  如果文本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"/>
</Group>
</Config>

希望得到你的答案
作者: WHY    时间: 2019-5-25 12:38

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

回复 50# smss


    在 echo 'Done' 上面,插入三行:
  1. $str = [IO.File]::ReadAllText('c.txt', [Text.Encoding]::Default);
  2. $str = [regex]::Replace($str, '(?<=\sid=")[^"]+(?=")', {param($m); if($Hash[$m.Value]){$Hash[$m.Value]}else{$m.Value}});
  3. [IO.File]::WriteAllText('d.txt', $str, [Text.Encoding]::UTF8);
复制代码

作者: smss    时间: 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"/>去除中间所有空格只保留第一个空格 应该怎样改
作者: netbenton    时间: 2019-5-26 00:07

回复 52# smss

这两个比较容易实现,BAT也可以做到,关于需要过滤固定数组的地方有没有举例的文本?
作者: netbenton    时间: 2019-5-26 11:58

除了数组,其它的做解决了~~~
  1. goto :ansi
  2. rem UTF-8 编码支持
  3. chcp 65001
  4. cls
  5. :ansi
  6. @echo off
  7. setlocal enabledelayedexpansion
  8. set /p "strFile=请拖入处理文本:"
  9. if not exist !strFile! (
  10. echo;"!strFile!" 文件不找不到!!
  11. exit /b
  12. )
  13. rem 定义用于命名的字符表
  14. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  15. set n=0
  16. rem 例外情况定义
  17. set exception=Extra Button
  18. (
  19. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  20. set s1=%%a
  21. set s2=%%b
  22. set z=
  23. for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
  24. if "!z!!s1:~-5!" equ " name" (
  25. set s3=!s2:^"= !
  26. for /f "tokens=1 delims= " %%c in ("!s3!") do (
  27. if defined #%%~c (
  28. echo;%%a=%%b
  29. ) else (
  30. call :getn !n! ss
  31. set sa=%%~c
  32. rem 保留"."后面的尾巴
  33. if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
  34. echo;!s1!="!ss!" %%d
  35. set $!n!=!ss!囧%%~c
  36. set #%%~c=!ss!
  37. set /a n+=1
  38. )
  39. )
  40. ) else (
  41. if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
  42. )
  43. )
  44. ) >temp.txt
  45. set/a n-=1
  46. (
  47. for /f "tokens=1,*" %%a in (temp.txt) do (
  48. set str=%%b
  49. if defined str (set str=%%a !str: =!) else set str=%%a
  50. for /l %%1 in (0,1,!n!) do (
  51. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  52. set str=!str:"%%c"="%%b"!
  53. set str=!str:@%%c=@%%b!
  54. set str=!str:#%%c=#%%b!
  55. )
  56. )
  57. echo;!str!
  58. )
  59. ) > 结果.txt
  60. start 结果.txt
  61. rem 查看有多少个更改
  62. set $
  63. pause
  64. exit /b
  65. rem 计算临名字,可加上前缀,A-Z,AA-ZZ,AAA-ZZZ,AAAA-ZZZZ ……
  66. :getn
  67. (set L=%1
  68. set M=%1
  69. set %2=)
  70. :loop
  71. set /a M=L %% 26
  72. set %2=!%2!!ASC:~%M%,1!
  73. if !M! neq !L! set /a L=L/26&goto :loop
  74. goto :eof
复制代码

作者: xczxczxcz    时间: 2019-5-26 21:15

回复 54# netbenton


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

----------现在看到用纯P写长脚本时就有一种莫明恐惧感!
作者: netbenton    时间: 2019-5-27 00:03

数组也可以处理了。
终于全部搞好了,连特殊符号“!”号也处理好了!!!
  1. goto :ansi
  2. rem UTF-8 编码支持
  3. chcp 65001
  4. cls
  5. :ansi
  6. @echo off
  7. set /p "strFile=请拖入处理文本:"
  8. setlocal enabledelayedexpansion
  9. if not exist !strFile! (
  10. echo;"!strFile!" 文件不找不到!!
  11. exit /b
  12. )
  13. endlocal
  14. rem 定义用于命名的字符表
  15. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  16. set n=0
  17. rem 例外情况定义
  18. set exception=Extra Button
  19. set z=
  20. set o=
  21. setlocal enabledelayedexpansion
  22. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  23. for /f "tokens=1,2 delims= " %%K in ("1 !z!") do (
  24. endlocal
  25. set z=%%L
  26. set s1=%%a
  27. set s2=%%b
  28. setlocal enabledelayedexpansion
  29. )
  30. if defined z for %%k in (%exception%) do (
  31. if "#!s1:</%%k>=!" neq "#!s1!" (
  32. set z=!z:~1!
  33. )
  34. )
  35. for %%k in (%exception%) do (
  36. if "!s1:<%%k=!" neq "!s1!" (
  37. if "#!s2:/>=!" equ "#!s2!" (
  38. set z=!z!y
  39. ) else (
  40. set o=o
  41. )
  42. )
  43. )
  44. if "!o!!z!!s1:~-5!" equ " name" (
  45. set s3=!s2:^"= !
  46. for /f "tokens=1 delims= " %%c in ("!s3!") do (
  47. if not defined #%%~c (
  48. call :getn !n! ss
  49. set sa=%%~c
  50. rem 保留"."后面的尾巴
  51. if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
  52. for /f "tokens=1,2,3 delims= " %%x in ("!n! !ss! !z!") do (
  53. endlocal
  54. set $%%x=%%y囧%%~c
  55. set #%%~c=%%y
  56. set /a n+=1
  57. set z=%%z
  58. setlocal enabledelayedexpansion
  59. )
  60. )
  61. )
  62. )
  63. )
  64. set/a n-=1
  65. (
  66. for /f "tokens=1,*" %%a in (!strFile!) do (
  67. endlocal
  68. set stra=%%a
  69. set str=%%b
  70. setlocal enabledelayedexpansion
  71. if defined str (
  72. set "str=!stra! !str: =!"
  73. for /l %%1 in (0,1,%n%) do (
  74. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  75. set str=!str:"%%c"="%%b"!
  76. set str=!str:@%%c=@%%b!
  77. set str=!str:#%%c=#%%b!
  78. )
  79. )
  80. ) else (
  81. set str=%%a
  82. )
  83. echo;!str!
  84. )
  85. ) > 结果.txt
  86. start 结果.txt
  87. rem 查看有多少个更改
  88. set $
  89. pause
  90. exit /b
  91. rem 计算临名字,可加上前缀,多个,A 到 ZZZZ 多个
  92. :getn
  93. (set L=%1
  94. set M=%1
  95. set %2=)
  96. :loop
  97. set /a M=L %% 26
  98. set %2=!%2!!ASC:~%M%,1!
  99. if !M! neq !L! set /a L=L/26&goto :loop
  100. goto :eof
复制代码

作者: netbenton    时间: 2019-5-27 00:04

回复 55# xczxczxcz


    我觉得批处理也可以做得到
作者: amwfjhh    时间: 2019-5-27 01:05

回复 56# netbenton


    代码风格看着舒服…
作者: smss    时间: 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 它不判断大小写和完整字符
作者: netbenton    时间: 2019-5-28 00:59

回复 59# smss
1,加入了区分大小写
2,加入了完整词检查
3,加入了多种位置变量的替换,自己可以根据情况添加
  1. goto :ansi
  2. rem UTF-8 编码支持
  3. chcp 65001
  4. cls
  5. :ansi
  6. @echo off
  7. set /p "strFile=请拖入处理文本:"
  8. setlocal enabledelayedexpansion
  9. if not exist !strFile! (
  10. echo;"!strFile!" 文件不找不到!!
  11. exit /b
  12. )
  13. endlocal
  14. rem 定义用于命名的字符表
  15. set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
  16. set n=0
  17. rem 定义可用于命名的字符表
  18. set tab="." [ + - ^"
  19. rem 例外情况定义
  20. set exception=Extra Button
  21. set z=
  22. set o=
  23. setlocal enabledelayedexpansion
  24. for /f "tokens=1* delims==" %%a in (!strFile!) do (
  25. for /f "tokens=1,2 delims= " %%K in ("1 !z!") do (
  26. endlocal
  27. set z=%%L
  28. set s1=%%a
  29. set s2=%%b
  30. setlocal enabledelayedexpansion
  31. )
  32. if defined z for %%k in (%exception%) do (
  33. if "#!s1:</%%k>=!" neq "#!s1!" (
  34. set z=!z:~1!
  35. )
  36. )
  37. for %%k in (%exception%) do (
  38. if "!s1:<%%k=!" neq "!s1!" (
  39. if "#!s2:/>=!" equ "#!s2!" (
  40. set z=!z!y
  41. ) else (
  42. set o=o
  43. )
  44. )
  45. )
  46. if "!o!!z!!s1:~-5!" equ " name" (
  47. set s3=!s2:^"= !
  48. for /f "tokens=1 delims= " %%c in ("!s3!") do (
  49. if not defined #%%~c (
  50. call :getn !n! ss
  51. set sa=%%~c
  52. rem 保留"."后面的尾巴
  53. if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!
  54. for /f "tokens=1,2,3 delims= " %%x in ("!n! !ss! !z!") do (
  55. endlocal
  56. set $%%x=%%y囧%%~c
  57. set #%%~c=%%y
  58. set /a n+=1
  59. set z=%%z
  60. setlocal enabledelayedexpansion
  61. )
  62. )
  63. )
  64. )
  65. )
  66. set/a n-=1
  67. (
  68. for /f "tokens=1,*" %%a in (!strFile!) do (
  69. endlocal
  70. set stra=%%a
  71. set str=%%b
  72. setlocal enabledelayedexpansion
  73. if defined str (
  74. set "str=!stra! !str: =!"
  75. for /l %%1 in (0,1,%n%) do (
  76. for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
  77. if "!str:%%c=!" neq "!str!" (
  78. if "!str:%%c=%%c!" equ "!str!" (
  79. set str=!str:"%%c"="%%b"!
  80. set str=!str:"@%%c"="@%%b"!
  81. set str=!str:"#%%c"="#%%b"!
  82. if "!str:*%%c=!" neq "!str!" (
  83. call :parti %%c %%b
  84. )
  85. ))
  86. )
  87. )
  88. ) else (
  89. set str=%%a
  90. )
  91. echo;!str!
  92. )
  93. ) >结果.txt
  94. start 结果.txt
  95. rem 查看有多少个更改
  96. set $
  97. pause
  98. exit /b
  99. rem 计算临名字,可加上前缀,多个,A 到 ZZZZ 多个
  100. :getn
  101. (set L=%1
  102. set M=%1
  103. set %2=)
  104. :loop
  105. set /a M=L %% 26
  106. set %2=!%2!!ASC:~%M%,1!
  107. if !M! neq !L! set /a L=L/26&goto :loop
  108. goto :eof
  109. rem 非双引号位置处理 如:#xxxx+  #xxxx[  ]  #xxxx.dir  
  110. :parti
  111. for %%a in (!tab!) do (
  112. if "!str:%1%%~a=!" neq "!str!" (
  113. if "!str:%1%%~a=%1%%~a!" equ "!str!" (
  114. set str=!str:@%1%%~a=@%2%%~a!
  115. set str=!str:#%1%%~a=#%2%%~a!
  116. if "!str:*%1=!" equ "!str!" (
  117. goto :partiE
  118. )
  119. )
  120. )
  121. )
  122. :partiE
  123. goto :eof
复制代码

作者: Batcher    时间: 2019-5-28 08:20

回复 59# smss


兄弟,你可不能劝人放弃啊
请坚信:这个论坛里面绝大部分人写代码不是为了挣钱
作者: smss    时间: 2019-5-28 13:57

回复 61# Batcher 我是怕浪费了他的宝贵时间
作者: smss    时间: 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方式运行的 加了几个^有什么特殊的地方说明吗?
以下是目前的
  1. $global:n = 0; $Hash=@{};
  2. $str = [IO.File]::ReadAllText('manifest.xml',[Text.Encoding]::Default);
  3. #修改name属性的值,如果name属性值以music_prev或music_display或music_next等开头,或者节点名为Extra,则不修改
  4. $reg1 = '(?<=<(?!Extra)[^<>]*\sname=")(?!notice)(?!music_(?:prev|display|next|play|pause|album_cover))(?!notification_(?:icon|title|content|time|info|subtext|key|list))[^"]+(?=")';
  5. #如果command与target同时出现,command="play",则修改target属性值,
  6. $reg2 = '(?<=\starget=")[^"]+(?="[^<>]*\scommand="play)|(?<=\scommand="play[^<>]*\starget=") [^"]+(?=")';
  7. $str = [regex]::Replace($str, $reg1 + '|' + $reg2, {
  8.     param($m);
  9.     $key = $m.Value;
  10.     if( !$Hash.ContainsKey($key) ){
  11.         $x = [Math]::floor( $global:n / 26 );
  12.         if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
  13.         $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
  14.     }
  15.     $Hash[$key];
  16. })
  17. $arrKey = $Hash.Keys | sort -Desc {$_.Length};
  18. #如果属性值包含@#字符,或者属性值以 .animation或.visibility 结尾,则修改
  19. $str = [regex]::Replace($str, '(?<=")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
  20.     param($m);
  21.     $s = $m.Groups[1].Value;
  22.     forEach( $key In $arrKey ) {
  23.         $s = $s.Replace( '@' + $Key, '@' + $Hash[$Key] );
  24.         $s = $s.Replace( '#' + $Key, '#' + $Hash[$Key] );
  25.         $s = $s.Replace( $Key + '.animation', $Hash[$Key] + '.animation' );
  26.         $s = $s.Replace( $Key + '.visibility', $Hash[$Key] + '.visibility' );
  27.     }
  28.     $s;
  29. })
  30. [IO.File]::WriteAllText('manifest2.xml', $str, [Text.Encoding]::UTF8);
  31. $str = [IO.File]::ReadAllText('config.xml', [Text.Encoding]::Default);
  32. $str = [regex]::Replace($str, '(?<=\sid=")[^"]+(?=")', {param($m); if($Hash[$m.Value]){$Hash[$m.Value]}else{$m.Value}});
  33. [IO.File]::WriteAllText('config2.xml', $str, [Text.Encoding]::UTF8);
  34. echo 'Done';
  35. [Console]::ReadKey()
复制代码

作者: 523066680    时间: 2019-6-2 15:19

名字怕重复可以用 MD5 啊。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2