Foxtable(狐表)用户栏目专家坐堂 → 有没有办法得到 {"函数名","代码"} 这样的数据呢?


  共有4223人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
有没有办法得到 {"函数名","代码"} 这样的数据呢?  发帖心情 Post By: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())

 

运行得到:

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

 

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(lyjzyq)请用狐表编程助手  发帖心情 Post By:2022/2/24 9:54:00 [显示全部帖子]

具体怎么使用呢?下载了也没有对应找到一楼想实现的方法……

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)参考:http://www.foxtable.com/mobi...  发帖心情 Post By:2022/2/24 10:32:00 [显示全部帖子]

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

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)Dim s As StringDim jo As new jobje...  发帖心情 Post By:2022/2/24 11:23:00 [显示全部帖子]

老师  还得麻烦你

 

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


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

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)jo(cstr(r("内部函数"))) = cstr(r("...  发帖心情 Post By:2022/2/24 11:59:00 [显示全部帖子]

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

 

可能是我没有表达清楚:

 

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

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

 

输出:

函数名
代码

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)Dim s As StringDim jo As new jobje...  发帖心情 Post By:2022/2/24 15:00:00 [显示全部帖子]

老师:
 

Dim jo As new jobject
jo(Tables("内部函数").cols(0).name) = Tables("内部函数").cols(1).name
output.show(jo.Tostring())

 

输出得到:

 

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

 

我想得到的是 : {"函数名","代码"}

Dim Cols1() As String = {"函数名","代码"}
Dim s As String
For Each dr As DataRow In DataTables("内部函数").DataRows
    For i As Integer = 0 To Cols1.Length -1
        If s > "" Then s = s  & "|"
        If dr.IsNull(Cols1(i)) = False Then
            s =  s  & dr(Cols1(i))
        End If
    Next
    s = s.TrimStart("|")
    FileSys.WriteAllText("d:\JobPosition.txt", s & vbcrlf , True, Encoding.Default)
Next


 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)没看懂到想表达意思  发帖心情 Post By:2022/2/24 16:35:00 [显示全部帖子]

老师:
dim s as string

Dim jo As new jobject
jo(Tables("内部函数").cols(0).name) = Tables("内部函数").cols(1).name
s=jo.Tostring())

output.show(s)

 

输出得到:

 

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

 

这样的josn格式文件

 

我想得到的是 :

内部函数表里面有两个字段列:函数名和代码

我想遍历这个内部函数表的列名,形成 {"函数名","代码"}   {}里面的是  {"列名1","列名……"}

然后赋值给下面的cols()

Dim Cols1() As String = {"函数名","代码"}


 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)还是没看懂,请截图举例说明,然后给...  发帖心情 Post By:2022/2/24 16:48:00 [显示全部帖子]

表结构:


此主题相关图片如下:11.png
按此在新窗口浏览图片


老师:
 

内部函数表里面有两个字段列:函数名和代码

 

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

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

 

输出:

函数名
代码

 

想把输出的结果动态拼接字符串形成

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

{}里面的是  {"列名1","列名……"}

 

[此贴子已经被作者于2022/2/24 16:49:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)输出结果还是没看懂,请举例具体数据...  发帖心情 Post By:2022/2/24 17:59:00 [显示全部帖子]

表结构:


此主题相关图片如下:11.png
按此在新窗口浏览图片


老师:
 

内部函数表里面有两个字段列:函数名和代码

 

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

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

 

输出:

函数名
代码

 
此主题相关图片如下:33.png
按此在新窗口浏览图片

想把输出的结果动态拼接字符串形成

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

{}里面的是  {"列名1","列名……"}

 



 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)还不如另外拿个表A这样的表结构说明还...  发帖心情 Post By:2022/2/25 0:59:00 [显示全部帖子]

不好意思  没有表述清楚  给老师添麻烦了

 

按照老师的指导,当前如下:

Dim s As String
For Each r As Col In Tables("内部函数").cols
    output.show(r.name)
    s =  """" & r.name & """"
    s =  s & ","
    s &=s
    s= s.TrimEnd(",")
    s="{" & s & "}"
Next
output.show(s)

 

输出得到:

函数名
代码
{"代码","代码"}
想实现:

{"函数名","代码"}上述代码怎么修正呢?

 

Dim Cols1() As String = s     运行提示编译错误:类型string的值无法转换为string的1维数组,怎么修u证呢?

'Dim Cols1() As String ={"函数名","代码"}
Dim s1 As String
For Each dr As DataRow In DataTables("内部函数").DataRows
    For i As Integer = 0 To Cols1.Length -1
        If s1 > "" Then s1 = s1  & "|"
        If dr.IsNull(Cols1(i)) = False Then
            s1 =  s1  & dr(Cols1(i))
        End If
    Next
    s1 = s1.TrimStart("|")
    FileSys.WriteAllText("d:\JobPosition.txt", s1 & vbcrlf , True, Encoding.Default)
Next

 


 回到顶部
总数 15 1 2 下一页