
| Quote: | |
|
CODE: [Copy to clipboard]var skipUnknown = false;
var rawcode = "111";
var quhaoFile = "quhao.txt";
var dataFile = "data.txt";
var resultFile = "newData.txt";
var fso=new ActiveXObject("Scripting.FileSystemObject");
var f,quhao=[];
f=fso.OpenTextFile(quhaoFile,1,false,false);
do{var line=(f.ReadLine()).split(" ");
var map=line[1].split("/");
for(var i in map)quhao[map[i]]=line[0];
}while(!f.AtEndOfStream);f.Close();
f=fso.OpenTextFile(dataFile,1,false,true);
var lines=[];do lines.push(f.ReadLine());
while(!f.AtEndOfStream);f.Close();lines.sort();
f=fso.CreateTextFile(resultFile,true,false);
var last=[0,"",false];
for(var i=0;i<lines.length;i++){
var isSkip=false,isBlink=false,line=lines[i].split("\t");
tempArr=[line[0]*1,quhao[line[1]]==undefined?(skipUnknown?"":line[1]):quhao[line[1]]];
if(tempArr[0]>(last[0]+1)&&i)
f.WriteLine(last[0]+1+" "+rawcode);
if(!(tempArr[1]==last[1]&&tempArr[0]==last[0]+1))
f.WriteLine(tempArr[0]+" "+tempArr[1]);
last=[tempArr[0],tempArr[1],isSkip];
}f.Close();
WScript.Echo(fso.GetFile(resultFile).Path);
CODE: [Copy to clipboard]@echo off&SETLOCAL ENABLEDELAYEDEXPANSION
set data=data.txt
set quhao=quhao.txt
set dstFile=result.txt
set a=1300000
set b=北京
for /f "tokens=1,2" %%i in (%quhao%) do set %%j=%%i
call echo.1300000 %北京%>%dstFile%
for /f "tokens=1,2" %%m in (%data%) do (
if "%%n" equ "!b!" (
set a=%%m
) else (
set/a a=!a!+1
if "!a!" neq "%%m" call echo.!a! %%未知%%>>%dstFile%
set a=%%m
set b=%%n
call echo.!a! %%!b!%%>>%dstFile%
)
)
start %dstFile%
CODE: [Copy to clipboard][ Last edited by freeants001 on 2010-5-6 at 19:55 ]@echo off&SETLOCAL ENABLEDELAYEDEXPANSION
set data=data.txt
set quhao=quhao.txt
set dstFile=result.txt
set a=1300000
set b=北京
for /f "tokens=1,2" %%i in (%quhao%) do set %%j=%%i
call echo.1300000 %北京%>%dstFile%
for /f "tokens=1,2" %%m in (%data%) do (
set/a line+=1&echo.正在处理第 !line!/202605 行:%%m %%n
if "%%n" equ "!b!" (
set a=%%m
) else (
set/a a=!a!+1
if "!a!" neq "%%m" call echo.!a! %%未知%%>>%dstFile%
set a=%%m
set b=%%n
call echo.!a! %%!b!%%>>%dstFile%
)
)
start %dstFile%

| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |