a,Recipe: Piece Bone Gaiters    1    59%\\nLeather Helmet Design    1    38%\\nRecipe: Piece Bone Breastplate    1    37%\0
a,Thread    2 - 3    100%\\nRecipe: Piece Bone Gaiters    1    59%\\nHaste Potion    1    19%\0
复制代码

\\nLeather Helmet Design    ,\\n测试皮头盔甲    
\\nHaste Potion    ,\\n药水    
\\nRecipe: Piece Bone Breastplate    ,\\n骨头胸甲的制作卷    
复制代码

f1 = "text.txt"
c1 = "GBK"       '文件编码，可以是 UTF-16 或 UTF-8

f2 = "字典.txt"
c2 = "GBK"

Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.Global = True
oRegExp.IgnoreCase = True
Set oStream1 = CreateObject("ADODB.Stream")
oStream1.Type = 2
oStream1.Mode = 3
oStream1.Charset = c1
oStream1.Open()
oStream1.LoadFromFile f1
s = oStream1.ReadText()
Set oStream2 = CreateObject("ADODB.Stream")
oStream2.Type = 2
oStream2.Mode = 3
oStream2.Charset = c2
oStream2.Open()
oStream2.LoadFromFile f2
Do
    m = oStream2.ReadText(-2)
    If InStr(m, ",") Then
        m = Split(m, ",", 2)
        m(0) = RePlace(m(0), "\", "\\")
        oRegExp.Pattern = m(0)
        s = oRegExp.Replace(s, m(1))
    End If
Loop Until oStream2.EOS
oStream1.Close()
oStream1.Open()
oStream1.WriteText s
oStream1.SaveToFile f1, 2
wsh.Echo "ok"
复制代码

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
for /f "useback tokens=1-2 delims=,\" %%a in ("2.txt") do (
	set "str=%%~nxa"
	set "str=!str::= !"
	set "#"!str!"=%%~nxb"
)
(for /f "useback delims=" %%a in ("1.txt") do (
	set "str="%%a""
	set "str=!str:    =" "!"
	setlocal
	for %%b in (!str!) do (
		for /f "tokens=1* delims=\" %%c in ("%%~b") do (
			if "%%d" equ "" (
				set "x=!x!%%c    "
			) else (
				set "d=%%d"
				set "d=!d::= !"
				if not defined #"!d!" (
					if "%%d" equ "0" (
						set "x=!x!%%c\%%d    "
					) else (
						set "x=!x!%%c\\%%d    "
					)
				) else (
					for /f "delims=" %%e in ("#"!d!"") do (
						set "x=!x!%%c\\!%%e!    "
					)
				)
			)
		)
	)
	echo !x:~0,-4!
	endlocal
))>3.txt
endlocal
pause
复制代码

@{}#? 2>nul&pause&powershell -c "gc -literalpath '%~f0'|out-string|iex"&exit/b
[console]::writeline("`r`nrunning")

#$thehash=new-object hashtable
$thehash=@{}

gc '字典.txt' |foreach{
$str=$_ -split '    ,'
if($thehash.ContainsKey($str[0])){
$thehash[$str[0]]=$str[1].trimend()
}else{
$thehash.add($str[0],$str[1].trimend())
}
}

gc 'text.txt' |foreach{
$aaa=$_.replace('\\n','    \\n')
$str=($aaa -split '    ' |foreach{if($thehash.ContainsKey($_)){$thehash[$_]}else{$_}}) -join '    '
$str.replace('    \\n','\\n')
} |sc the-new-text.txt

[console]::writeline("`r`ndone")
cmd /c pause
复制代码

gawk "FNR==NR{split($0, a, /[^,]+|(\042[^\042]+\042)/,m);r[m[1]]=m[2]}FNR<NR{split($0, a, /\\\\[^\\0-9]+    /,m);printf a[1];for(i in m){if(!r[m[i]])r[m[i]]=m[i];printf(\"%s%s\",r[m[i]],a[i+1])};print\"\"}" "字典.txt" "text.txt">"text_new.txt"
复制代码

@set @v=1 //&(cscript /e:jscript "%~f0")&exit/b
//
fso = new ActiveXObject('Scripting.FileSystemObject');
fp = fso.OpenTextFile('字典.txt'), linesD = fp.readall().split('\r\n'), fp.close();
fp = fso.OpenTextFile('text.txt'), lineT = fp.readall(), fp.close();
fp = fso.OpenTextFile('text.new.txt',2,true);
for (var kv,re,i=0,l=linesD.length; i<l; i++) {
	kv = linesD[i].split(','), k = trim(kv[0]), v = trim(kv[1]);
	eval('re=/'+k+'/gi;'), lineT = lineT.replace(re, v);
}
fp.write(lineT), fp.close(), WSH.quit();
//
function trim (s) { return s.replace(/(^\s*)|(\s*$)/g,''); }
复制代码

#encoding=gbk
import re
with open('text.txt', 'r', -1) as fr:
	tLine = fr.read()
with open('字典.txt', 'r', -1) as fr:
	dLines = fr.readlines()
for d in dLines:
	kv = d.split(',')
	k, v = kv[0].strip(), kv[1].strip()
	tLine = re.sub(k, v, tLine, flags=re.I|re.S)
with open('text.new.txt', 'w', -1) as fw:
	fw.write(tLine)
复制代码