Foxtable(狐表) → 用户栏目 → 专家坐堂 → For的用法


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

主题：For的用法
帅哥哟，离线，有人找我吗？
hongye
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		For的用法  发帖心情 Post By：2024/12/20 10:55:00 [显示全部帖子]

    "CommodityPrice": [
      {
        "row": "1",
        "word": "29.2035398230089"
      },
      {
        "row": "2",
        "word": "29.2035398230089"
      },
      {
        "row": "3",
        "word": "29.2035398230089"
      },
      {
        "row": "4",
        "word": "29.2035398230089"
      },
      {
        "row": "5",
        "word": "29.2035398230089"
      },
      {
        "row": "6",
        "word": "35.3982300884956"
      },
      {
        "row": "7",
        "word": "35.3982300884956"
      },
      {
        "row": "8",
        "word": "35.3982300884956"
      },
      {
        "row": "9",
        "word": "35.3982300884956"
      },
      {
        "row": "10",
        "word": "35.3982300884956"
      }
    ],
如上文本行数有时候为10行有时候只有1行，请问怎么用For写代码？
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 12:41:00 [显示全部帖子]

                    Dim jo As JObject = JObject.Parse(result.Tostring)
                    Dim Value1 As String
                    For Each jt As JToken In jo("words_result")("CommodityName")
                        Value1 = jt("row").ToString & "|" & jt("word").ToString
                    Next
