以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有没有办法得到 {"函数名","代码"} 这样的数据呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175221)

--  作者:cnsjroom
--  发布时间:2022/2/24 9:29:00
--  有没有办法得到 {"函数名","代码"} 这样的数据呢?

当前代码如下:

Dim s As String
Dim jo As new jobject
For Each c As Col In Tables("内部函数").cols
    jo(c.name) = c.name \'= cstr(Tables("内部函数").current(c.name))
Next
output.show(jo.Tostring())

 

运行得到:

{
  "函数名": "函数名",
  "代码": "代码"
}

 

 

有没有办法得到  {"函数名","代码"} 这样的数据呢?


--  作者:lyjzyq
--  发布时间:2022/2/24 9:40:00
--  
请用狐表编程助手
--  作者:cnsjroom
--  发布时间:2022/2/24 9:54:00
--  回复:(lyjzyq)请用狐表编程助手
具体怎么使用呢?下载了也没有对应找到一楼想实现的方法……
--  作者:有点蓝
--  发布时间:2022/2/24 10:22:00
--  
参考:http://www.foxtable.com/mobilehelp/topics/0140.htm
--  作者:cnsjroom
--  发布时间:2022/2/24 10:32:00
--  回复:(有点蓝)参考:http://www.foxtable.com/mobi...

老师我看了一下  那是生成对应的josn格式文件

我现在是想得到类似 {"函数名","代码"} 这样的输出内容

通过遍历某个表,然后把某个表的列名组合成{"函数名","代码","……"}类似格式


--  作者:有点蓝
--  发布时间:2022/2/24 10:53:00
--  

Dim s As String
Dim jo As new jobject
For Each r as row in Tables("内部函数").rows
    jo(r
("内部函数")) = r("代码")

Next
output.show(jo.Tostring())

 


--  作者:cnsjroom
--  发布时间:2022/2/24 11:23:00
--  回复:(有点蓝)Dim s As StringDim jo As new jobje...

老师  还得麻烦你

 

运行提示如下:想实现的是读取内部函数表中的列名    也需要能够实现其他表名自动获取表列名


图片点击可在新窗口打开查看此主题相关图片如下:1111.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/2/24 11:26:00
--  
jo(cstr(r("内部函数"))) = cstr(r("代码"))
--  作者:cnsjroom
--  发布时间:2022/2/24 11:59:00
--  回复:(有点蓝)jo(cstr(r("内部函数"))) = cstr(r("...

老师  还是没有实现预期效果

 

可能是我没有表达清楚:

 

遍历内部函数表列 然后得到函数名  代码 两个列名

For Each r As Col In Tables("内部函数").cols
     output.show(r.name)
Next

 

输出:

函数名
代码

 

我就想把这两个组合成{"函数名","代码"}


--  作者:jialihaha
--  发布时间:2022/2/24 13:14:00
--  
自己动态拼接字符串