编程论坛 → VFP论坛

求助一句VFP9代码转VB6.0代码

杜非发布于 2023-07-18 19:02， 670 次点击

请问老师：
如何将这段VFP9代码：
Right(Transform(Asc(Substr(行字节串, 20, 1)), '@0'), 2)
转换成VB6的代码。。另外请解释一下VFP语句中'@0'是什么意思。。先谢了。。

7 回复

sdta2023-07-18 22:15

@0
将货币型值或数值型值转化为等价的十六进制格式。货币型值或数值型值必须是正的，并且小于 4,294,967,296。

杜非2023-07-18 23:59

刚刚看到。。谢了。。意思我理解了。。但在VB6中这个'@0'要什么替代或此处该怎么处理我还是搞不定。。希望版主帮忙译成VB6或告诉我怎么处理该处的'@0'。。非常感谢。。

杜非2023-07-19 00:20

请问是不是可以这样处理
在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:44

愚钝。。没搞定。。

吹水佬2023-07-19 05:07

HEX()

杜非2023-07-19 16:57

感谢版主的回复。。我还在搞。。再次感谢。。

杜非2023-07-20 22:33

问题解决了。。开心。。再次感谢两位版主的帮助。。