CLEAR
TEXT TO lcStr NOSHOW TEXTMERGE
|data_begin*ulifeaccount|*ulifeaccountlist|结算保单利息|08/01/2018|             30.08|          10150.51|  0.009589%|  3.50%|*ulifeaccountlist|结算保证利息|08/01/2018|              0.00|          10150.51| | |*ulifeaccountlist|结算保单利息|09/01/2018|             30.17|          10180.68|  0.009589%|  3.50%|*ulifeaccountlist|部分领取|09/06/2018|          11224.48|          -1043.80| | |*ulifeaccountlist|续期保费|09/06/2018|           9800.00|           8756.20| | |*ulifeaccountlist|追加保费|09/06/2018|          49000.00|          57756.20| | |*data_end*|您交纳的续期保费是您保单的红利或生存金转入的保单价值*2018年09月06日您交纳的续期保费10000元，扣除初始费用200元后，9800元计入保单价值。*2018年09月06日您交纳的追加保费50000元，扣除初始费用1000元后，49000元计入保单价值。*|温馨提示：1、本产品的保证利率为年利率1.75%，对应的日利率为0.004795%。*                        2、年化利率=结算利率 X 结算月份所在年度的实际天数。*偿付能力信息：截至2017年06月30日，我公司综合偿付能力充足率为232.61%，该偿付能力充足率达到了监管要求；我公司最近一期的风险综合评级结果为A类。|      10000.00
ENDTEXT
lcStr=STREXTRACT(lcStr,"|data_begin*ulifeaccount|*ulifeaccountlist|","|*data_end*|")
?ALINES(laName,lcStr,"|*ulifeaccountlist|")
LIST MEMORY LIKE laName
FOR lnCnt = 1 TO ALEN(laName)
    ?ALINES(laName1,laName[lnCnt],1,"|")
    LIST MEMORY LIKE laName1
ENDFOR

[此贴子已经被作者于2018-9-26 21:42编辑过]

举例;
|结算保单利息|03/01/2016|            103.38|          29098.75|          31426.65|          31426.65|  0.012295%|  4.50%|
|结算保证利息|03/01/2016|              0.00|          29098.75|          31426.65|          31426.65| | |
|结算保单利息|04/01/2016|            110.91|          29209.66|          31546.43|          31546.43|  0.012295%|  4.50%|
|结算保单利息|05/01/2016|            107.74|          29317.40|          31662.79|          31662.79|  0.012295%|  4.50%|

|结算保单利息|08/01/2018|             30.08|          10150.51|  0.009589%|  3.50%|
|续期保费|09/06/2018|           9800.00|           8756.20| | |
|部分领取|09/06/2018|          11224.48|          -1043.80| | |
|追加保费|09/06/2018|          49000.00|          57756.20| | |

这6项

提示找不到变量‘lcStr’

贴上你的代码看看

是的

是vfp版本的原因，9.0测试可行。 输出的内容，原想法是分列导到各个字段中，然后在输出到文本文件，现把最终的输出文本格式如下：
WNBG|结算保单利息|08/01/2018|             30.08|          10150.51|  0.009589%|  3.50%|
WNBG|结算保证利息|08/01/2018|              0.00|          10150.51| | |
WNBG|结算保单利息|09/01/2018|             30.17|          10180.68|  0.009589%|  3.50%|
WNBG|部分领取|09/06/2018|          11224.48|          -1043.80| | |
WNBG|续期保费|09/06/2018|           9800.00|           8756.20| | |
WNBG|追加保费|09/06/2018|          49000.00|          57756.20| | |
WXTS|您交纳的续期保费是您保单的红利或生存金转入的保单价值*2018年09月06日您交纳的续期保费10000元，扣除初始费用200元后，9800元计入保单价值。
WXTS|2018年09月06日您交纳的追加保费50000元，扣除初始费用1000元后，49000元计入保单价值。
WXTS|温馨提示：1、本产品的保证利率为年利率1.75%，对应的日利率为0.004795%。
WXTS|2、年化利率=结算利率 X 结算月份所在年度的实际天数。
WXTS|偿付能力信息：截至2017年06月30日，我公司综合偿付能力充足率为232.61%，该偿付能力充足率达到了监管要求；我公司最近一期的风险综合评级结果为A类。
JJEE|10000.00

请高手指导！谢谢

*是换行符