##Temp./�C,E'/MPa(50.00Hz),E'/MPa(20.00Hz),E'/MPa(10.00Hz),E'/MPa(5.00Hz),E'/MPa(2.00Hz),E'/MPa(1.00Hz),tand(50.00Hz),tand(20.00Hz),tand(10.00Hz),tand(5.00Hz),tand(2.00Hz),tand(1.00Hz) 
 -40,00000  ;  1794,12671;  1774,58948;  1756,88953;  1739,56030;  1720,39282;  1707,24609; 6,34108E-02; 5,43609E-02; 4,49786E-02; 4,38529E-02; 4,23635E-02; 4,19082E-02

string names$ = col(1)[L]$;
int c = 1;
int delim = names.Find(",");
for (;delim > 0;)
{
    col($(c))[L]$ = names.Left(delim - 1)$;
    c++;
    names.Delete(1, delim);
    delim = names.Find(",");
}
col($(c))[L]$ = names$;
wcolwidth irng:=1! width:=10;

// Copy Long name from column 1 to a local string variable.
string names$ = col(1)[L]$; // 1=col index, L=Long name row

// Use 'c' for our column index, init to 1 (first col).
int c = 1;

// Use 'delim' for comma positions, init to index of first comma.
int delim = names.Find(",");

// Keep looping as long as we find a comma.
for (;delim > 0;)
{
    // Set column's Long name to part of string before the comma.
    col($(c))[L]$ = names.Left(delim - 1)$;

    // Increment column index.
    c++;

    // Delete the part of string before and including the comma.
    names.Delete(1, delim);

    // Find the next comma in the remaining string.
    delim = names.Find(",");
}

// Whatever remains in the string is the last long name.
col($(c))[L]$ = names$;

// Call the 'wcolwidth' X-Function to resize all the columns
// so they are wide enough to read their long names.
wcolwidth irng:=1! width:=10;