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

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2024-10-31 21:11 | 只看该作者

[文本处理] 【已解决】批处理怎样读取字符串替换另外一个TXT文本中对应的字符串？

本帖最后由 TXTUSER 于 2024-11-12 10:52 编辑

从《字典》TXT文本中读取字符串替换《原文》TXT文本中对应的字符串；
字典TXT
A=SIN(Y)
B=LOG(100)
C=TAN(Z)
D=COS(X)

以下N行省略...
原文TXT
AD=MAX(A,B)+MAX(C,D)

.....以下N行省略
结果的例子
AD=MAX(SIN(Y),LOG(100))+MAX(TAN(Z),COS(X))
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
45楼
发表于 2024-11-12 10:51 | 只看该作者
回复 44# idwma


    完美！，谢谢老师！

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
44楼
发表于 2024-11-12 00:24 | 只看该作者
差点被送走
  1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit

  2. $aaaa='字典.txt'

  3. $bbbb='原文.txt'

  4. $dddd='结果.txt'

  5. $elbat=@{}

  6. gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '(?<=^[^=]+)=';$elbat[$cccc[0]]=$cccc[1]}

  7. $op=@{'+'='ADD';'-'='SUB';'*'='MUL';'/'='DIV'}

  8. $sa=@{}

  9. $dm=@{}

  10. $elbat.Keys -match '[+\-]'|%{$sa[$_]=$op[$_];$elbat[$op[$_]]=$elbat[$_]}

  11. $elbat.Keys -match '[*/]'|%{$dm[$_]=$op[$_];$elbat[$op[$_]]=$elbat[$_]}

  12. $exc=$op.keys -join ''

  13. $isa=$sa.keys -replace '^','\' -join ''

  14. $idm=$dm.keys -join ''

  15. 

  16. $opc=@'

  17. while(

  18.     [regex]::match($l,"[^$exc,]+([$idm])[^$exc,]+")|?{$_.value -ne ''}|%{

  19.         $d=$_.groups[1].value

  20.         $table[$op[$d]]+=,('{0}({1})' -f $op[$d],($_ -replace '[*/]',','))

  21.         $l=$l -replace [regex]::Escape($_),('$table["{0}"][{1}]' -f $op[$d],($table[$op[$d]].count-1))

  22.         1

  23.     }

  24. ){}

  25. while(

  26.     [regex]::match($l,"[^$exc,]+([$isa])[^$exc,]+")|?{$_.value -ne ''}|%{

  27.         $d=$_.groups[1].value

  28.         $table[$op[$d]]+=,('{0}({1})' -f $op[$d],($_ -replace '[+-]',','))

  29.         $l=$l -replace [regex]::Escape($_),('$table["{0}"][{1}]' -f $op[$d],($table[$op[$d]].count-1))

  30.         1

  31.     }

  32. ){}

  33. '@

  34. 

  35. $table=@{}

  36. gc $bbbb|?{$_ -match '='}|%{

  37.     $s=$_.trim()

  38.     while(

  39.         [regex]::matches($s,"\w+(?=(\([^()]+\)))")|%{

  40.             $l=$_.groups[1].value

  41.             $i=$_.groups[0].value+$_.groups[1].value

  42.             iex $opc

  43.             $j=$_.groups[0].value

  44.             $table[$j]+=,($j+$l)

  45.             $s=$s -replace [regex]::Escape($i),('$table["{0}"][{1}]' -f $j,($table[$j].count-1))

  46.             1

  47.         }

  48.     ){}

  49. 

  50.     $l=($s -split '=')[1]

  51.     $i=$l

  52.     iex $opc

  53.     $s=$s -replace [regex]::Escape($i),$l

  54. 

  55.     while(

  56.         [regex]::matches($s,'\$\w+\[\"([^]]+)\"\]\[[^]]+\]')|%{

  57.             $g=iex "$_"

  58.             $i=$elbat[$_.groups[1].value]

  59.             if($i -ne $null){

  60.                 $k=$g -split '[(,)]'

  61.                 $table['thisway']=1

  62.                 $j=[regex]::replace(

  63.                     $i,

  64.                     '(?<=[(,])[A-Z]\w*(?=[,)])',

  65.                     {$k[$table['thisway']++]}

  66.                 )

  67.                 $s=$s -replace [regex]::Escape("$_"),$j

  68.                 1

  69.             }else{

  70.                 $s=$s -replace [regex]::Escape("$_"),$g

  71.                 1

  72.             }

  73.         }

  74.     ){}

  75. 

  76.     $cccc=$s -split '(?<=^[^=]+)='

  77.     $elbat[$cccc[0]]=$cccc[1]

  78. 

  79.     [regex]::replace(

  80.         $s,

  81.         '(?<=[(,+=])\w+(?=[,)+=])',

  82.         {

  83.             $a=$args[0].groups[0].value

  84.             if($elbat[$a] -ne $null){$elbat[$a]}else{$a}

  85.         }

  86.     )

  87. }|sc $dddd
