主题：关于ocr的使用问题

Dim str  As String = ClipBoard.GetText
Dim jo = jobject.parse(str)
 
For Each jt As object In jo
  For Each ss As Object In jo(jt.name)
      For Each sss As object In ss
    Output.Show(sss("words"))
Next
Next
Next

 

不知道还有没有其他方式，现在可以获取到真正的数值了

----------------

{

  "log_id": 4535150269095284508,

  "words_result_num": 6,

  "direction": 0,

  "image_status": "normal",

  "words_result": {

    "住址": {

      "location": {

        "width": 1231,

        "top": 1925,

        "height": 415,

        "left": 645

      },

      "words": "长沙路1398号1号楼2单元203号"

    },

    "出生": {

      "location": {

        "width": 957,

        "top": 1688,

        "height": 117,

        "left": 667

      },

      "words": "20050530"

    },

    "姓名": {

      "location": {

        "width": 386,

        "top": 1226,

        "height": 123,

        "left": 704

      },

      "words": "占三"

    },

    "公民身份号码": {

      "location": {

        "width": 1642,

        "top": 2545,

        "height": 168,

        "left": 1103

      },

      "words": "371702200505309217"

    },

    "性别": {

      "location": {

        "width": 78,

        "top": 1471,

        "height": 96,

        "left": 692

      },

      "words": "男"

    },

    "民族": {

      "location": {

        "width": 184,

        "top": 1481,

        "height": 102,

        "left": 1278

      },

      "words": "蒙古"

    }

  }

}