use
USE ssc
CSTR1=[]
SCAN FOR rq=20130309
     CSTR=CSTR1+a5
ENDSCAN
? CSTR1
list CSTR to b1.txt
wait
CLEAR
*CSTR=[01234567890123456783456784567897890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567878]
AA=IIF(BETWEEN(LEFTC(CSTR,1),[0],[4]),[小],[大])
CREATE CURSOR T (A C(2),B N(2))
N=1
FOR I=1 TO LEN(CSTR)
    CSTRA=IIF(BETWEEN(SUBSTRC(CSTR,I,1),[0],[4]),[小],[大])
    IF CSTRA!=AA
       N=N+1
    ENDIF
    INSERT INTO T VALUES (CSTRA,N)
    AA=CSTRA
ENDFOR

SELECT A,B,CAST(COUNT(*) AS N(2)) C FROM T GROUP BY 2,1 INTO CURSOR T1
CALCULATE MAX(C) TO CS
N=0
CSTR=[]
FOR I=1 TO CS
    SCAN
       CSTR=CSTR+IIF(C-N<=0,[  ],A)+IIF(RECNO([T1])=RECCOUNT([T1]),CHR(13)+CHR(10),[])  
    ENDSCAN
    N=N+1
ENDFOR
*?CSTR
list CSTR to b2.txt

生成 b1.txt b2.txt
但b1 重复 很长如下：
 记录号  CSTR                                                                                                                    
        1  508907355871728119929072665379569048867812480944430586045041450238481077337689361465113785068795085377151644725484831298
        2  508907355871728119929072665379569048867812480944430586045041450238481077337689361465113785068795085377151644725484831298
         .
         .
         .
        7318  508907355871728119929072665379569048867812480944430586045041450238481077337689361465113785068795085377151644725484831298
        7319  508907355871728119929072665379569048867812480944430586045041450238481077337689361465113785068795085377151644725484831298
        7320  508907355871728119929072665379569048867812480944430586045041450238481077337689361465113785068795085377151644725484831298
7320多重复记录
b2 杂乱不连贯

记录号  CSTR                                             
        1  大小大小大小大小大小大小大小大小大小大小大小大小大
           小大小大小大小大小大小大小大小大小大小大小大小大小
           大小大小大小大小大小大小大小大小大
               大      大        小大          大  大小大小
           小大小  小  小      小大小大    小大小大  大  大
           大        小              小大
                       大                      大  大  大小
           小大    小  小            大        小大  大
           小
                       大                          大  大
           小      小                大              大
                                                   大  大
           小                                        大
        2  大小大小大小大小大小大小大小大小大小大小大小大小大
           小大小大小大小大小大小大小大小大小大小大小大小大小
           大小大小大小大小大小大小大小大小大
               大      大        小大          大  大小大小
           小大小  小  小      小大小大    小大小大  大  大
           大        小              小大
                       大                      大  大  大小
           小大    小  小            大        小大  大
           小
                       大                          大  大
           小      小                大              大
                                                   大  大
           小                                        大
        3  大小大小大小大小大小大小大小大小大小大小大小大小大
           小大小大小大小大小大小大小大小大小大小大小大小大小
           大小大小大小大小大小大小大小大小大
               大      大        小大          大  大小大小
           小大小  小  小      小大小大    小大小大  大  大
           大        小              小大
                       大                      大  大  大小
           小大    小  小            大        小大  大
           小
                       大                          大  大
           小      小                大              大
                                                   大  大
           小                                        大


下面还有
***********************************************
请继续帮忙

上传文本文件

用 SEELCT 命令过滤重复数据即可

多谢 所有文件已上传

不知楼主想达到什么目的

请楼主认真看看LIST命令的用法，不能凭自己的想像。

将B2的记录做成附件一样的，连成一片。

也就是将SSC.dbf A5的记录娈成123附件一样连成一片。

谢谢老大帮忙。谢

CLEAR
SET MEMOWIDTH TO 512 &&设置显示宽度
CSTR=[508907355871728119929072665379569048867812480944430586045041450238481077337689361465113785068795085377151644725484831298]
AA=[]
CREATE CURSOR T (A C(2),B N(2))
N=1
FOR I=1 TO LEN(CSTR)
    CSTRA=IIF(BETWEEN(SUBSTRC(CSTR,I,1),[0],[4]),[小],[大])
    IF CSTRA!=AA
       N=N+1
    ENDIF
    INSERT INTO T VALUES (CSTRA,N)
    AA=CSTRA
ENDFOR
BROWSE
SELECT A,B,CAST(COUNT(*) AS N(2)) C FROM T GROUP BY 2,1 INTO CURSOR T1
CALCULATE MAX(C) TO CS
BROWSE
N=0
CSTR=[]
FOR I=1 TO CS
    SCAN
       CSTR=CSTR+IIF(C-N<=0,[  ],A)+IIF(RECNO([T1])=RECCOUNT([T1]),CHR(13)+CHR(10),[])   
    ENDSCAN
    N=N+1
ENDFOR
STRTOFILE(CSTR,[B2.TXT])
MODIFY FILE B2.TXT

8楼的显示结果应该是楼主需要的吧
关键是输出宽度不够造成的。
VFP的默认输出宽度是 50 列（也就是25个汉字的宽度，看看你贴的图，每行是不是25个汉字）
设置
SET MEMOWIDTH TO 512
输出结果就正常显示了

[ 本帖最后由 sdta 于 2013-3-11 21:17 编辑 ]