这个可以用一个数组，但是还有其他的数组，怎么写代码？
   "CommodityNum": [
      {
        "row": "1",
        "word": "360"
      },
      {
        "row": "2",
        "word": "480"
      },
      {
        "row": "3",
        "word": "240"
      },
      {
        "row": "4",
        "word": "60"
      },
      {
        "row": "5",
        "word": "60"
      },
      {
        "row": "6",
        "word": "360"
      },
      {
        "row": "7",
        "word": "480"
      },
      {
        "row": "8",
        "word": "240"
      },
      {
        "row": "9",
        "word": "60"
      },
      {
        "row": "10",
        "word": "60"
      }
    ],
    "CommodityAmount": [
      {
        "row": "1",
        "word": "10513.27"
      },
      {
        "row": "2",
        "word": "14017.70"
      },
      {
        "row": "3",
        "word": "7008.85"
      },
      {
        "row": "4",
        "word": "1752.21"
      },
      {
        "row": "5",
        "word": "1752.21"
      },
      {
        "row": "6",
        "word": "12743.36"
      },
      {
        "row": "7",
        "word": "16991.15"
      },
      {
        "row": "8",
        "word": "8495.58"
      },
      {
        "row": "9",
        "word": "2123.89"
      },
      {
        "row": "10",
        "word": "2123.89"
      }
    ],
    "InvoiceType": "电子fa piao(专用fa piao)",
    "AmountInWords": "捌万柒仟陆佰圆整",
    "TotalTax": "10077.89",
    "MachineCode": "",
    "City": "",
    "InvoiceNumDigit": "",
    "Checker": "",
    "InvoiceCode": "",
    "SellerAddress": "",
    "CommodityPrice": [
      {
        "row": "1",
        "word": "29.2035398230089"
      },
      {
        "row": "2",
        "word": "29.2035398230089"
      },
      {
        "row": "3",
        "word": "29.2035398230089"
      },
      {
        "row": "4",
        "word": "29.2035398230089"
      },
      {
        "row": "5",
        "word": "29.2035398230089"
      },
      {
        "row": "6",
        "word": "35.3982300884956"
      },
      {
        "row": "7",
        "word": "35.3982300884956"
      },
      {
        "row": "8",
        "word": "35.3982300884956"
      },
      {
        "row": "9",
        "word": "35.3982300884956"
      },
      {
        "row": "10",
        "word": "35.3982300884956"
      }
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 13:30:00 [显示全部帖子]

怎么写？

 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 13:33:00 [显示全部帖子]

每一项的每行结果添加到表中

 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 13:41:00 [显示全部帖子]

CommodityName，CommodityType，CommodityUnit，CommodityNum，CommodityPrice，CommodityAmount，CommodityTaxRate，CommodityTax，中的每行数据分别填入表中以下列
货物名称，规格型号，单位，数量，单价，金额，税率，税额

 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 13:49:00 [显示全部帖子]

这样是可以，但是咋样能将数据填入表的每一行呢
也就是增加行放哪里？
[此贴子已经被作者于2024/12/20 14:01:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 14:37:00 [显示全部帖子]

                    For Each jt1 As JToken In jo("words_result")("CommodityName")
                        For Each jt2 As JToken In jo("words_result")("CommodityType")
                            For Each jt3 As JToken In jo("words_result")("CommodityUnit")
                                For Each jt4 As JToken In jo("words_result")("CommodityNum") 
                                    For Each jt5 As JToken In jo("words_result")("CommodityPrice")
                                        For Each jt6 As JToken In jo("words_result")("CommodityAmount")
                                            For Each jt7 As JToken In jo("words_result")("CommodityTaxRate")
                                                For Each jt8 As JToken In jo("words_result")("CommodityTax")
                                                    Value1 = jt1("row").ToString & "|" & jt1("word").ToString
                                                    Value2 = jt2("row").ToString & "|" & jt2("word").ToString
                                                    Value3 = jt3("row").ToString & "|" & jt3("word").ToString
                                                    Value4 = jt4("row").ToString & "|" & jt4("word").ToString
                                                    Value5 = jt5("row").ToString & "|" & jt5("word").ToString
                                                    Value6 = jt6("row").ToString & "|" & jt6("word").ToString
                                                    Value7 = jt7("row").ToString & "|" & jt7("word").ToString
                                                    Value8 = jt8("row").ToString & "|" & jt8("word").ToString
                                                    MessageBox.Show(Value1 & vbcrlf & Value2 & vbcrlf & Value3 & vbcrlf & Value4 & vbcrlf & Value5 & vbcrlf & Value6 & vbcrlf & Value7 & vbcrlf & Value8)
                                                Next 
                                            Next 
                                        Next 
                                    Next 
                                Next
                            Next
                        Next
                    Next

这样不对啊，哪里错了？
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 15:25:00 [显示全部帖子]

识别出45个句子/短语:
识别接口调用失败,错误描述: 
索引超出范围。必须为非负值并小于集合大小。
参数名: index
这是什么意思？
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 16:35:00 [显示全部帖子]

使用图像文件: H:\dzfp_23312000000134174719_上海莳越贸易有限公司_20231118141448.pdf
识别结果: 
{
  "words_result": {
    "PurchaserAddress": "",
    "PurchaserBank": "",
    "Password": "",
    "CommodityVehicleType": [],
    "SellerRegisterNum": "9131011675380680XT",
    "SellerBank": "",
    "CommodityNum": [
      {
        "row": "1",
        "word": "10200"
      }
    ],
    "CommodityAmount": [
      {
        "row": "1",
        "word": "59160.00"
      }
    ],
    "InvoiceType": "电子fa piao(普通fa piao)",
    "AmountInWords": "伍万玖仟壹佰陆拾圆整",
    "TotalTax": "0.00",
    "MachineCode": "",
    "City": "",
    "InvoiceNumDigit": "",
    "Checker": "",
    "InvoiceCode": "",
    "SellerAddress": "",
    "CommodityPrice": [
      {
        "row": "1",
        "word": "5.8"
      }
    ],
    "NoteDrawer": "王正华",
    "Province": "",
    "InvoiceNum": "23312000000134174719",
    "CommodityTaxRate": [
      {
        "row": "1",
        "word": "免税"
      }
    ],
    "ServiceType": "日用品食品",
    "InvoiceDate": "2023年11月18日",
    "CommodityEndDate": [],
    "PurchaserRegisterNum": "91310113MA1GPNY68Q",
    "CommodityStartDate": [],
    "TotalAmount": "59160.00",
    "SheetNum": "",
    "CommodityPlateNum": [],
    "PurchaserName": "上海莳越贸易有限公司",
    "SellerName": "上海彬阳制衣有限公司",
    "InvoiceNumConfirm": "23312000000134174719",
    "Agent": "否",
    "InvoiceTag": "其他",
    "CommodityUnit": [
      {
        "row": "1",
        "word": "条"
      }
    ],
    "CheckCode": "",
    "InvoiceTypeOrg": "电子fa piao(普通fa piao)",
    "Remarks": "",
    "Payee": "",
    "CommodityTax": [
      {
        "row": "1",
        "word": "***"
      }
    ],
    "AmountInFiguers": "59160.00",
    "CommodityName": [
      {
        "row": "1",
        "word": "*服装*摇粒绒毯子"
      }
    ],
    "CommodityType": [],
    "OnlinePay": ""
  },
  "words_result_num": 45,
  "pdf_file_size": 1,
  "log_id": 1870012018891767873
}
--------************-----------
识别出45个句子/短语:
识别接口调用失败,错误描述: 
索引超出范围。必须为非负值并小于集合大小。
参数名: index

CommodityType 后面如果找不到"row": "word":，则Value2= “” 这个代码怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：509 积分：3407 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2024/12/20 16:42:00 [显示全部帖子]

                    Dim jo As JObject = JObject.Parse(result.Tostring)
                    Dim Value1 As String
                    Dim Value2 As String
                    Dim Value3 As String
                    Dim Value4 As String
                    Dim Value5 As String
                    Dim Value6 As String
                    Dim Value7 As String
                    Dim Value8 As String
                    Dim jt1 As JArray = jo("words_result")("CommodityName")
                    Dim jt2 As JArray = jo("words_result")("CommodityType")
                    Dim jt3 As JArray = jo("words_result")("CommodityUnit")
                    Dim jt4 As JArray = jo("words_result")("CommodityNum") 
                    Dim jt5 As JArray = jo("words_result")("CommodityPrice")
                    Dim jt6 As JArray = jo("words_result")("CommodityAmount")
                    Dim jt7 As JArray = jo("words_result")("CommodityTaxRate")
                    Dim jt8 As JArray = jo("words_result")("CommodityTax")               
                    For i As Integer = 0 To jt1.count - 1
                        Value1 = jt1(i)("word").ToString
                        MessageBox.Show(Value1)
                        If jt1.count - jt2.count = 0 Then 
                            Value2 = jt2(i)("word").ToString
                            MessageBox.Show(Value2)
                        Else
                            Value2 = ""
                            MessageBox.Show(Value2)
                        End If
                        Value3 = jt3(i)("word").ToString
                        MessageBox.Show(Value3)
                        Value4 = jt4(i)("word").ToString
                        MessageBox.Show(Value4)
                        Value5 = jt5(i)("word").ToString
                        MessageBox.Show(Value5)
                        Value6 = jt6(i)("word").ToString
                        MessageBox.Show(Value6)
                        Value7 = jt7(i)("word").ToString
                        MessageBox.Show(Value7)
                        If jt8(i)("word").ToString = "***" Then
                            Value8 = "0"
                            MessageBox.Show(Value8)
                        Else
                            Value8 = jt8(i)("word").ToString
                            MessageBox.Show(Value8)
                        End If 
                        MessageBox.Show(Value1 & vbcrlf & Value2 & vbcrlf & Value3 & vbcrlf & Value4 & vbcrlf & Value5 & vbcrlf & Value6 & vbcrlf & Value7 & vbcrlf & Value8)
                    Next

帮我看看是否还可以精简一点啊
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06604 秒, 5 次数据查询