TXTUSER

回复 28# idwma

追问老师一下，遇到下面的问题报错，如何处理？
原文增加了一行JJ=H+2 ,字典里面的H=TDXDLL1(4,0,1,0),+=TDXDLL1(35,X,Y,0)   
运行后报错
    $+=TDXDLL1(35,X,Y,0)    : 无法将“$+=TDXDLL1(35,X,Y,0)   ”项识别为 cmdlet、函数、脚本文件或可运行程序的名称。请检查名
称的拼写，如果包括路径，请确保路径正确，然后再试一次。
所在位置 行:1 字符: 1
+ $+="TDXDLL1(35,X,Y,0)   "
+ ~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : ObjectNotFound: ($+=TDXDLL1(35,X,Y,0)   :String) [], CommandNotFoundException
    + FullyQualifiedErrorId : CommandNotFoundException

TXTUSER

回复 28# idwma

感谢老师支持，完美解决！

TXTUSER

回复 26# qixiaobin0715


    写成dll也行，麻烦老师了

idwma

最后一个链接失效了，只测了前面的
变量名随便输的，如果和文件里的有冲突还要改一下

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
$dddd='结果.txt'
gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '=';iex('$'+$cccc[0]+'="'+$cccc[1]+'"')}
$table=@{}
gc $bbbb|?{$_ -match '='}|%{
    $s=$_.trim()
    while(
        [regex]::matches($s,"\w+(?=(\((?:[^()]+|(?<Open>)\(|(?<-Open>)\))+(?(Open)(?!))\)))")|%{
            $i=$_.groups[0].value+$_.groups[1].value
            $table[$_.groups[0].value]=$_.groups[0].value+$_.groups[1].value
            if($i -match '^\w+\([^)]+\)$'){
                $s=$s -replace [regex]::Escape($i),('$table["{0}"]' -f $_.groups[0].value)
            }
            1
        }
    ){}

    while(
        [regex]::matches($s,'\$\w+\[\"([^]]+)\"\]')|%{
            $g=iex "$_"
            $i=iex('$'+$_.groups[1])
            if($i -ne $null){
                $k=$g -split '[(,)]'
                $table['c']=1
                $j=[regex]::replace(
                    $i,
                    '(?<=[(,])[A-Z]\w*(?=[,)])',
                    {$k[$table['c']++]}
                )
                $s=$s -replace [regex]::Escape("$_"),$j
                1
            }else{
                $s=$s -replace [regex]::Escape("$_"),$g
                1
            }
        }
    ){}

    $cccc=$s -split '='
    iex('$'+$cccc[0]+'="'+$cccc[1]+'"')

    [regex]::replace(
        $s,
        '(?<=[(,])\w+(?=[,)])',
        {
            $a=$args[0].groups[0]
            if(test-path('Variable:'+$a)){iex('$'+$a)}else{$a}
        }
    )
}|sc $dddd
复制代码

aloha20200628

楼主后来提供的示例文件和要求，与开始定义的原文/字典规则出现了冲突，并加入了函数表达式整体置换的要求，如此，原文不是纯粹的原文，字典不是纯粹的字典，而且依据变量替换的顺序或依据函数表达式整体替换的顺序会导出不同的结果

qixiaobin0715

好像有点看明白了，多层嵌套式参数替换，使用批处理应当不适合，最好想想其它方法。

idwma

回复 23# TXTUSER


    你举的例子和实际数据不一样，很难帮到你啊

qixiaobin0715

20楼附件处理后 DLL1(17,SIGNALS_USER(4567,2),0,0)
17、0、0这3个数是如何得到的？

TXTUSER

回复 22# idwma
结果和原文一样的，没有替换成功

idwma

原文有两行为什么结果只留一行

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
$dddd='结果.txt'
$eeee=gc $bbbb
gc $aaaa|%{$cccc=$_ -split '=';$eeee=$eeee -replace $cccc[0],$cccc[1]}
sc $dddd $eeee
复制代码

qixiaobin0715

原来是股票啊，真搞不懂这些函数的关系。你这就不是单纯的替换了。

TXTUSER

回复 19# qixiaobin0715
老师，我重新传了附件，
这次简化了一下
请帮助解决

qixiaobin0715

回复 17# TXTUSER
原文中的P1是怎么回事呢？

TXTUSER

回复 16# qixiaobin0715
附件中的结果就是真实的需要

TXTUSER

回复 15# qixiaobin0715


    字典中的X\Y分别对应原文中的数组变量