复制代码
1

评分人数

    • TXTUSER: 技术达人 乐于助人！技术 + 1

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
43楼
发表于 2024-11-11 15:45 | 只看该作者
回复 42# idwma
运算符号优先

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
42楼
发表于 2024-11-11 15:24 | 只看该作者
回复 41# TXTUSER


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

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
41楼
发表于 2024-11-11 15:10 | 只看该作者
回复 39# idwma


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

TOP

czjt1234

Rank: 6Rank: 6

帖子
1058 
积分
1559 
技术
112  
捐助
0  
注册时间
2010-4-30 
40楼
发表于 2024-11-11 15:02 | 只看该作者
最怕甲方改需求

QQ 20147578

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
39楼
发表于 2024-11-11 14:57 | 只看该作者
回复 37# TXTUSER



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

TOP

flashercs

Rank: 6Rank: 6

帖子
1250 
积分
2216 
技术
279  
捐助
0  
注册时间
2017-3-20 
38楼
发表于 2024-11-11 14:32 | 只看该作者
本帖最后由 flashercs 于 2024-11-11 17:09 编辑

回复 37# TXTUSER

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

  2. #SU=DC(OE+(FC+3))

  3. #HI=SUM(A*OE)

  4. #JJ=H+2

  5. #AD=MAX(TAN(Z),COS(X))+MAX(TAN(Z),COS(X))

  6. #P1=SIGNALS_USER(4567,2)

  7. #P2=REF(H,BARSLAST(P1))

  8. #AE=MAX(A,B)+MAX(C,D)+P2

  9. 

  10. P1=SIGNALS_USER(4567,2)

  11. P2=REF(H,BARSLAST(P1))

  12. JJ=H+2

  13. JJ=H-2

  14. JJ=H*2

  15. JJ=H/2

  16. AD=MAX(A,B)+MAX(C,D)
复制代码
字典
  1. #行注释符#

  2. #A=SIN(Y)

  3. #B=LOG(100)

  4. #C=TAN(Z)

  5. #D=COS(X)

  6. #OE=POW(3)

  7. #FC=SQRT(6)

  8. #H=TDXDLL1(4,0,1,0)

  9. #+=TDXDLL1(35,X,Y,0)

  10. #REF=TDXDLL1(5,X,Y,0)+Z

  11. #BARSLAST=TDXDLL1(17,X,0,0)

  12. #*=MULTI(A1,B1)

  13. 

  14. H=TDXDLL1(4,0,1,0)

  15. +=TDXDLL1(6,X,Y,0)

  16. -=TDXDLL1(7,X,Y,0)

  17. *=TDXDLL1(8,X,Y,0)

  18. /=TDXDLL1(9,X,Y,0)

  19. REF=TDXDLL1(5,X,Y,0)     

  20. BARSLAST=TDXDLL1(17,X,0,0)

  21. A=SIN(Y)

  22. B=LOG(100)

  23. C=TAN(Z)

  24. D=COS(X)
