| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1156 人关注过本帖
标题:求教:如何修改代码[用表文件jftj中的字段zifu替换代码中的zhifu
只看楼主 加入收藏
ybq1014
Rank: 2
等 级:论坛游民
威 望:1
帖 子:13
专家分:16
注 册:2012-12-19
收藏
得分:0 
回复 10楼 sdta
还是跟您学的,班门弄斧了,马上按您的建议编辑修改
2023-05-08 15:09
ybq1014
Rank: 2
等 级:论坛游民
威 望:1
帖 子:13
专家分:16
注 册:2012-12-19
收藏
得分:0 
回复 10楼 sdta
已修改
2023-05-08 15:21
王咸美
Rank: 1
等 级:新手上路
帖 子:658
专家分:3
注 册:2018-1-4
收藏
得分:0 
@ybq1014 你好!能否将修改后的代码分享出来供学习?谢谢!
2023-05-09 04:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用王咸美在2023-5-9 04:27:47的发言:

@ybq1014 你好!能否将修改后的代码分享出来供学习?谢谢!

看9楼代码

坚守VFP最后的阵地
2023-05-09 08:07
王咸美
Rank: 1
等 级:新手上路
帖 子:658
专家分:3
注 册:2018-1-4
收藏
得分:0 
把具体字符串换成表中字段,如何操作?请高手赐教!谢谢!!!

CLEAR
fz='a10b09c08d07'
ls='语文数学外语'

zhifu='aaddcdadbbabbbc'把这一句换成jftj.dbf中的zifu字段内容如何操作?

FOR i=1 TO 15 STEP 5
    vz = SUBSTR(zhifu,i,5)
    jg = 0
    FOR j=1 TO 12 STEP 3
        zz  = SUBSTR(fz,j,1)
        zzz = VAL(SUBSTR(fz,j+1,2))
        jg = jg +(LEN(vz)-len(CHRTRAN(vz,zz,'')))*zzz这一句有问题
    ENDFOR

    ?SUBSTR(ls,((i-1)/5)*4+1,4)+":"+STR(jg,4)  如何把具体积分分别写入表文件jftj.dbf的yw、sx、yy字段中
ENDFOR   

[此贴子已经被作者于2023-5-9 14:18编辑过]

2023-05-09 14:01
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
CLEAR
fz='a10b09c08d07'
ls='语文数学外语'

** zhifu='aaddcdadbbabbbc' 把这一句换成jftj.dbf中的zifu字段内容如何操作?
zhifu=jftj.zifu && jftj工作区的当前记录zifu

FOR i=1 TO 15 STEP 5
    vz = SUBSTR(zhifu,i,5)
    jg = 0
    FOR j=1 TO 12 STEP 3
        zz  = SUBSTR(fz,j,1)  && 既然已采用CHRTRAN()就无必要a,b,c,d都去算,除非都含有abcd。另用CHRTRAN()时就可以去掉已经处理过的abcd,不用每次都从头起计算,直到vz为空。
        zzz = VAL(SUBSTR(fz,j+1,2))
        jg = jg +(LEN(vz)-len(CHRTRAN(vz,zz,'')))*zzz 这一句有问题
    ENDFOR
    ?SUBSTR(ls,((i-1)/5)*4+1,4)+":"+STR(jg,4)  如何把具体积分分别写入表文件jftj.dbf的yw、sx、yy字段中
    * i=1 TO 15 STEP 5 在这算法有点复杂,是否可以改为:
    * i=0 TO 2
    * vz = SUBSTR(zhifu,i*5+1,5)
    * SUBSTRC(ls,i*2+1,2)
ENDFOR   

2023-05-09 14:41
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
以下是引用王咸美在2023-5-9 14:01:28的发言:
    ?SUBSTR(ls,((i-1)/5)*4+1,4)+":"+STR(jg,4)  如何把具体积分分别写入表文件jftj.dbf的yw、sx、yy字段中

根据i确定yw、sx、yy字段名
2023-05-09 14:46
pvm2000
Rank: 6Rank: 6
等 级:贵宾
威 望:24
帖 子:179
专家分:312
注 册:2022-12-22
收藏
得分:0 
比较简单的问题吧
2023-05-11 06:11
快速回复:求教:如何修改代码[用表文件jftj中的字段zifu替换代码中的zhifu
数据加载中...
 
   



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

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