VBA調用百度智能雲的自然語言處理技術

語言處理技術，就是對電腦中的文本，進行語義分析。例如從一個很長的地址中，智能地取出省市區縣、聯系方式等。

Sub 百度智能雲_語言處理技術_地址識別()
    'XMLHTTP法
    Dim X As MSXML2.XMLHTTP60
    Dim data  As String
    data = "{'text':'北京市朝陽區朝陽門南大街2號 100086 馬老師 手機[phone]','confidence':100}"
    Set X = New MSXML2.XMLHTTP60
    Dim url As String
    url = "https://aip.baidubce.com/rpc/2.0/nlp/v1/address?charset=UTF-8&access_token=24.bdaf66e1441c945c98d2802597d133c3.2592000.1634512823.282335-24856804"
    With X
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/json; charset=utf-8" 'utf-8
        .send data
        s = .responseText
    End With
    Debug.Print s
End Sub

上述程序運行結果是：

{
  "lat": 39.927771,
  "detail": "朝陽門南大街2號",
  "town": "朝外街道",
  "phonenum": "13610872535",
  "city_code": "110100",
  "province": "北京市",
  "person": "馬老師",
  "lng": 116.442329,
  "province_code": "110000",
  "text": "北京市朝陽區朝陽門南大街2號 100086 馬老師 手機[phone]",
  "county": "朝陽區",
  "city": "北京市",
  "county_code": "110105",
  "town_code": "110105002",
  "log_id": 1439928725284727621
}

 以上是VBA的XMLHttp實現的。下面用API函數庫中Baidu類實現：

Sub 百度智能雲_自然語言處理技術_地址識別()
    Dim url As String
    url = "https://aip.baidubce.com/rpc/2.0/nlp/v1/address?charset=UTF-8&access_token=24.bdaf66e1441c945c98d2802597d133c3.2592000.1634512823.282335-24856804"
    Dim headers As String
    headers = "{'Content-Type':'application/json; charset=utf-8'}"
    Dim data  As String
    data = "{'text':'北京市海淀區雙清路學研大廈A座 100086 劉永富 手機[phone]','confidence':100}"
    Set B = New API.Baidu
    Dim s As String
    s = B.SendData(url:=url, headers:=headers, data:=data, utf8:=True)
    Dim J As API.JSON
    Set J = New API.JSON
    J.Parse s
    Debug.Print J.ToString
End Sub

效果一樣