0000080ah: 80 01 D1 AD BB B7 CF B5 CD B3 D5 FD B3 A3 58 CF ; .循环系统正常X?
0000081ah: DF B1 ED CF D6 00 00 00 00 00 00 00 00 00 00 00 ; 弑硐?..........
0000082ah: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ; ................
0000083ah: 00 00 00 00 80 03                               ; .....
复制代码

@if (0)==(0) echo off
setlocal enabledelayedexpansion

REM set /p "strFile=Input binary file:"
REM set /p "strOffset=Input offset:"
REM set /p "strLen=Input length of data:"
    
set "strFile=a.db"
set "strOffset=2059"
set "strLen=58"
    
for /l %%i in (0 1 6) do (
    set /a offsetNum=!strOffset!+%%i*!strLen!
    set /a offsetTxt=!offsetNum!+3
    set /a offsetNum1=!offsetNum!+52
    echo,!offsetNum!    !offsetTxt! !offsetNum1!
    cscript -nologo -e:jscript %~s0 GetBinNumber "!strFile!" !offsetNum!
    for /f "delims=" %%b in ('cscript -nologo -e:vbscript "$"') do (set "strIndex=%%b") & del /f "$"
    for /f "delims=" %%a in ('cscript -nologo -e:jscript %~s0 GetBinText "!strFile!" !offsetTxt! !strLen!') do (set "strLine=%%a")
    cscript -nologo -e:jscript %~s0 GetBinNumber "!strFile!" !offsetNum1!
    for /f "delims=" %%b in ('cscript -nologo -e:vbscript "$"') do (set "strIndex1=%%b") & del /f "$"

    echo,第 !strIndex! 章, !strLine!, 拥有节数 !strIndex1!
    REM pause>nul
)

pause
GOTO :EOF
@end

var fun = WScript.arguments(0);

switch (fun) {
case "GetBinText":
    CheckArgs(4);
    var fil = WScript.arguments(1);
    var offset = parseInt(WScript.arguments(2));
    var len = parseInt(WScript.arguments(3));
    GetBinText(fil, offset, len);
    break;

case "GetBinNumber":
    CheckArgs(3);
    var fil = WScript.arguments(1);
    var offset = parseInt(WScript.arguments(2));
    GetBinNumber(fil, offset);
    break;
    
    default:break;
}

function CheckArgs(num){
    if (WScript.arguments.length < num){
        WScript.echo("参数不齐");
        WScript.quit();
    }
}

function GetBinText(fil, offset, len){
    var stream;
    var strContent;
    
    stream = new ActiveXObject("adodb.stream");
    stream.open();
    stream.loadFromFile(fil);
    stream.type = 2;
    stream.charset = "gb2312";
    stream.position = offset;
    strContent = stream.readText(); 
    stream.close();
    
    WScript.echo(strContent);
}

function GetBinNumber(fil, offset){
    var stream, stream1;

    stream = new ActiveXObject("adodb.stream");
    stream.open();
    stream.type = 1;
    stream.loadFromFile(fil);
    stream.position = offset;
    
    //输出序号
    var stream1 = new ActiveXObject("adodb.stream");
    stream1.mode = 3;
    stream1.open();
    stream1.type = 2;
    stream1.charset = "gb2312"
    stream1.writeText("WScript.echo ascb(leftb(\"");
    stream1.position = 0;
    stream1.type = 1;
    stream1.position = 25;
    stream1.write(stream.read(1));
    stream1.position = 0;
    stream1.type = 2;
    stream1.position = 26;
    stream1.writeText("\", 1))");
    stream1.saveToFile("$", 2);
    stream1.close();

    stream.close();
}
复制代码

//tcc 编译后，以 程序名.exe 数据库名.db 查看数据库

#include <stdio.h>

typedef   unsigned char   BYTE;

struct data
{
	BYTE head1[3];
	BYTE index;
	BYTE head1[2];
	char text[50];
	BYTE head1[1];
	BYTE section;
};

main(int argc, char **argv){
	int i;
	FILE *fp;

	struct data db;

	for(i=1;i<argc;i++){
		fp = fopen(argv[i],"rb");
		fseek(fp,22,SEEK_SET);
		while(!feof(fp)){
			if(!fread(&db,sizeof(db),1,fp))break;
			
			printf("第 %d 章，%s，拥有节数 %d\n",db.index,db.text,db.section);
		}
		fclose(fp);
	}
}
复制代码

more bin.db | sed -r "s/^.{,3}//g;/^$/d" | more
复制代码