pcl_test

rem win7及以上系统运行
powershell -c "$a=@{};gc '对比.ini'|%%{$a[$_[0]]=$_[1]};gc '无字母.txt'|%%{$t='';$_[0..($_.length-1)]|%%{if($a[$_]){$t+=$a[$_]}};($t+'        ').Substring(0, 8)+$_}"
pauseCOPY

#*第三方http://www.bathome.net/s/tool/index.html?key=gawk
#*&cls&gawk -f "%~f0"|find /v ""&pause&exit
BEGIN{
    while(getline<"对比.ini">0){split($0,a,"");b[a[1]]=a[2]}
    while(getline<"无字母.txt">0){
        split($0,a,"");s="";
        for(i=1;i<=length(a);i++){if(b[a[i]])s=s""b[a[i]]}
        printf("%-8.8s%s\n",s,$0);
    }
}COPY

pcl_test

回复 3# hlzj88

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('type "对比.ini"') do (
    set "str=%%a"
    set "#!str:~,1!=!str:~1,1!"
)
for /f "delims=" %%a in ('type "无字母.txt"') do (
    set char=
    call :loop "%%a"
    echo;!char:~,8!%%a
)
pause&exit
:loop
set "str=%~1"
for /l %%b in (0 1 100) do (
    if "!str:~%%b,1!" neq "*" (
        for /f "delims=" %%c in ("!str:~%%b,1!") do (
            if defined #%%c set "char=!char!!#%%c!"
        )
    ) else (set "char=!char!        "&goto :eof)
)COPY

pcl_test

//&cls&cscript -nologo -e:jscript "%~f0" "对比.ini" "无字母.txt"&pause&exit
 
var fso=new ActiveXObject('Scripting.FileSystemObject'),m={},s='';
var a=fso.OpenTextFile(WSH.Arguments(0),1).ReadAll().split(/[\r\n]+/);
var b=fso.OpenTextFile(WSH.Arguments(1),1).ReadAll().split(/[\r\n]+/);
for(var i=0;i<a.length;i++)m[a[i].substr(0,1)]=a[i].substr(1,1);
for(var i=0;i<b.length;i++){
    var t='';
    for(var j=0;j<b[i].length;j++){
        //if(b[i].substr(j,1)!='*'){
            if(m[b[i].substr(j,1)])t+=m[b[i].substr(j,1)];
        //}else{s+=(t+='        ').substr(0,8)+b[i]+'\r\n';break}
    }
    s+=(t+='        ').substr(0,8)+b[i]+'\r\n';
}
WSH.Echo(s);COPY