PI_Stage_Macro_umwandeln.m

Go to the documentation of this file.

%Skript zum Umwanden von Makros der alten PI-Stage am Spitfire für die neue
%Stage am Spitfire
%Code unabhängig von der restlichen Hologrammsoftware
 
%Variablen
file ='Fokussuche.txt';
 
%Einlesen
C={};
fidr = fopen(file);
noend = true;
errors = 0;
 
fgetl(fidr);%Erste Zeile löschen
while(noend) 
    d =fgetl(fidr);
    if(d==-1)
        noend=false;
    else
    C = [C; d];
    end
end
fclose(fidr);
 
%Verarbeitung
for i = 1: size(C,1)
    C(i)={strsplit(string(C(i)))};
     
end
 
for i=1:size(C,1)
    try
        if(C{i}(2) == "LOOP" || C{i}(2) == "DEL" || C{i}(2) == "VAR")     
        %do nothing
        elseif(C{i}(3)=="1"||C{i}(3)=="2"||C{i}(3)=="3")
            ptausch=C{i}(3);%dreieckstausch
            C{i}(3)=C{i}(1);%dreieckstausch
            C{i}(1) = ptausch;%dreieckstausch
        
        elseif(C{i}(4)=="1"||C{i}(4)=="2"||C{i}(4)=="3")
            ptausch=C{i}(4);%dreieckstausch
            C{i}(4)=C{i}(1);%dreieckstausch
            C{i}(1) = ptausch;%dreieckstausch
        end
    catch
        
    end
          
  
end
 
%Ausgabe
fidw = fopen(strcat('new_',file),'wt');
fprintf(fidw,"//## 1 - C-863 on USB DaisyChain: PI C-863 Mercury SN 0225500051, device 1 (axis 1)\r");
fprintf(fidw,"//## 2 - C-863 on USB DaisyChain: PI C-863 Mercury SN 0225500051, device 2 (axis 1)\r");
fprintf(fidw,"//## 3 - C-863 on USB DaisyChain: PI C-863 Mercury SN 0225500051, device 3 (axis 1)\r");
 
for i = 1: size(C,1)
   d="";
   for j=1:size(C{i},2)
       d=strcat(d,C{i}(j)," ");
   end
   d=strcat(d, '\r');
fprintf(fidw,d);
 
end
fclose(fidw);