SCAN
   FOR i=1 TO 8
     IF a4=" " AND a5<>" "
        REPLACE a4 WITH a5
     ENDIF
     IF a4=a5
        REPLACE a5 WITH " "
     ENDIF   
     IF a3=" " AND a4<>" "
        REPLACE a3 WITH a4
     ENDIF
     IF a3=a4
        REPLACE a4 WITH " "
     ENDIF
     IF a2=" " AND a3<>" "
        REPLACE a2 WITH a3
     ENDIF
     IF a2=a3
        REPLACE a3 WITH " "
     ENDIF
     IF a1=" " AND a2<>" "
        REPLACE a1 WITH a2
     ENDIF
     IF a1=a2
        REPLACE a2 WITH " "
     ENDIF
   ENDFOR
ENDSCAN

处理前和处理后，非常感谢。

谢谢各位帮助