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

idwma

应该可以了，有错再改

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

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

    $cccc=$s -split '(?<=^[^=]+)='
    $elbat[$cccc[0]]=$cccc[1]

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

TXTUSER

回复 32# idwma


   老师好，经多次测试报告如下：① 没有出现报错情况，②但是出来的结果和28楼不一致，③+号也没有被替换，请老师有空再修改一下，谢谢。
另外汉字没有被识别，乱码，改为拼音就好了

idwma

JJ=TDXDLL1(4,0,1,0)+2
AD=MAX(TAN(Z),COS(X))+MAX(TAN(Z),COS(X))
替换了+号应该是什么样的

TXTUSER

回复 34# idwma 替换规则和之前的事一样的，X,Y两个变量分别被替换为+号左右两边的字符串，具体结果如下：
JJ=TDXDLL1(35,TDXDLL1(4,0,1,0),2,0)   
AD=TDXDLL1(35,MAX(TAN(Z),COS(X)),MAX(TAN(Z),COS(X)),0)

idwma

乱码文件编码另存为ANSI看看
只测了这些
原文
P1=SIGNALS_USER(4567,2)
P2=REF(H,BARSLAST(P1))
JJ=H+2
AD=MAX(A,B)+MAX(C,D)
字典
H=TDXDLL1(4,0,1,0)
+=TDXDLL1(35,X,Y,0)
REF=TDXDLL1(5,X,Y,0)     
BARSLAST=TDXDLL1(17,X,0,0)
A=SIN(Y)
B=LOG(100)
C=TAN(Z)
D=COS(X)

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

    if($add -and $s -match '\+'){
        $l=$s -split '(?<=^[^=]+)='
        $table[$add]+=,('ADD({0})' -f ($l[1] -replace '\+',','))
        $s=$s -replace [regex]::Escape($l[1]),('$table["{0}"][{1}]' -f $add,($table[$add].count-1))
    }

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

    $cccc=$s -split '(?<=^[^=]+)='
    $elbat[$cccc[0]]=$cccc[1]

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

TXTUSER

回复 36# idwma
非常感谢老师的耐心解答，目前已经完美解决了+的问题，但是原文中同时出现了+、-、*、/，单一替换没问题，主要还是想批量替换，还请老师再增补优化一下，谢谢！
原文
P1=SIGNALS_USER(4567,2)
P2=REF(H,BARSLAST(P1))
JJ=H+2
JJ=H-2
JJ=H*2
JJ=H/2
AD=MAX(A,B)+MAX(C,D)
字典
H=TDXDLL1(4,0,1,0)
+=TDXDLL1(6,X,Y,0)
-=TDXDLL1(7,X,Y,0)
*=TDXDLL1(8,X,Y,0)
/=TDXDLL1(9,X,Y,0)
REF=TDXDLL1(5,X,Y,0)     
BARSLAST=TDXDLL1(17,X,0,0)
A=SIN(Y)
B=LOG(100)
C=TAN(Z)
D=COS(X)

flashercs

回复 37# TXTUSER

原文和字典的 行注释 符是 #,注释行不处理.注释行可以删掉.
原文

#行注释符#
#SU=DC(OE+(FC+3))
#HI=SUM(A*OE)
#JJ=H+2
#AD=MAX(TAN(Z),COS(X))+MAX(TAN(Z),COS(X))
#P1=SIGNALS_USER(4567,2)
#P2=REF(H,BARSLAST(P1))
#AE=MAX(A,B)+MAX(C,D)+P2

P1=SIGNALS_USER(4567,2)
P2=REF(H,BARSLAST(P1))
JJ=H+2
JJ=H-2
JJ=H*2
JJ=H/2
AD=MAX(A,B)+MAX(C,D)
复制代码

字典

#行注释符#
#A=SIN(Y)
#B=LOG(100)
#C=TAN(Z)
#D=COS(X)
#OE=POW(3)
#FC=SQRT(6)
#H=TDXDLL1(4,0,1,0)
#+=TDXDLL1(35,X,Y,0)
#REF=TDXDLL1(5,X,Y,0)+Z
#BARSLAST=TDXDLL1(17,X,0,0)
#*=MULTI(A1,B1)

H=TDXDLL1(4,0,1,0)
+=TDXDLL1(6,X,Y,0)
-=TDXDLL1(7,X,Y,0)
*=TDXDLL1(8,X,Y,0)
/=TDXDLL1(9,X,Y,0)
REF=TDXDLL1(5,X,Y,0)     
BARSLAST=TDXDLL1(17,X,0,0)
A=SIN(Y)
B=LOG(100)
C=TAN(Z)
D=COS(X)
复制代码

