script_getlist.m

由VB6.0 gui生成matlab的m文件

function S=script_getList(filename, address)
%   Retrieves text list from VB *.frx files

%   Martin Dale, July 2002
%   Copyright 2002   All Rights Reserved.
%   Version 1.00   9 June 2002
%   Contact [e-mail]

address=hex2dec(num2str(address));
fd=fopen(filename','rb');
fseek(fd,address,'bof');
NumItems=fread(fd,1,'uint16');
MaxLength=fread(fd,1,'uint16');

for i=1:NumItems
   NumChars=fread(fd,1,'uint16');
   S{i}=char(fread(fd,NumChars,'uint8'))';
end
fclose(fd);