在HEX中手工導(dǎo)出圖片，雖然是可行的，但如果圖片太多的話，任誰都會(huì)失去動(dòng)手的興趣。

特貼出我在研究DAT之時(shí)為了驗(yàn)證思路所寫的宏。只是后來真正用語言寫的時(shí)候才發(fā)現(xiàn)好難好難，連個(gè)對(duì)話框什么的都要搞半天。也許是我太笨了吧。

所需軟件：Microsoft Excel for Windows。

大唐GX10N備份文件DAT一個(gè)。

打開EXCEL，新建一個(gè)表，如下:

其中位置1為圖片在DAT文件中第一個(gè)存儲(chǔ)空間的起點(diǎn)位置，長度1為第一個(gè)存儲(chǔ)空間的有效長度，即11273－65（11+文件名長度+12，每一個(gè)漢字和字母都占用兩個(gè)字節(jié)）。

位置2為圖片在DAT文件中第二個(gè)存儲(chǔ)空間的起點(diǎn)位置，長度2為圖片剩余的長度。可由文件總長-第一段的長度得出。

位置3和長度3也類似。

只是355×288的圖片只有17K左右，不應(yīng)該占用到3個(gè)存儲(chǔ)空間。

把你的DAT文件中的文件信息填上去。OK。

再點(diǎn)工具→宏→Visual Basic編輯器。

在出現(xiàn)的窗口中輸入如下代碼。

Dim br() As Byte

Sub Writefile()Sheet2.Range('A2').Select Close #1 Open 'c:abc.dat' For Binary Access Read As #1 ’我是把DAT復(fù)制到C盤下面，改名為abc.dat，你如果想使用你的文件名，請(qǐng)修改此處斜體部分 DoIf ActiveCell.Offset(0, 0).Range('A1').Value = '' Then Exit Do　’當(dāng)前行沒有文件信息時(shí)，則自動(dòng)退出程序。所以中間不要空行End IfClose #2Open 'c:' & ActiveCell.Offset(0, 0).Range('A1').Value For Binary Access Write As #2ReDim br(1 To ActiveCell.Offset(0, 0).Range('e1')) As ByteSeek 1, ActiveCell.Offset(0, 0).Range('c1').Value + ActiveCell.Offset(0, 0).Range('d1').Value + 1Get #1, , brPut #2, , brIf ActiveCell.Offset(0, 0).Range('F1').Value <> 0 Then ReDim br(1 To ActiveCell.Offset(0, 0).Range('g1')) Seek 1, ActiveCell.Offset(0, 0).Range('F1').Value + 10 Get 1, , br Put 2, , br If ActiveCell.Offset(0, 0).Range('H1').Value <> 0 ThenReDim br(1 To ActiveCell.Offset(0, 0).Range('I1'))Seek 1, ActiveCell.Offset(0, 0).Range('H1').Value + 10Get 1, , brPut 2, , br End IfEnd IfActiveCell.Offset(1, 0).Range('A1').Select Loop Close 1, 2 End Sub

關(guān)掉Visual Basic編輯器。

在當(dāng)前頁面按下Alt+F8(或是工具→宏→宏)。

選中WriteFile，點(diǎn)執(zhí)行。

然后點(diǎn)開我的電腦→C盤，可以看到我們解壓出來的圖片。

用這種方法解壓出來的圖片完整無損，而且可以直接觀看，不需要用ACDSEE另存。