qixiaobin0715

4楼提的要求等于没说，我的本意是在网盘 上传真实的需要处理的文件，而不是随意杜撰一些文件。

TXTUSER

回复 15# qixiaobin0715


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

TXTUSER

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

qixiaobin0715

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

TXTUSER

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

qixiaobin0715

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

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
复制代码

TXTUSER

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

qixiaobin0715

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

idwma

回复 23# TXTUSER


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

qixiaobin0715

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

aloha20200628

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

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
复制代码

TXTUSER

回复 26# qixiaobin0715


    写成dll也行，麻烦老师了

TXTUSER

回复 28# idwma

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