| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 511 人关注过本帖
标题:求助一句VFP9代码转VB6.0代码
只看楼主 加入收藏
杜非
Rank: 2
等 级:论坛游民
帖 子:15
专家分:10
注 册:2007-4-19
结帖率:100%
收藏
已结贴  问题点数:14 回复次数:7 
求助一句VFP9代码转VB6.0代码
请问老师:
如何将这段VFP9代码:
Right(Transform(Asc(Substr(行字节串, 20, 1)), '@0'), 2)
转换成VB6的代码。。另外请解释一下VFP语句中'@0'是什么意思。。先谢了。。
搜索更多相关主题的帖子: VB6 转换 VFP9 VB6.0 代码 
2023-07-18 19:02
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:7 
@0
 将货币型值或数值型值转化为等价的十六进制格式。货币型值或数值型值必须是正的,并且小于 4,294,967,296。
 

坚守VFP最后的阵地
2023-07-18 22:15
杜非
Rank: 2
等 级:论坛游民
帖 子:15
专家分:10
注 册:2007-4-19
收藏
得分:0 
刚刚看到。。谢了。。意思我理解了。。但在VB6中这个'@0'要什么替代或此处该怎么处理我还是搞不定。。希望版主帮忙译成VB6或告诉我怎么处理该处的'@0'。。非常感谢。。
2023-07-18 23:59
杜非
Rank: 2
等 级:论坛游民
帖 子:15
专家分:10
注 册:2007-4-19
收藏
得分:0 
请问是不是可以这样处理
在VFP中:
Right(Transform(Asc(Substr(行字节串, 20, 1)), '@0'), 2)
在VB6中:
1、x = Substr(行字节串, 20, 1)
2、y = Asc(X)
3、z = 把y转换成16进制
4、Right(z, 2)就是结果
不知道这样处理对不对。。我试一试看。。
2023-07-19 00:20
杜非
Rank: 2
等 级:论坛游民
帖 子:15
专家分:10
注 册:2007-4-19
收藏
得分:0 
愚钝。。没搞定。。
2023-07-19 00:44
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:7 
HEX()
2023-07-19 05:07
杜非
Rank: 2
等 级:论坛游民
帖 子:15
专家分:10
注 册:2007-4-19
收藏
得分:0 
感谢版主的回复。。我还在搞。。再次感谢。。
2023-07-19 16:57
杜非
Rank: 2
等 级:论坛游民
帖 子:15
专家分:10
注 册:2007-4-19
收藏
得分:0 
问题解决了。。开心。。再次感谢两位版主的帮助。。
2023-07-20 22:33
快速回复:求助一句VFP9代码转VB6.0代码
数据加载中...
 
   



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

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