[交流] 【求助】asv文件转化

Originally posted by carton06 at 2010-12-02 18:26:04:
最近要写一个处理csv文件的程序，csv文件例子在附件中，网上下载了一个转化的m文件，使用不成功，textscan报错，格式不匹配。好像是因为有双引号的原因。求助各位大侠能够帮忙解决一下这个问题。目标是能把示例中 ...

function Data = mycsvread( fileName )

% fileName = 'K02-G-4-60.CSV';

% Get Filename
if ~ischar( fileName )
    error( 'mycsvread:InvalidInputType','Filename must be a string.' );
end
% Open the file
[fid message] = fopen( fileName );
if fid < 0
        error( 'mycsvread:FileNotOpened', 'The file ''%s'' could not be opened because: %s', filename, message );
end

% Start reading the data
tline = fgetl(fid); % Get rid of the first line
tline = fgetl( fid );

i = 1;
while ischar( tline )
   tline = tline( tline ~= '"' ); % Get rid of any spaces
   commaLocs = findstr( ',', tline ); % find the commas
   start = 1;
   for colIdx = 1 : length( commaLocs )
        Data{ i, colIdx }=tline( start : commaLocs( colIdx ) - 1 );
        start = commaLocs( colIdx ) + 1;
    end
   tline = fgetl( fid );
   i = i + 1;
end

fclose( fid );