%?輸入：inData文件夾
%?輸出：outData文件夾
%345M文件生成二進制時間為126.9375秒，還原為源文件時間為243.2653秒

%%?將源文件轉(zhuǎn)為二進制?
clear?all;
clc;

tic;%統(tǒng)計時間
filename=‘inData\video.WMV‘;%輸入
file_id?=?fopen（filename?‘rb‘）;%file_id:文件句柄值
fid=fopen（‘outData\outdata.txt‘‘w+‘）;%輸出
while（feof（file_id）?==?0）
????data?=?fread（file_id?30?*?10^6）;%XX為存放數(shù)據(jù)的矩陣??每次讀取30?*?10^6個字節(jié)
????data?=?uint8（data）;
????dataOut?=?dec2bin（data）;
????%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
????%?dataOut?=?uint8（zeros（length（data）?8））;
????%?for?i=1:1:8
????%?????dataOutTmp?=?rem（data（:1）2）;
????%?????data?=?floor（data?/?2）;
????%?????dataOut（:?9?-?i）?=?dataOutTmp;
????%?end
????%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

????%?dataOut?=?dataOut‘;
????%?dataOut?=?dataOut（:）;
????%?[x?y]?=?size（dataOut）;
???
????fprintf（fid‘%s‘dataOut‘）;%fprintf按列輸出dataOut的元素，所以需要將其轉(zhuǎn)置
????
end
fclose（‘a(chǎn)ll‘）;
t1?=?toc;%統(tǒng)計時間
disp（[‘生成二進制時間為‘num2str（t1）‘秒‘]）;

%%?將二進制還原為源文件
tic;
fid?=?fopen（‘outData\outdata.txt‘‘rb‘）;
file_id?=?fopen（‘outData\test.zip‘?‘wb‘）;
while（feof（fid）?==?0）
????A?=?fread（fid?30?*?10^7）;
????A?=?A?-?48;
????x?=?size（A?1）;
????Areshape?=?reshape（A?8?x/8）‘;%按照列填充
????
????%bin2dec運行太慢，程序替換此函數(shù)?begin
????for?i=1:1:8
???????Areshape（:i）?=?Areshape（:i）?*?（2^（8-i））;
????end
????Areshape?=?sum（Areshape?2）;%按行相加（1：按行，2：按列）
????Areshape?=?uint8（Areshape）;
????%bin2dec運行太慢，程序替換此函數(shù)?end

????fwrite（file_idAreshape‘uint8‘）;
end

fclose（‘a(chǎn)ll‘）;%解決fclose了test.rar文件后，文件仍然占用的問題
t2?=?toc;%統(tǒng)計時間
disp（[‘還原為源文件時間為‘num2str（t2）‘秒‘]）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1728??2017-11-13?10:59??toBinary\image_transmitter.m

?????文件???27602798??2016-02-25?14:35??toBinary\inData\UltraEdit32.rar

?????目錄??????????0??2017-11-13?14:15??toBinary\inData

?????目錄??????????0??2017-11-13?10:57??toBinary\outData

?????目錄??????????0??2017-11-13?10:59??toBinary

-----------?---------??----------?-----??----

?????????????27604526????????????????????5