LoTROInterface SVN BusyBeeTasks

[filename,filepath]=uigetfile('*.lua');

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

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

datafile=fopen([filepath,filename],'r','n','UTF-8');

tline=fgetl(datafile);

while(isempty(strfind(tline,'BusyBeeTasks')))

    tline=fgetl(datafile);

end

clear cellarray

for i=1:length(keywords)

    cellarray{1,i}=keywords{i};

end

k=2;

while(~feof(datafile))

    tline=fgetl(datafile);

    if ~isempty(strfind(tline,'};'))

        break;

    end

    if size(tline,2)<30

        continue

    end

    for i=1:length(keywords)

        index=strfind(tline,keywords{i});

        if(isnumber(i))

           found1=find((tline(index:end)>='0')&(tline(index:end)<='9'));

           found2=find(tline(index:end)==',',2,'first');

           string=tline((index+found1-1):(index+found2-2));

        else

            found=find(tline(index:end)=='"',2,'first');

            string=tline((index+found(1)):(index+found(2)-2));

        end

        cellarray(k,i)={string};

    end

    k=k+1;

end

fclose(datafile);

numlines=k-1;

for i=1:numlines

    cellarray(i,1)={[cellarray{i,2},' ',cellarray{i,1}]};

end

cellarray(:,2)=[];

cellarray(1,1)={'name'};

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

xlswrite([filepath,xlsname],cellarray)