复制代码
结果
  1. #行注释符#

  2. #SU=DC(OE+(FC+3))

  3. #HI=SUM(A*OE)

  4. #JJ=H+2

  5. #AD=MAX(TAN(Z),COS(X))+MAX(TAN(Z),COS(X))

  6. #P1=SIGNALS_USER(4567,2)

  7. #P2=REF(H,BARSLAST(P1))

  8. #AE=MAX(A,B)+MAX(C,D)+P2

  9. 

  10. P1=SIGNALS_USER(4567,2)

  11. P2=TDXDLL1(5,TDXDLL1(4,0,1,0),TDXDLL1(17,SIGNALS_USER(4567,2),0,0),0)

  12. JJ=TDXDLL1(6,TDXDLL1(4,0,1,0),2,0)

  13. JJ=TDXDLL1(7,TDXDLL1(4,0,1,0),2,0)

  14. JJ=TDXDLL1(8,TDXDLL1(4,0,1,0),2,0)

  15. JJ=TDXDLL1(9,TDXDLL1(4,0,1,0),2,0)

  16. AD=TDXDLL1(6,MAX(SIN(Y),LOG(100)),MAX(TAN(Z),COS(X)),0)
复制代码
保存为translate.bat,编码为ANSI
  1. <#*,:

  2. @echo off

  3. cd /d "%~dp0"

  4. set "batchfile=%~f0"

  5. Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"

  6. pause

  7. exit /b

  8. #>

  9. # 注:字典和原文的注释行开头是 #

  10. $dicFile = "字典.txt"

  11. $srcFile = "原文.txt"

  12. $dstFile = "结果.txt"

  13. 

  14. $utf8 = New-Object System.Text.UTF8Encoding -ArgumentList $false

  15. $ansi = [System.Text.Encoding]::GetEncoding(0)

  16. $op_precedence = @{

  17.   '+' = 0

  18.   '-' = 0

  19.   '*' = 1

  20.   '/' = 1

  21. }

  22. $reCell = [regex]'((?>(?>\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\w+)+)'

  23. $reParam = [regex]'(?<=[(,])((?>(?>\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|(?>\w+)|[^,()])+)'

  24. $dic = @{}

  25. function Resolve-TokenTree {

  26.   param([string[]]$Tokens)

  27.   if ($null -eq $Tokens -or $Tokens.Count -eq 0) { return '' }

  28.   if ($Tokens.Count -eq 1) { return $Tokens[0] }

  29.   $precedence = [int]::MaxValue

  30.   $opctr = $null

  31.   for ($i = 0; $i -lt $Tokens.Count; ++$i) {

  32.     if ($op_precedence.ContainsKey($Tokens[$i]) -and $op_precedence[$Tokens[$i]] -le $precedence ) {

  33.       $opctr = $i

  34.       $precedence = $op_precedence[$Tokens[$i]]

  35.     }

  36.   }

  37.   # Sort-Object is not stable

  38.   # $opctr = 0..($Tokens.Count - 1) | Where-Object { $op_precedence.ContainsKey($Tokens[$_]) } | Sort-Object -Property @{Expression = { $op_precedence[$Tokens[$_]] } } | Select-Object -First 1

  39.   if ($null -eq $opctr) { return $Tokens -join '' }

  40.   $dicms = @{

  41.     tokens = @(

  42.       Resolve-TokenTree $Tokens[0..($opctr - 1)]

  43.       Resolve-TokenTree $Tokens[($opctr + 1)..($Tokens.Count - 1)]

  44.     )

  45.     ctr    = 0

  46.   }

  47.   if ($dic.ContainsKey($Tokens[$opctr])) {

  48.     $token = $reParam.Replace($dic[$Tokens[$opctr]], $evaluator2)

  49.   } else {

  50.     $token = $dicms.tokens[0] + $Tokens[$opctr] + $dicms.tokens[1]

  51.   }

  52.   return $token

  53. }

  54. function Resolve-Token {

  55.   param([string]$Token)

  56.   $tokens = $reCell.Split($Token) -match '\S'

  57.   if ($tokens.Count -eq 0) { return '' }

  58.   for ($i = 0; $i -lt $tokens.Count; $i += 2) {

  59.     if ($tokens[$i] -match '^\w+$') {

  60.       if ($dic.ContainsKey($tokens[$i])) {

  61.         $tokens[$i] = Resolve-Token $dic[$tokens[$i]] # 可能变成多token

  62.       }

  63.       continue

  64.     }

  65.     if ($tokens[$i] -match '^(\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))$' -and $dic.ContainsKey($Matches[1])) {

  66.       $func = $Matches[1]

  67.       $dicms = @{

  68.         msparams = $reParam.Matches($tokens[$i])

  69.         ctr      = 0

  70.       }

  71.       $tokens[$i] = Resolve-Token $reParam.Replace($dic[$func], $evaluator3) # 可能变成多token

  72.       continue

  73.     }

  74.     $tokens[$i] = $reParam.Replace($tokens[$i], $evaluator1)

  75.   }

  76.   return Resolve-TokenTree $tokens

  77. }

  78. $evaluator1 = [System.Text.RegularExpressions.MatchEvaluator] {

  79.   param($m)

  80.   Resolve-Token $m.Value

  81. }

  82. $evaluator2 = [System.Text.RegularExpressions.MatchEvaluator] {

  83.   param($m)

  84.   if ($m.Value -match '^[A-Z]\w*$') {

  85.     $dicms.tokens[$dicms.ctr++]

  86.   } else { $m.Value }

  87. }

  88. $evaluator3 = [System.Text.RegularExpressions.MatchEvaluator] {

  89.   param($m)

  90.   if ($m.Value -match '^[A-Z]\w*$') {

  91.     $dicms.msparams[$dicms.ctr++].Value

  92.   } else { $m.Value }

  93. }

  94. 

  95. foreach ($line in [IO.File]::ReadAllLines($dicFile, $ansi)) {

  96.   if ($line -notmatch '^\s*#' -and $line -match '=') {

  97.     $k, $v = $line -replace '\s+' -split '=', 2

  98.     $dic[$k] = $v

  99.   }

  100. }

  101. $lines = [IO.File]::ReadAllLines($srcFile, $ansi)

  102. for ($i = 0; $i -lt $lines.Count; $i++) {

  103.   if ($lines[$i] -notmatch '^\s*#' -and $lines[$i] -match '=') {

  104.     $lines[$i] = $lines[$i] -replace '\s+'

  105.     $k, $v = $lines[$i] -split '=', 2

  106.     $v2 = Resolve-Token $v

  107.     $dic[$k] = $v2

  108.     $lines[$i] = "${k}=${v2}"

  109.   }

  110. }

  111. 

  112. $lines

  113. Set-Content -Value $lines -LiteralPath $dstFile
