005    050    054    055    065   
  095    115    151   
154    155    165    184    185    186    195    225   
226    252    253    254    255    262    263    264   
265    266    274    275   
 276    284    285    294   
296    325    326    352    362    365    375    384   
上面是一些排列不规则的
012 014 021 022 023 024 025 026 027 029
032 034 038 039 041 042 043 044 045 047
048 049 052 054 058 059 062 068 069 072
074 078 079 083 084 085 086 087 092 093
094 095 096 097 102 104 112 114 120 121
这些是排列规则的
现在我要把上面不规则的排列成下面这种规则的 每个号码空一格 每行10个号码
请老师指点 谢谢

楼主的这些数字是放在一个文本文件里吗？最好传上来，方便调试。

数据上传 谢谢你

CLEAR
CSTR=CHRTRAN(CHRTRAN(FILETOSTR([CP.TXT]),[ ],[]),CHR(13)+CHR(10),[])
CSTR1=[]
FOR I=1 TO LEN(CSTR)/3
    A1=SUBSTR(CSTR,(I-1)*3+1,3)
    CSTR1=CSTR1+A1+IIF(I%10=0,CHR(13)+CHR(10),[ ])
ENDFOR
=STRTOFILE(CSTR1,[CP1.TXT])
MODIFY FILE CP1.TXT

4楼的方法比较好。还可以直观的替换来实现：
mystr=FILETOSTR("i:\cp.txt")
mystr=STRTRAN(mystr,"    "," ")
mystr=STRTRAN(mystr,"   "," ")
mystr=STRTRAN(mystr,"  "," ")
mystr=STRTRAN(mystr," "+CHR(13)+CHR(10)+" "," ")
mystr=STRTRAN(mystr,CHR(13)+" "+CHR(10)," ")
mystr=STRTRAN(mystr," "+CHR(13)+CHR(10)," ")
mystr=STRTRAN(mystr,CHR(13)+CHR(10)+" "," ")
STRTOFILE(mystr,"i:\cstr.txt")
MODIFY FILE i:\cstr.txt

谢谢 各位老师的 指点 我在止论坛学到了好多好东西

多年以后是一种特殊