表中字段名为（日期）按分割符（$）分列 。每行有12个分割符，自动生成 列1----列12字段名  分别放入。
$201802-4.200%$201801-4.200%$201712-4.000%$201711-4.000%$201710-4.000%$201709-4.000%$201708-4.000%$201707-4.000%$201706-4.000%$201705-4.000%$201704-4.000%$201703-4.000%                                                                                                                                                                                                        
$201802-4.200%$201801-4.200%$201712-4.000%$201711-4.000%$201710-4.000%$201709-4.000%$201708-4.000%$201707-4.000%$201706-4.000%$201705-4.000%$201704-4.000%$201703-4.000%                                                                                                                                                                                                        
$201801-4.200%$201712-4.000%$201711-4.000%$201710-4.000%$201709-4.000%$201708-4.000%$201707-4.000%$201706-4.000%$201705-4.000%$201704-4.000%$201703-4.000%$201702-4.000%
举例： 第一条记录
实现  列1， 放入201802-4.200%  列2， 201801-4.200% 列3， 201712-4.000%  到尾。
请高手指导！拜托了。

s = "$201802-4.200%$201801-4.200%$201712-4.000%$201711-4.000%$201710-4.000%$201709-4.000%$201708-4.000%$201707-4.000%$201706-4.000%$201705-4.000%$201704-4.000%$201703-4.000%"
n = 1
FOR i=1 TO ALINES(arr, s, "$")
    IF !EMPTY(arr[i])
        ? "列"+TRANSFORM(n),arr[i]
        n = n+1
    ENDIF
ENDFOR

CREATE CURSOR tt (日期 c(200))
INSERT INTO tt VALUES ("$201802-4.200%$201801-4.200%$201712-4.000%$201711-4.000%$201710-4.000%$201709-4.000%$201708-4.000%$201707-4.000%$201706-4.000%$201705-4.000%$201704-4.000%$201703-4.000%")
czdm=""
FOR i=1 TO 12
    czdm=czdm+IIF(EMPTY(czdm),"",",")+"列"+TRANSFORM(i)+" C(14)"
ENDFOR
CREATE CURSOR 分割 (&czdm)
SELECT tt
SCAN
    =ALINES(arq,SUBSTR(日期,2),"$")
    DIMENSION arq(1,ALEN(arq,1))
    INSERT INTO 分割 FROM ARRAY arq
ENDSCAN
SELECT 分割
BROWSE

210601286280        $201802-4.200%$201801-4.200%$201712-4.000%$201711-4.000%$201710-4.000%$201709-4.000%$201708-4.000%$201707-4.000%$201706-4.000%$201705-4.000%$201704-4.000%$201703-4.000%                                                                                                                                                                                                        
210601294381        $201802-4.200%$201801-4.200%$201712-4.000%$201711-4.000%$201710-4.000%$201709-4.000%$201708-4.000%$201707-4.000%$201706-4.000%$201705-4.000%$201704-4.000%$201703-4.000%                                                                                                                                                                                                        
210612043582        $201801-4.200%$201712-4.000%$201711-4.000%$201710-4.000%$201709-4.000%$201708-4.000%$201707-4.000%$201706-4.000%$201705-4.000%$201704-4.000%$201703-4.000%$201702-4.000%                                                                                                                                                                                                        
前面加个保单号 到时需按此号关联回来， 如何加上？

表名  cl.dbf   表中有两个字段内容   为  保单号 ， 日期   数据内容见上面的描述
现代码：
SET DEFAULT TO D:\text
    SELECT * FROM cl  INTO  CURSOR tt
czdm=""
FOR i=1 TO 12
    czdm=czdm+IIF(EMPTY(czdm),"",",")+"列"+TRANSFORM(i)+" C(14)"
ENDFOR
CREATE CURSOR 分割(&czdm)
SELECT tt
SCAN
    =ALINES(arq,SUBSTR(日期,2),"$")
    DIMENSION arq(1,ALEN(arq,1))
    INSERT INTO 分割 FROM ARRAY arq
ENDSCAN
SELECT 分割
BROWSE
如何能把 保单号 追加进来？

拜托帮写下代码！

问题一次说清楚，大家都很忙啊

上传表数据

核心方法已经告诉你了，把上面的代码稍加修改即可。