复制代码
微信:flashercs
QQ:49908356

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
37楼
发表于 2024-11-11 13:50 | 只看该作者
回复 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)

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
36楼
发表于 2024-11-11 00:39 | 只看该作者
乱码文件编码另存为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)
  1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit

  2. $aaaa='字典.txt'

  3. $bbbb='原文.txt'

  4. $dddd='结果.txt'

  5. $elbat=@{}

  6. gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '(?<=^[^=]+)=';$elbat[$cccc[0]]=$cccc[1]}

  7. if($elbat['+'] -ne $null){$add='ADD';$elbat[$add]=$elbat['+']}

  8. $table=@{}

  9. gc $bbbb|?{$_ -match '='}|%{

  10.     $s=$_.trim()

  11.     while(

  12.         [regex]::matches($s,"\w+(?=(\((?:[^()]+|(?<Open>)\(|(?<-Open>)\))+(?(Open)(?!))\)))")|?{$_.groups[1].value -match '^\([^)]+\)$'}|%{

  13.             $l=$_.groups[1].value

  14.             $i=$_.groups[0].value+$_.groups[1].value

  15.             if($add -and $i -match '\+'){

  16.                 $l -split '[(,)]' -match '\+'|%{

  17.                     $table[$add]+=,('ADD({0})' -f ($_ -replace '\+',','))

  18.                     $l=$l -replace [regex]::Escape($_),('$table["{0}"][{1}]' -f $add,($table[$add].count-1))

  19.                 }

  20.             }

  21.             $j=$_.groups[0].value

  22.             $table[$j]+=,($j+$l)

  23.             $s=$s -replace [regex]::Escape($i),('$table["{0}"][{1}]' -f $j,($table[$j].count-1))

  24.             1

  25.         }

  26.     ){}

  27. 

  28.     if($add -and $s -match '\+'){

  29.         $l=$s -split '(?<=^[^=]+)='

  30.         $table[$add]+=,('ADD({0})' -f ($l[1] -replace '\+',','))

  31.         $s=$s -replace [regex]::Escape($l[1]),('$table["{0}"][{1}]' -f $add,($table[$add].count-1))

  32.     }

  33. 

  34.     while(

  35.         [regex]::matches($s,'\$\w+\[\"([^]]+)\"\]\[[^]]+\]')|%{

  36.             $g=iex "$_"

  37.             $i=$elbat[$_.groups[1].value]

  38.             if($i -ne $null){

  39.                 $k=$g -split '[(,)]'

  40.                 $table['thisway']=1

  41.                 $j=[regex]::replace(

  42.                     $i,

  43.                     '(?<=[(,])[A-Z]\w*(?=[,)])',

  44.                     {$k[$table['thisway']++]}

  45.                 )

  46.                 $s=$s -replace [regex]::Escape("$_"),$j

  47.                 1

  48.             }else{

  49.                 $s=$s -replace [regex]::Escape("$_"),$g

  50.                 1

  51.             }

  52.         }

  53.     ){}

  54. 

  55.     $cccc=$s -split '(?<=^[^=]+)='

  56.     $elbat[$cccc[0]]=$cccc[1]

  57. 

  58.     [regex]::replace(

  59.         $s,

  60.         '(?<=[(,+=])\w+(?=[,)+=])',

  61.         {

  62.             $a=$args[0].groups[0].value

  63.             if($elbat[$a] -ne $null){$elbat[$a]}else{$a}

  64.         }

  65.     )

  66. }|sc $dddd
