{"id":9106,"date":"2017-09-07T15:00:48","date_gmt":"2017-09-07T06:00:48","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=9106"},"modified":"2019-11-22T09:50:08","modified_gmt":"2019-11-22T00:50:08","slug":"computer-vision-api%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%a6%e7%94%bb%e5%83%8f%e3%81%8b%e3%82%89%e6%96%87%e5%ad%97%e5%88%97%e3%82%92%e5%8f%96%e5%be%97%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=9106","title":{"rendered":"Computer Vision API\u3092\u4f7f\u3063\u3066\u753b\u50cf\u304b\u3089\u6587\u5b57\u5217\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u524d\u3005\u56de\u306e\u8a18\u4e8b<\/a>\u3067\u3001Fiddler\u3092\u4f7f\u3063\u3066Microsoft Cognitive Services\u306eComputer Vision API<\/a>\u3092\u547c\u3073\u51fa\u3057\u3066\u307f\u307e\u3057\u305f\u304c\u3001\u4eca\u56de\u306fVBA\u30de\u30af\u30ed\u304b\u3089API\u3092\u547c\u3073\u51fa\u3057\u3066\u307f\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

VBA\u30b3\u30fc\u30c9<\/h4>\n

\u3055\u3063\u305d\u304f\u30b3\u30fc\u30c9\u3067\u3059\u3002
\n\u5fc5\u8981\u306a\u30a8\u30f3\u30c9\u30dd\u30a4\u30f3\u30c8URL\u3084API\u30ad\u30fc\u306f\u3001\u524d\u3005\u56de\u306e\u8a18\u4e8b<\/a>\u3092\u53c2\u8003\u306b\u3057\u3066\u4e8b\u524d\u306b\u53d6\u5f97\u3057\u3066\u304a\u3044\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

\u203b \u4e0b\u8a18\u30b3\u30fc\u30c9\u306fScriptControl\u3092\u5229\u7528\u3057\u3066\u3044\u308b\u305f\u3081\u300164\u30d3\u30c3\u30c8\u7248Office\u3067\u306f\u52d5\u4f5c\u3057\u307e\u305b\u3093\u3002<\/span><\/p>\n

Option Explicit\r\n \r\nPublic Sub Sample()\r\n  Debug.Print GetOCRTextUsingCognitiveServices("C:\\Test\\OCR.png")\r\nEnd Sub\r\n \r\nPrivate Function GetOCRTextUsingCognitiveServices(ByVal TargetFilePath As String, _\r\n                                                  Optional ByVal TargetLanguage As String = "unk") As String\r\n'CognitiveServices(Computer Vision API)\u3092\u4f7f\u3063\u3066\u753b\u50cf\u304b\u3089\u6587\u5b57\u5217\u3092\u53d6\u5f97\r\n  Dim ret As String\r\n  Dim js As String\r\n  Dim url As String\r\n  Dim dat As Variant\r\n  \r\n  Const apikey = "(API\u30ad\u30fc)"\r\n  Const adTypeBinary = 1\r\n  Const adReadAll = -1\r\n  url = "(\u30a8\u30f3\u30c9\u30dd\u30a4\u30f3\u30c8URL)"\r\n  If Right(url, 1) <> "\/" Then url = url & "\/"\r\n  \r\n  ret = "" '\u521d\u671f\u5316\r\n  \r\n  '\u30d5\u30a1\u30a4\u30eb\u5224\u5b9a\r\n  With CreateObject("Scripting.FileSystemObject")\r\n    If .FileExists(TargetFilePath) = False Then GoTo Fin\r\n    Select Case LCase(.GetExtensionName(TargetFilePath))\r\n      Case "jpg", "jpeg", "png", "gif", "bmp"\r\n      Case Else: GoTo Fin\r\n    End Select\r\n  End With\r\n  \r\n  '\u30d5\u30a1\u30a4\u30eb\u8aad\u8fbc\r\n  On Error Resume Next\r\n  With CreateObject("ADODB.Stream")\r\n    .Open\r\n    .Type = adTypeBinary\r\n    .LoadFromFile TargetFilePath\r\n    dat = .Read(adReadAll)\r\n    .Close\r\n  End With\r\n  If Err.Number <> 0 Then GoTo Fin\r\n  On Error GoTo 0\r\n  \r\n  'Computer Vision API\u547c\u51fa\r\n  With CreateObject("WinHttp.WinHttpRequest.5.1")\r\n    .Open "POST", url & "v1.0\/ocr?language=" & TargetLanguage, False\r\n    .setRequestHeader "Ocp-Apim-Subscription-Key", apikey\r\n    .setRequestHeader "Content-Type", "application\/octet-stream"\r\n    .send dat\r\n    Select Case .Status\r\n      Case 200: js = .responseText\r\n      Case Else: GoTo Fin\r\n    End Select\r\n  End With\r\n  If Len(Trim(js)) > 0 Then ret = GetTextFromJSON(js)\r\n  \r\nFin:\r\n  GetOCRTextUsingCognitiveServices = ret\r\nEnd Function\r\n \r\nPrivate Function GetTextFromJSON(ByVal js As String) As String\r\n'JSON\u30c7\u30fc\u30bf\u304b\u3089\u30c6\u30ad\u30b9\u30c8\u53d6\u5f97\r\n  Dim obj As Object\r\n  Dim objRegions As Object\r\n  Dim objRegion As Object\r\n  Dim objLines As Object\r\n  Dim objLine As Object\r\n  Dim objWords As Object\r\n  Dim objWord As Object\r\n  Dim ret As String\r\n  \r\n  ret = "": js = "(" & js & ")" '\u521d\u671f\u5316\r\n  With CreateObject("ScriptControl")\r\n    .Language = "JScript"\r\n    Set obj = .Eval(js)\r\n    Set objRegions = VBA.CallByName(obj, "regions", VbGet)\r\n    For Each objRegion In objRegions\r\n      If Not objRegion Is Nothing Then\r\n        Set objLines = VBA.CallByName(objRegion, "lines", VbGet)\r\n        For Each objLine In objLines\r\n          Set objWords = VBA.CallByName(objLine, "words", VbGet)\r\n          For Each objWord In objWords\r\n            ret = ret & VBA.CallByName(objWord, "text", VbGet)\r\n          Next\r\n        Next\r\n      End If\r\n    Next\r\n  End With\r\n  GetTextFromJSON = ret\r\nEnd Function<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u3001GetOCRTextUsingCognitiveServices\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306e\u7b2c\u4e8c\u5f15\u6570\u3067\u8a00\u8a9e\u3092\u6307\u5b9a\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u3066\u3044\u307e\u3059\u3002
\n\u6a19\u6e96\u306e\u300cunk<\/span>\u300d\u306b\u3057\u3066\u304a\u3051\u3070\u81ea\u52d5\u5224\u5225\u3055\u308c\u307e\u3059\u304c\u3001\u610f\u56f3\u3057\u305f\u901a\u308a\u306e\u8a00\u8a9e\u3067\u8a8d\u8b58\u3055\u308c\u306a\u3044\u5834\u5408\u306f\u3001Cognitive Services APIs Reference<\/a>\u3092\u53c2\u8003\u306b\u3001\u8a00\u8a9e\u3092\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
\u5b9f\u884c\u7d50\u679c<\/h4>\n
\u4e0a\u8a18\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3057\u305f\u7d50\u679c\u306f\u3001\u4e0b\u8a18\u306e\u901a\u308a\u3067\u3057\u305f\u3002<\/p>\n
\u65e5\u672c\u306b\u304a\u3051\u308b\u300c\u590f(\u306a\u3063)\u300d\u306e\u5b9a\u7fa9\u306f\u3001\u524d\u8ff0\u306e\u4e2d\u56fd\u66a6\u306e\u300cA(xia)\u300d\u306e\u5b9a\u7fa9\u306e\u5f37\u3044\u5f71\u97ff\u3092\u53d7\u3051\u305f\u4e0a\u3001\u8fd1\u4ee3\u306b\u304a\u3044\u3066\u30af\u30ec\u30b3\u30ea\u30aa\u66a6\u306b\u4ed8\u968f\u3059\u308b\u6b27\u7c73\u306e\u6587\u5316\u7684\u5f71\u97ff\u3082\u53d7\u3051\u3066\u8907\u96d1\u306a\u69d8\u76f8\u3092\u5448\u3057\u3066\u3044\u308b\u3002\u4e2d\u56fd\u66a6\u4ee5\u5916\u306e\u66a6\u6cd5\u3092\u77e5\u3089\u306a\u304b\u3063\u305f\u524d\u8fd1\u4ee3\u306e\u6642\u671f\u306b\u306f\u3001\u4e2d\u56fd\u66a6\u306e\u300cA(xia)\u300d\u306e\u5b9a\u7fa9\u3092\u65e5\u672c\u4eba\u3082\u305d\u306e\u307e\u307e\u53d7\u3051\u4eba\u308c\u3055\u308b\u3092\u5f97\u306a\u304b\u3063\u305f\u3002\u3057\u304b\u3057\u3001\u6d77\u6d0b\u6027\u6c17\u5019\u3066\u3042\u308a\u3001\u809d\u5fc3\u306e\u590f\u81f3\u306e\u6642\u671f\u306b\u306f\u6885\u96e8\u306b\u3088\u308a\u65e5\u5c04\u304c\u906e\u3089\u308c\u308b\u65e5\u672c\u3066\u306f\u3001\u524d\u8ff0\u306e\u663c\u9593\u306e\u9577\u3055\u3068\u6c17\u6e29\u306e\u30b9\u30ec\u306f\u4e2d\u56fd\u3088\u308a\u8457\u3057\u304f\u5927\u304d\u304f\u306a\u308b\u3002\u65e5\u672c\u5217\u5cf6\u306b\u304a\u3044\u3066\u306f\u3001\u6c17\u6e29\u306e\u30d2-\u30af\u306f\u7acb\u79cb\u306e\u6642\u671f\u306b\u305a\u308c\u3053\u3080\u305f\u3081\u3001\u6c17\u6e29\u304c\u30d2-\u30af\u306b\u306a\u308b\u9803\u306b\u306f\u3001\u590f\u304c\u7cf8\u51ac\u308f\u3063\u3066\u79cb\u304c\u59cb\u307e\u3063\u3066\u3057\u307e\u3063\u3066\u3044\u308b\u3068\u3044\u3046\u73fe\u8c61\u304c\u751f\u3058\u308b\u3053\u3068\u306b\u306a\u308b\u3002\u3053\u306e\u30f0\u30e3\u30c3\u30d7\u304c\u3001\u73fe\u5728\u3066\u3082\u300c\u66a6\u306e\u4e0a\u3067\u306f\u30fb\u30fb\u590f(\u79cb)\u3066\u3059\u304c\u30fb\u30fb\u30fb(\u6c17\u6e29\u306e\u5b9f\u611f\u306f\u5168\u304f\u9055\u3044\u307e\u3059)\u300d\u3068\u3044\u3046\u30d5\u30ec-\u30b9\u304c\u5929\u6c17\u4e88\u5831\u306a\u3069\u3066\u983b\u7e41\u306b\u7528\u3044\u3089\u308c\u308b\u539f\u56e0\u3068\u306a\u3063\u3066\u3044\u308b\u3002<\/p><\/blockquote>\n
\u30c6\u30b9\u30c8\u306b\u4f7f\u7528\u3057\u305f\u306e\u304c\u4e0b\u8a18\u753b\u50cf\u3067\u3001\u5143\u306e\u6587\u306fWikipedia<\/a>\u304b\u3089\u5f15\u3063\u5f35\u3063\u3066\u304d\u305f\u3082\u306e\u3067\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u30c6\u30ad\u30b9\u30c8\u6bd4\u8f03\u30c4\u30fc\u30eb\u3067\u5143\u306e\u6587\u3068\u6bd4\u8f03\u3057\u3066\u307f\u308b\u3068\u3001\u3069\u3053\u304c\u8a8d\u8b58\u3067\u304d\u3066\u3044\u306a\u3044\u306e\u304b\u304c\u3088\u304f\u5206\u304b\u308a\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u62ec\u5f27\u3084\u6fc1\u70b9\u306e\u8a8d\u8b58\u304c\u4e0a\u624b\u304f\u3044\u3063\u3066\u3044\u307e\u305b\u3093\u304c\u3001\u3053\u3053\u307e\u3067\u8a8d\u8b58\u3067\u304d\u308c\u3070\u4e0a\u51fa\u6765\u3067\u3059\uff01
\nVBA\u304b\u3089\u6271\u3044\u3065\u3089\u3044JSON\u5f62\u5f0f\u306e\u30ec\u30b9\u30dd\u30f3\u30b9\u304c\u96e3\u70b9\u3067\u3059\u304c\u3001ScriptControl\u3092\u4f7f\u3048\u3070\u6bd4\u8f03\u7684\u7c21\u5358\u306b\u51e6\u7406\u3067\u304d\u308b\u3067\u3057\u3087\u3046\u3002
\n\u30a2\u30a4\u30c7\u30a2\u6b21\u7b2c\u3067\u6d3b\u7528\u306e\u5834\u304c\u5e83\u304c\u308b\u3068\u601d\u3046\u306e\u3067\u3001\u8208\u5473\u304c\u3042\u308b\u65b9\u306f\u662f\u975e\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<\/p>\n
\n
\n