//////////////////////////////
nc=wks.ncols;
for(ii=nc; ii>1; ii--) {
  for(jj=1; jj<ii; jj++) {
    //for LONG NAMES
      str1$=wcol(jj)[L]$;
      str2$=wcol(jj+1)[L]$;
    //for COMMENTS
      //str1$=wcol(jj)[C]$;
      //str2$=wcol(jj+1)[C]$;
    //for SHORT NAMES
      //str1$=wks.col$(ii+1).name$;
      //str2$=wks.col$(ii+1).name$;
    ff=str1.Compare(str2$);  //Comparison between this and nrxt
    if(ff>0) { //when str1>str2, Move Right
      colmove r:=wcol(jj) operation:=right;
    }
  }
}
/////////////////////////////////

quote:

---

Originally posted by Hideo Fujii

Hi thitchen,

There is no built-in menu command, etc., but the following script can sort columns
according to the long names (or, comments, or the short name) in dictionary order:

//////////////////////////////
nc=wks.ncols;
for(ii=nc; ii>1; ii--) {
  for(jj=1; jj<ii; jj++) {
    //for LONG NAMES
      str1$=wcol(jj)[L]$;
      str2$=wcol(jj+1)[L]$;
    //for COMMENTS
      //str1$=wcol(jj)[C]$;
      //str2$=wcol(jj+1)[C]$;
    //for SHORT NAMES
      //str1$=wks.col$(ii+1).name$;
      //str2$=wks.col$(ii+1).name$;
    ff=str1.Compare(str2$);  //Comparison between this and nrxt
    if(ff>0) { //when str1>str2, Move Right
      colmove r:=wcol(jj) operation:=right;
    }
  }
}
/////////////////////////////////

Maybe there are more elegant codes.
Anyway, I hope this helps.

--Hideo Fujii
OriginLab

---

///////////////////////////////////////
nc=wks.ncols;
for(ii=nc; ii>1; ii--) {
  for(jj=1; jj<ii; jj++) {
    //for SHORT NAMES
      str1$=Upper(wks.col$(jj).name$)$; len1=Len(str1$);
      str2$=Upper(wks.col$(jj+1).name$)$; len2=Len(str2$);
    ff=str1.Compare(str2$);  //Comparison between this and nrxt
    if((len1==len2 && ff>0) || len1>len2) { //when str1>str2, Move Right
      colmove r:=wcol(jj) operation:=right;
    }
  }
}
/////////////////////////////////////////

//////////////////////////////////////////////
wks1$=%H;
nc=wks.ncols;
window -t wks;
wks2$=%H;
//////////// Stage 1/3 //////////////////////
Break -b Stage 1 / 3; Break -r 1 (nc-2);
loop (ii, 1, nc-2) {Break -p ii; worksheet -a 1};
Break -end;
//////////// Stage 2/3 //////////////////////
Break -b Stage 2 / 3; Break -r 1 nc;
for(ii=1; ii<=nc; ii++) {  Break -p ii;
  col2$="oo"+wks.col$(ii).name$;
  %(wks1$)!wks.col$(ii).name$="oo"+%(wks2$)!wks.col$(ii).name$;
}
Break -end;
window -a %(wks1$);
//////////// Stage 3/3 //////////////////////
Break -b Stage 3 / 3; Break -r 1 nc;
for(ii=1; ii<=nc; ii++) { Break -p ii;
  str1$=wks.col$(ii).name$;
  wks.col$(ii).name$=Mid(str1$,3,Len(str1$))$;
}
Break -end;
type -b $(nc) columns have been renamed.;
window -cd %(wks2$);
//////////////////////////////////////////////