结果

#行注释符#
#SU=DC(OE+(FC+3))
#HI=SUM(A*OE)
#JJ=H+2
#AD=MAX(TAN(Z),COS(X))+MAX(TAN(Z),COS(X))
#P1=SIGNALS_USER(4567,2)
#P2=REF(H,BARSLAST(P1))
#AE=MAX(A,B)+MAX(C,D)+P2

P1=SIGNALS_USER(4567,2)
P2=TDXDLL1(5,TDXDLL1(4,0,1,0),TDXDLL1(17,SIGNALS_USER(4567,2),0,0),0)
JJ=TDXDLL1(6,TDXDLL1(4,0,1,0),2,0)
JJ=TDXDLL1(7,TDXDLL1(4,0,1,0),2,0)
JJ=TDXDLL1(8,TDXDLL1(4,0,1,0),2,0)
JJ=TDXDLL1(9,TDXDLL1(4,0,1,0),2,0)
AD=TDXDLL1(6,MAX(SIN(Y),LOG(100)),MAX(TAN(Z),COS(X)),0)
复制代码

保存为translate.bat,编码为ANSI

<#*,:
@echo off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"
pause
exit /b
#>
# 注:字典和原文的注释行开头是 #
$dicFile = "字典.txt"
$srcFile = "原文.txt"
$dstFile = "结果.txt"

$utf8 = New-Object System.Text.UTF8Encoding -ArgumentList $false
$ansi = [System.Text.Encoding]::GetEncoding(0)
$op_precedence = @{
  '+' = 0
  '-' = 0
  '*' = 1
  '/' = 1
}
$reCell = [regex]'((?>(?>\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\w+)+)'
$reParam = [regex]'(?<=[(,])((?>(?>\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|(?>\w+)|[^,()])+)'
$dic = @{}
function Resolve-TokenTree {
  param([string[]]$Tokens)
  if ($null -eq $Tokens -or $Tokens.Count -eq 0) { return '' }
  if ($Tokens.Count -eq 1) { return $Tokens[0] }
  $precedence = [int]::MaxValue
  $opctr = $null
  for ($i = 0; $i -lt $Tokens.Count; ++$i) {
    if ($op_precedence.ContainsKey($Tokens[$i]) -and $op_precedence[$Tokens[$i]] -le $precedence ) {
      $opctr = $i
      $precedence = $op_precedence[$Tokens[$i]]
    }
  }
  # Sort-Object is not stable
  # $opctr = 0..($Tokens.Count - 1) | Where-Object { $op_precedence.ContainsKey($Tokens[$_]) } | Sort-Object -Property @{Expression = { $op_precedence[$Tokens[$_]] } } | Select-Object -First 1
  if ($null -eq $opctr) { return $Tokens -join '' }
  $dicms = @{
    tokens = @(
      Resolve-TokenTree $Tokens[0..($opctr - 1)]
      Resolve-TokenTree $Tokens[($opctr + 1)..($Tokens.Count - 1)]
    )
    ctr    = 0
  }
  if ($dic.ContainsKey($Tokens[$opctr])) {
    $token = $reParam.Replace($dic[$Tokens[$opctr]], $evaluator2)
  } else {
    $token = $dicms.tokens[0] + $Tokens[$opctr] + $dicms.tokens[1]
  }
  return $token
}
function Resolve-Token {
  param([string]$Token)
  $tokens = $reCell.Split($Token) -match '\S'
  if ($tokens.Count -eq 0) { return '' }
  for ($i = 0; $i -lt $tokens.Count; $i += 2) {
    if ($tokens[$i] -match '^\w+$') {
      if ($dic.ContainsKey($tokens[$i])) {
        $tokens[$i] = Resolve-Token $dic[$tokens[$i]] # 可能变成多token
      }
      continue
    }
    if ($tokens[$i] -match '^(\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))$' -and $dic.ContainsKey($Matches[1])) {
      $func = $Matches[1]
      $dicms = @{
        msparams = $reParam.Matches($tokens[$i])
        ctr      = 0
      }
      $tokens[$i] = Resolve-Token $reParam.Replace($dic[$func], $evaluator3) # 可能变成多token
      continue
    }
    $tokens[$i] = $reParam.Replace($tokens[$i], $evaluator1)
  }
  return Resolve-TokenTree $tokens
}
$evaluator1 = [System.Text.RegularExpressions.MatchEvaluator] {
  param($m)
  Resolve-Token $m.Value
}
$evaluator2 = [System.Text.RegularExpressions.MatchEvaluator] {
  param($m)
  if ($m.Value -match '^[A-Z]\w*$') {
    $dicms.tokens[$dicms.ctr++]
  } else { $m.Value }
}
$evaluator3 = [System.Text.RegularExpressions.MatchEvaluator] {
  param($m)
  if ($m.Value -match '^[A-Z]\w*$') {
    $dicms.msparams[$dicms.ctr++].Value
  } else { $m.Value }
}

