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

smss · 发表于 2019-5-22 10:32:56

回复 14# 523066680
感谢这个应该怎样使用我电脑中没有不是BAT也不是PS？还要安装其它什么吗？？

WHY · 发表于 2019-5-22 10:54:19

回复 13# smss

我测试没有发现你所说的问题。请分别举例说明问题1，问题2

Batcher · 发表于 2019-5-22 11:06:18

回复 16# smss

参考：怎样在Windows系统中搭建Python环境？
http://bbs.bathome.net/thread-15581-1-1.html

smss · 发表于 2019-5-22 13:10:05

本帖最后由 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:54

已更新，试试

523066680 · 发表于 2019-5-22 14:41:47

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

NULL

WHY · 发表于 2019-5-22 15:13:29

回复 19# smss

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

smss · 发表于 2019-5-22 21:06:51

本帖最后由 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 · 发表于 2019-5-22 21:57:47

回复 23# smss

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

smss · 发表于 2019-5-23 01:20:09

本帖最后由 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:13

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 · 发表于 2019-5-23 01:48:50

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

netbenton · 发表于 2019-5-23 02:06:46

回复 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

复制代码

smss · 发表于 2019-5-23 11:08:31

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

回复 28# netbenton

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

WHY · 发表于 2019-5-23 11:22:59

回复 25# smss

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

		自动登录	找回密码
密码			注册

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

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

评分

评分

浏览过的版块

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

评分

评分

浏览过的版块

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