| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 256 人关注过本帖
标题:数据导入,添加标记的问题,请求帮助
只看楼主 加入收藏
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2017-8-16
结帖率:80%
  已结贴   问题点数:6  回复次数:5   
数据导入,添加标记的问题,请求帮助
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 数据 导入 添加 请求 
2019-08-28 10:10
zhken
Rank: 2
等 级:论坛游民
帖 子:90
专家分:74
注 册:2012-9-21
  得分:0 
数据从开始 01--09  为一个循环,每循环到01 就为下一个用户的信息内容
现需添加lsh字段(字符型) 内容为用户的流水号(每增加一个用户加1)
添加xh字段(数值型) 内容为用户交易明细的顺序号(按03交易明细 每增加一笔交易明细加1)


这些描述说不明你的意图,描述能否更清楚一点
2019-08-28 13:08
radiofan
Rank: 2
等 级:论坛游民
威 望:1
帖 子:77
专家分:97
注 册:2006-7-30
  得分:0 
以下是引用lnsyzhuhua在2019-8-28 10:10:53的发言:

你不是都已经倒出来了吗?
2019-08-28 13:33
yewxj
Rank: 3Rank: 3
等 级:论坛游侠
威 望:5
帖 子:157
专家分:153
注 册:2015-6-18
  得分:3 
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编辑过]

2019-08-28 13:41
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:197
帖 子:7858
专家分:19475
注 册:2012-2-5
  得分:3 
* 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

坚守VFP最后的阵地
2019-08-28 20:07
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2017-8-16
  得分:0 
4楼,5楼的老师都是高手,谢谢了!
2019-08-29 09:52
快速回复:数据导入,添加标记的问题,请求帮助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.088402 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved