又有新问题，继续发贴求帮助
程序代码：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 大小大小大小大小大小大小大小大小大小大小大小大小大
小大小大小大小大小大小大小大小大小大小大小大小大小
大小大小大小大小大小大小大小大小大
大 大 小大 大 大小大小
小大小 小 小 小大小大 小大小大 大 大
大 小 小大
大 大 大 大小
小大 小 小 大 小大 大
小
大 大 大
小 小 大 大
大 大
小 大
下面还有
***********************************************
请继续帮忙
Visual FoxPro 项目.zip