123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172 |
- function MovementRegressors = MovPartextImport(filename, startRow, endRow)
- %MovementRegressors = MovPartextImport(filename, startRow, endRow)
- %
- % Internal Function:
- % To read the movement parameter text files off the HCP. Generated by
- % Matlab.
- %
- % SA, UoW, 2017
- % srafyouni@gmail.com
- %
- %
- if nargin<=2
- startRow = 1;
- endRow = inf;
- end
- formatSpec = '%10s%11s%11s%11s%11s%11s%11s%11s%11s%11s%11s%s%[^\n\r]';
- fileID = fopen(filename,'r');
- dataArray = textscan(fileID, formatSpec, endRow(1)-startRow(1)+1, 'Delimiter', '', 'WhiteSpace', '', 'HeaderLines', startRow(1)-1, 'ReturnOnError', false, 'EndOfLine', '\r\n');
- for block=2:length(startRow)
- frewind(fileID);
- dataArrayBlock = textscan(fileID, formatSpec, endRow(block)-startRow(block)+1, 'Delimiter', '', 'WhiteSpace', '', 'HeaderLines', startRow(block)-1, 'ReturnOnError', false, 'EndOfLine', '\r\n');
- for col=1:length(dataArray)
- dataArray{col} = [dataArray{col};dataArrayBlock{col}];
- end
- end
- fclose(fileID);
- raw = repmat({''},length(dataArray{1}),length(dataArray)-1);
- for col=1:length(dataArray)-1
- raw(1:length(dataArray{col}),col) = dataArray{col};
- end
- numericData = NaN(size(dataArray{1},1),size(dataArray,2));
- for col=[1,2,3,4,5,6,7,8,9,10,11,12,13]
- % Converts text in the input cell array to numbers. Replaced non-numeric
- % text with NaN.
- rawData = dataArray{col};
- for row=1:size(rawData, 1);
- % Create a regular expression to detect and remove non-numeric prefixes and
- % suffixes.
- regexstr = '(?<prefix>.*?)(?<numbers>([-]*(\d+[\,]*)+[\.]{0,1}\d*[eEdD]{0,1}[-+]*\d*[i]{0,1})|([-]*(\d+[\,]*)*[\.]{1,1}\d+[eEdD]{0,1}[-+]*\d*[i]{0,1}))(?<suffix>.*)';
- try
- result = regexp(rawData{row}, regexstr, 'names');
- numbers = result.numbers;
-
- % Detected commas in non-thousand locations.
- invalidThousandsSeparator = false;
- if any(numbers==',');
- thousandsRegExp = '^\d+?(\,\d{3})*\.{0,1}\d*$';
- if isempty(regexp(numbers, thousandsRegExp, 'once'));
- numbers = NaN;
- invalidThousandsSeparator = true;
- end
- end
- % Convert numeric text to numbers.
- if ~invalidThousandsSeparator;
- numbers = textscan(strrep(numbers, ',', ''), '%f');
- numericData(row, col) = numbers{1};
- raw{row, col} = numbers{1};
- end
- catch me
- end
- end
- end
- R = cellfun(@(x) ~isnumeric(x) && ~islogical(x),raw); % Find non-numeric cells
- raw(R) = {NaN}; % Replace non-numeric cells
- MovementRegressors = cell2mat(raw);
|