数据从开始 01--09  为一个循环，每循环到01 就为下一个用户的信息内容
现需添加lsh字段(字符型) 内容为用户的流水号(每增加一个用户加1)
添加xh字段（数值型） 内容为用户交易明细的顺序号(按03交易明细 每增加一笔交易明细加1)


这些描述说不明你的意图，描述能否更清楚一点

你不是都已经倒出来了吗？

CLOSE DATABASES
CREATE CURSOR 测试 (tt C(80), lsh C(6), xh N(6,0))
APPEND FROM text.txt TYPE SDF
aa = 0
REPLACE lsh WITH f1(), xh WITH f2() ALL
BROWSE
RETURN

FUNCTION f1()
    SELECT VAL(MAX(lsh)) as mm FROM 测试 INTO CURSOR temp
    SELECT 测试
    IF LEFT(ALLTRIM(tt),2) == '01'
        n = LEN(ALLTRIM(STR(temp.mm + 1)))
        nn = REPLICATE('0',4 - n) + ALLTRIM(STR(temp.mm + 1))
    ELSE
        n = LEN(ALLTRIM(STR(temp.mm)))
        nn = REPLICATE('0',4 - n) + ALLTRIM(STR(temp.mm))
    ENDIF
    RETURN nn
ENDFUNC

FUNCTION f2()
    IF LEFT(ALLTRIM(tt),2) # '03'
        aa = 0
    ELSE
        aa = aa + 1
    ENDIF
    RETURN aa
ENDFUNC

[此贴子已经被作者于2019-8-28 13:44编辑过]

* VFP9 代码
CREATE CURSOR 测试 (tt C(80), lsh C(6), xh N(6,0))
cStr = FILETOSTR("text.txt")
nLsh = 0
nXh = 0
FOR i = 1 TO ALINES(aa, cStr, 4)
    DO CASE
        CASE LEFT(aa[i], 2) == "01"
            nLsh = nLsh + 1
            INSERT INTO 测试 (tt, lsh) VALUES (aa[i], PADL(nLsh, 6, "0"))
        CASE LEFT(aa[i], 2) == "03"
            nXh = nXh + 1
            INSERT INTO 测试 VALUES (aa[i], PADL(nLsh, 6, "0"), nXh)
        CASE LEFT(aa[i], 2) == "09"   
            nXh = 0
            INSERT INTO 测试 (tt, lsh) VALUES (aa[i], PADL(nLsh, 6, "0"))
    ENDCASE
ENDFOR
BROWSE

4楼，5楼的老师都是高手，谢谢了！