Bing词典查单词第三方API

{
"headword": "hello",
"meanings": {
"int.": "你好；喂；您好；哈喽",
"网络": "哈罗；哈啰；大家好"
},
"pronunce": ["美[heˈləʊ] ", "英[həˈləʊ] "],
"sample": {
"H is for hello , whichis something nice to say , it means I 'm glad to see you , any time of a day .": "H代表你好，一句彬彬有礼的问好，意思是我在一天的任何时候都很高兴见到你。",
"He saidto say hello and he hopes we 'll seeyoufor dinner soon , but he 's got too much work togo out pub crawlingwith the boys .": "他说让我问好，还说希望我们三个最近能在一起吃顿午饭，但是他要干的活儿实在太多了，所以没时间和咱们在酒吧里鬼混了。",
"Hello ! How much should I pay ?": "你好！我要交多少钱？",
"Hello , Sergio . What'sthematter ? - - I 'm feeling terrible . --Oh , dear ! Why don't you see adoctor ? -- Perhaps I will .": "你好，塞吉尔。你怎麽了？--我感觉很难受。--哎呀！你怎麽不去看医生？--也许我就去。",
"It was OK . Thank you for coming out to meet me eventhough you are busy . Oh yeah , Andyasked me tosay hello .": "没关系。你很忙还来接我真是谢谢。对了，还有安迪向你问好。",
"Or if oneof our cats comes uptosay hello , rubs itself on my leg and settles down for a nap near me . . . yep : great day!": "再或者，如果我们的某只猫走过来跟我打招呼，再拿身子在我腿上蹭，然后靠近我躺下来打个盹儿…没错：奇妙无比的又一天！",
"Thankful fora familiar face in the crowd I mademywaytoward her to say hello .": "感谢能在人群里见到熟悉的脸庞，我走过去，跟她打招呼。",
"The thing that annoys me about him is theway he never says\" Hello !\" .": "他使我讨厌的是，从来不跟别人打呼。",
"Though I was a bit underdressed in apair of khaki pants and a damp leather jacket I decided to step in and say hello to her .": "虽然我当时穿着有些寒酸——黄褐色的裤子和潮湿的皮夹克，但我还是决定要走进去和她打个招呼。",
"When she greetedmewithher hello , I replied \" Guess what I need from you today ? \"": "她向我打招呼，我说：你说我想弄点什么呢？"
},
"tabs": {
"反义词": ["int.", "ciao", ",", "good afternoon", ",", "good day", ",", "good morning", ",", "hi"],
"同义词": ["int.", "goodbye"],
"搭配": ["v.+n.", "say Hello"]
}
}

Function LookupWord(word)
If Len(word) < 1 Then
LookupWord = ""
Exit Function
End If
On Error Resume Next
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", "https://www.fenzhengrou.wang/engtools/dic?word=" & word, True
.Send
Do Until .ReadyState = 4
DoEvents
Loop
LookupWord = .responsetext
End With
End Function

Function regular_find(str, pat)
Dim mRegExp As RegExp
Dim mMatches As MatchCollection '匹配字符串集合对象
Dim mMatch As Match '匹配字符串

Set mRegExp = New RegExp
With mRegExp
.Global = True
.IgnoreCase = False
.Pattern = pat
Set mMatches = .Execute(str)
End With

Dim ret
ret = ""

For Each mMatch In mMatches
ret = ret & mMatch.Value
Next
regular_find = ret
End Function

Function regular_find_all(str, pat)
Dim mRegExp As RegExp
Dim mMatches As MatchCollection '匹配字符串集合对象
Dim mMatch As Match '匹配字符串

Set mRegExp = New RegExp
With mRegExp
.Global = True
.IgnoreCase = False
.Pattern = pat
Set mMatches = .Execute(str)
End With

Dim ret
ret = ""

For Each mMatch In mMatches
ret = ret & "||||" & mMatch.Value
Next
regular_find_all = Split(ret, "||||")
End Function

Function GetPronunciation(ori_data)
Dim pronunce_part
Dim pronunce
pronunce_part = regular_find(ori_data, "(pronunce[\s\S]*?\],)")
pronunce = regular_find(pronunce_part, "(\[""[\s\S]*?""\])")
pronunce = Replace(pronunce, "[""", "")
pronunce = Replace(pronunce, """]", "")
pronunce = Replace(pronunce, """", "")
pronunce = Replace(pronunce, " ,", Chr(10))
GetPronunciation = pronunce
End Function

Function GetMeanings(ori_data)
Dim meanings_part
meanings_part = regular_find(ori_data, "(meanings"":\{[\s\S]*?\})")
meanings_part = regular_find(meanings_part, "(\{[\s\S]*?\})")
meanings = regular_find_all(meanings_part, "(""[\s\S]*?"")")

Dim ret
ret = ""
For i = 1 To UBound(meanings) Step 1
If ((i - 1) Mod 2) = 0 And (i - 1) <> 0 Then
ret = ret & Chr(10)
End If
ret = ret & Mid(meanings(i), 2, Len(meanings(i)) - 2)
If ((i - 1) Mod 2) = 0 Then
ret = ret & ":"
End If
Next

GetMeanings = ret

End Function

Function GetSamples(ori_data, max_sample)
Dim samples_part
samples_part = regular_find(ori_data, "(sample"":\{[\s\S]*?\})")
samples_part = regular_find(samples_part, "(\{[\s\S]*?\})")
samples_part = Mid(samples_part, 3, Len(samples_part) - 2)
samples_part_arr = Split(samples_part, """,""")
If UBound(samples_part_arr) + 1 < max_sample Then
max_sample = UBound(samples_part_arr) + 1
End If
ret = ""
For i = 0 To max_sample - 1 Step 1
samples_zip = Split(samples_part_arr(i), """:""")
If UBound(samples_zip) = 1 Then
ret = ret & (i + 1) & ". " & samples_zip(0) & Chr(10) & samples_zip(1) & Chr(10)
End If
Next
GetSamples = ret
End Function

Function GetSyn(ori_data)

End Function