Extract # Coefs from FitFunc

function Return_Coefs(Fitname)
string Fitname  
 
        //Try Dialog method
    string str=ProcedureText(Fitname,-1)
    variable SPos, EPos
 
    //Beginning of line
        SPos=strsearch(str,"//CurveFitDialog/ Coefficients" ,0,2)+30
    EPos=strsearch(str,"\r" ,SPos+1,2)-1
    str=str[SPos,EPos]
 
    variable Num=str2num(str)
    if(numtype(Num) == 0 && Num!= 0)
             return Num
       else
             return -1
    endif
 
return -1
end

function fitfun(coef,x):fitfunc
    wave coef
    //Coef description
    //Coef[0]: CoefInfo0
    //Coef[1]: CoefInfo1
    //Coef[2]: CoefInfo2
    variable x  
    return 0
end
 
function/S getfitfuncoef(fitname)
    string fitname
    string s1=proceduretext(fitname,0)
    string s2=greplist(s1,"//Coef\\[\\d+\\]:",0,"\r")
    variable i,n
    string s3,s4,s5
    s5="";
    n=itemsinlist(s2,"\r")
    for(i=0;i<n;i+=1)
        s3=stringfromlist(i,s2,"\r")
        splitstring/E="//Coef\\[\\d+\\]:\\s([a-zA-Z\\d]+)" s3,s4
        s5=s5+s4+";"
    endfor
    return s5   
end
 
 
<pre><code class="language-igor">