% APM Load Data File % % response = csv_load(server,app,filename) % % Function csv_load uploads the data file (csv) to the web-server % with the following arguments: % % server = address of server % app = application name % filename = data filename % % A response is returned indicating whether the file was % uploaded successfully to the server % function [response] = csv_load(server,app,filename) % load model fid=fopen(filename,'r'); tline = []; while 1 aline = fgets(fid); if ~ischar(aline), break, end % remove any double quote marks aline = [strrep(aline,'"',' ')]; tline = [tline aline]; end fclose(fid); % send to server once for every 2000 characters ts = size(tline,2); block = 2000; cycles = ceil(ts/block); for i = 1:cycles, if i<cycles, csv_block = ['csva ' tline((i-1)*block+1:i*block)]; else csv_block = ['csv ' tline((i-1)*block+1:end)]; end response = apm(server,app,csv_block); end response = 'Successfully loaded CSV file';