复制代码

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
35楼
发表于 2024-11-10 17:59 | 只看该作者
回复 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)

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
34楼
发表于 2024-11-10 14:50 | 只看该作者
JJ=TDXDLL1(4,0,1,0)+2
AD=MAX(TAN(Z),COS(X))+MAX(TAN(Z),COS(X))
替换了+号应该是什么样的

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
33楼
发表于 2024-11-10 13:42 | 只看该作者
回复 32# idwma


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

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
32楼
发表于 2024-11-9 21:56 | 只看该作者
应该可以了，有错再改
  1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit

  2. $aaaa='字典.txt'

  3. $bbbb='原文.txt'

  4. $dddd='结果.txt'

  5. $elbat=@{}

  6. gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '(?<=^[^=]+)=';$elbat[$cccc[0]]=$cccc[1]}

  7. $table=@{}

  8. gc $bbbb|?{$_ -match '='}|%{

  9.     $s=$_.trim()

  10.     $table['thisway']=0

  11.     while(

  12.         [regex]::matches($s,"\w+(?=(\((?:[^()]+|(?<Open>)\(|(?<-Open>)\))+(?(Open)(?!))\)))")|%{

  13.             $i=$_.groups[0].value+$_.groups[1].value

  14.             $j=$_.groups[0].value+($table['thisway']++)

  15.             $table[$j]=$_.groups[0].value+$_.groups[1].value

  16.             if($i -match '^\w+\([^)]+\)$'){

  17.                 $s=$s -replace [regex]::Escape($i),('$table["{0}"]' -f $j)

  18.             }

  19.             1

  20.         }

  21.     ){}

  22. 

  23.     while(

  24.         [regex]::matches($s,'\$\w+\[\"([^]]+)\"\]')|%{

  25.             $g=iex "$_"

  26.             $i=iex('$'+$_.groups[1])

  27.             if($i -ne $null){

  28.                 $k=$g -split '[(,)]'

  29.                 $table['thisway']=1

  30.                 $j=[regex]::replace(

  31.                     $i,

  32.                     '(?<=[(,])[A-Z]\w*(?=[,)])',

  33.                     {$k[$table['thisway']++]}

  34.                 )

  35.                 $s=$s -replace [regex]::Escape("$_"),$j

  36.                 1

  37.             }else{

  38.                 $s=$s -replace [regex]::Escape("$_"),$g

  39.                 1

  40.             }

  41.         }

  42.     ){}

  43. 

  44.     $cccc=$s -split '(?<=^[^=]+)='

  45.     $elbat[$cccc[0]]=$cccc[1]

  46. 

  47.     [regex]::replace(

  48.         $s,

  49.         '(?<=[(,+=])\w+(?=[,)+=])',

  50.         {

  51.             $a=$args[0].groups[0].value

  52.             if($elbat[$a] -ne $null){$elbat[$a]}else{$a}

  53.         }

  54.     )

  55. }|sc $dddd
复制代码

TOP

123
返回列表