foreach ($line in [IO.File]::ReadAllLines($dicFile, $ansi)) {
  if ($line -notmatch '^\s*#' -and $line -match '=') {
    $k, $v = $line -replace '\s+' -split '=', 2
    $dic[$k] = $v
  }
}
$lines = [IO.File]::ReadAllLines($srcFile, $ansi)
for ($i = 0; $i -lt $lines.Count; $i++) {
  if ($lines[$i] -notmatch '^\s*#' -and $lines[$i] -match '=') {
    $lines[$i] = $lines[$i] -replace '\s+'
    $k, $v = $lines[$i] -split '=', 2
    $v2 = Resolve-Token $v
    $dic[$k] = $v2
    $lines[$i] = "${k}=${v2}"
  }
}

$lines
Set-Content -Value $lines -LiteralPath $dstFile
复制代码

idwma

回复 37# TXTUSER



会不会还有复合型的像JJ=H+2-H*2/H这样的

czjt1234

最怕甲方改需求

TXTUSER

回复 39# idwma


    老师考虑的很超前，这种符合形态的运算公式，能不能做？

idwma

回复 41# TXTUSER


JJ=H+2-H*2/H替换后的结果是什么样的
是按运算一般顺序*/优先
还是排前面的优先

TXTUSER

回复 42# idwma
运算符号优先

idwma

差点被送走

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
$dddd='结果.txt'
$elbat=@{}
gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '(?<=^[^=]+)=';$elbat[$cccc[0]]=$cccc[1]}
$op=@{'+'='ADD';'-'='SUB';'*'='MUL';'/'='DIV'}
$sa=@{}
$dm=@{}
$elbat.Keys -match '[+\-]'|%{$sa[$_]=$op[$_];$elbat[$op[$_]]=$elbat[$_]}
$elbat.Keys -match '[*/]'|%{$dm[$_]=$op[$_];$elbat[$op[$_]]=$elbat[$_]}
$exc=$op.keys -join ''
$isa=$sa.keys -replace '^','\' -join ''
$idm=$dm.keys -join ''

$opc=@'
while(
    [regex]::match($l,"[^$exc,]+([$idm])[^$exc,]+")|?{$_.value -ne ''}|%{
        $d=$_.groups[1].value
        $table[$op[$d]]+=,('{0}({1})' -f $op[$d],($_ -replace '[*/]',','))
        $l=$l -replace [regex]::Escape($_),('$table["{0}"][{1}]' -f $op[$d],($table[$op[$d]].count-1))
        1
    }
){}
while(
    [regex]::match($l,"[^$exc,]+([$isa])[^$exc,]+")|?{$_.value -ne ''}|%{
        $d=$_.groups[1].value
        $table[$op[$d]]+=,('{0}({1})' -f $op[$d],($_ -replace '[+-]',','))
        $l=$l -replace [regex]::Escape($_),('$table["{0}"][{1}]' -f $op[$d],($table[$op[$d]].count-1))
        1
    }
){}
'@

$table=@{}
gc $bbbb|?{$_ -match '='}|%{
    $s=$_.trim()
    while(
        [regex]::matches($s,"\w+(?=(\([^()]+\)))")|%{
            $l=$_.groups[1].value
            $i=$_.groups[0].value+$_.groups[1].value
            iex $opc
            $j=$_.groups[0].value
            $table[$j]+=,($j+$l)
            $s=$s -replace [regex]::Escape($i),('$table["{0}"][{1}]' -f $j,($table[$j].count-1))
            1
        }
    ){}

    $l=($s -split '=')[1]
    $i=$l
    iex $opc
    $s=$s -replace [regex]::Escape($i),$l

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

    $cccc=$s -split '(?<=^[^=]+)='
    $elbat[$cccc[0]]=$cccc[1]

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

TXTUSER

回复 44# idwma


    完美！，谢谢老师！