LoTROInterface SVN BusyBeeTasks

[xlsname,filepath]=uigetfile('*.xls');

[num,txt,raw]=xlsread([filepath,xlsname]);

clear num txt

%old version with separate prefix/name

%keywords={'name','prefix','quantity','lvlmin','lvlmax','sellvalue','faction','zone','place','map'};

%isnumber=[0,0,1,1,1,1,0,0,0,0];

%skiplist=[];

%new version, only name is relevant

keywords={'','name','qty','lvl','','','faction','zone','place',''};

isnumber=[0,0,1,1,1,1,0,0,0,0];

skiplist=[1,5,6,10];

expandedarray(1:size(raw,1),2:(size(raw,2)+1))=raw;

numlines=size(raw,1);

%separate names in prefix and name (old version only)

% for i=1:numlines

%     string=raw{i,1};

%     found=find(isspace(string),1,'last');

%     if isempty(found)

%         string1='';

%         string2=string;

%     else

%         string1=string(1:(found-1));

%         string2=string((found+1):end);

%     end

%     expandedarray(i,1)={string2}; %prefix

%     expandedarray(i,2)={string1}; %name

% end

%remove header

expandedarray(1,:)=[];

filename=[xlsname(1:(end-4)),'_exported.lua'];

fid=fopen([filepath,filename],'w','n','UTF-8');

fprintf(fid,'BusyBeeTasks = {\n');

for i=1:(numlines-1)

    fprintf(fid,'    ');

    %fprintf(fid,'[%i] = {id = %i,',i,i);

    fprintf(fid,'{id = %i,',i);

    for k=1:10

        if ~isempty(find(skiplist==k,1))

            continue

        end

        if isnumber(k)

            fprintf(fid,[' ',keywords{k},' = ',num2str(expandedarray{i,k}),',']);

        else

            fprintf(fid,[' ',keywords{k},' = "',expandedarray{i,k},'",']);

        end

    end

    fprintf(fid,' },\n');

end

fprintf(fid,'};\n');

fclose(fid);