zaqmlp

已更新，试试

smss

回复 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="#++#-"  机器运算不了 这就尴尬啦

Batcher

回复 16# smss


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

WHY

回复 13# smss


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

smss

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

amwfjhh

回复 14# 523066680


    python?

523066680

use Mojo::DOM;
use File::Slurp;
my $xml = read_file( "test.xml" );
my $dom = Mojo::DOM->new->xml(1)->parse( $xml );
my @code = ('A' .. 'ZZZ');

for my $e ( $dom->find("Variable")->each ) {
    my $k = $e->attr("name");
    $h{$k} = $code[$id++] unless (exists $h{$k});
    $e->attr("name" => $h{$k} );
}

for my $e ( $dom->find("Text")->each ) {
    my $exp = $e->attr("textExp");
    $exp =~s/([\@\#])([\w\_]+)/$1$h{$2}/g;
    $e->attr("textExp"=>$exp);
}

printf "%s\n", $dom;
复制代码

<Variable column="city_id" name="A" type="string" />
<Variable column="city_name" name="B" type="string" />
<Variable column="weather_type" name="C" type="int" />
<Variable column="city_id" name="A" type="string" />

<Text alignV="center" color="#ababab" marqueeGap="2" marqueeSpeed="50" name="Qm" size="30" textExp="@A" w="458" x="100" y="300" />
<Text alignV="center" color="#ababab" marqueeGap="2" marqueeSpeed="50" name="QW" size="30" textExp="#B" w="458" x="100" y="300" />
<Text alignV="center" color="#ababab" marqueeGap="2" marqueeSpeed="50" name="QA" size="30" textExp="#C+#A" w="458" x="100" y="300" />
复制代码

smss

回复 7# WHY

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

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

2数组不能使用或许是上个问题导致

amwfjhh

回复 11# smss


    嗯，无所谓，不同的实现方式，WHY兄用powershell，本身对各种对象支持就要好些，写出的代码也更简捷，而且代码中正则表达式过滤条件也要好些，没毛病。

smss

回复 10# amwfjhh

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

不过我更倾向于WHY的方法 化繁为简 效率高

amwfjhh

回复 8# smss


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

smss

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

smss

回复 6# amwfjhh
Win10怎样安装这个？？

WHY

test.bat

@echo off
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"
pause
复制代码

变量名范围：A~Z、AA~ZZ，应该够用

amwfjhh

正则处理由sed来完成，故运行时请确保系统内有sed命令。

@if (0)==(0) echo off
setlocal enabledelayedexpansion

pushd %~dp0
REM 取得名称列表
set "strDict="
set "nCount=0"

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

set "strFilter1=name=.[^^\"]*."
set "strFilter2=.*name=\"\([^^\"]*\)\".*$"
for /f "tokens=*" %%i in ('sed -n "/!strFilter1!/{s/!strFilter2!/\1/;p}" "!strFile!"') do (
	set "strTmpName=%%i"
	echo,!strDict! | findstr /i "!strTmpName!" >nul 2>nul && (
		REM 有字典存在，跳过
	) || (
		REM 无字典，添加记录
		set /a "nCount+=1"
		set "strDict=!strDict!(!strTmpName!)"
	)
)
echo,总共存在变量 !nCount! 个
set "nChar=64"
set "strRegExp="
for /l %%i in (1 1 !nCount!) do (
	set /a "nChar+=1"
	for /f "tokens=*" %%j in ('cscript -nologo -e:jscript %~s0 GetCharFromCode !nChar!') do set "strChar=%%j"
	call :_GetParm %%i
)
echo,替换变量正则表达式为 :
echo,!strRegExp!
echo,&echo,

REM 进行关键内容替换
for /f "tokens=*" %%i in ('echo,!strFile!') do set "strNewFile=%%~dpni_rep%%~xi"
>"!strNewFile!" sed "!strRegExp!" "!strFile!"
type "!strNewFile!"


pause
goto :EOF

:_GetParm
(
	for /f "tokens=%~1 delims=()" %%a in ('echo,!strDict!') do (
		echo,第 %%i 个变量 : %%a ==^> !strChar!
		set "strRegExp=!strRegExp!s/%%a/!strChar!/g;"
	)
	goto :EOF
)
@end 

var fun = WScript.Arguments(0);

switch (fun) {
	case "GetCharFromCode":
		var nChar = parseInt(WScript.Arguments(1));
		GetCharFromCode(nChar);
		break;

	default:;
}

function GetCharFromCode(nChar) {
	WScript.Echo(String.fromCharCode(nChar));
}
复制代码