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
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编辑过]
坚守VFP最后的阵地