How to batch translate a group of words?

Question

I want to translate a group of words into simplified Chinese more quickly:

    wordlist1 = 
      ToString /@ {abate, aberrant, abound, abrogate, abstain, abstruse, 
        accede, accessory, accommodate, accredit, acquaint, acquisitive, 
        adduce, adept, admonish, adore, adorn, affiliate, affluent, 
        agitate, agony, agreeable, album, allegiance, allegorical};
    WordTranslation[#, "Chinese"] & /@ wordlist1

But the result of the above code is traditional Chinese. If I specify "SimplifiedChinese" as the parameter, I still can't get the desired result. How can I get the result of simplified Chinese?

    {\[LongDash],\[LongDash],\[LongDash],\[LongDash],{戒},\[LongDash],\[LongDash],{附件},{提供住宿},\[LongDash],{使認識},\[LongDash],\[LongDash],\[LongDash],\[LongDash],{崇拜},{裝飾},\[LongDash],{豐富的},{煽動},{極度痛苦},{同意的},{簿},{忠誠},\[LongDash]}

---

BaiduTranslate[str_, from_ : "en", to_ : "zh"] := 
 Block[{q, appid, key, salt, sign, data},
    q = str;
  
  appid = "20190314000277077";(*你的appid，如何申请请自行百度*)
  key = "sjRd6QGeuLAR1jTr0d3G";
  
    salt = ToString@RandomInteger[2^32];
    sign = Hash[StringJoin[appid, q, salt, key], "MD5", "HexString"];
  data = Import[
    StringJoin[
     "http://api.fanyi.baidu.com/api/trans/vip/translate?q=", 
     URLEncode@q, "&from=", from, "&to=", to, "&appid=", appid, 
     "&salt=", salt, "&sign=", sign], "RawJSON"];
    data["trans_result"][[1]]["dst"]]
BaiduTranslate /@ wordlist1

If I use the above code, I will get a lot of word results as "KeyAbsent"("dst"), how can I modify it to better translate this group of words?

Answer 1

Mathematica and the Wolfram Language have built-in multilingual dictionaries to translate between languages, with functions including WordTranslation and TextTranslation.

WordTranslation and TextTranslation both accept a list of words for translation. Using lists works more quickly than translating one word at a time with WordTranslation[#, "Chinese"] & /@ wordlist1.

WordTranslation understands a set of standard names of languages or their Wolfram Language entities. It does not support simplified Chinese.

TextTranslation requires internet connectivity and uses external services. It accepts "ChineseSimplified" and "ChineseTraditional" variations for translating to Chinese.

Here are examples of translating a list of English words to Chinese. The examples use TextTranslation for simplified and traditional Chinese, and WordTranslation for comparison.

wordlist = {"abate", "aberrant", "abound", "abrogate", "abstain", "abstruse", "accede",
  "accessory", "accommodate", "accredit", "acquaint", "acquisitive", "adduce", "adept",
  "admonish", "adore", "adorn", "affiliate", "affluent", "agitate", "agony", "agreeable", 
  "album", "allegiance", "allegorical"};

TableForm[Transpose[{wordlist,
  TextTranslation[wordlist, "ChineseSimplified"],
  TextTranslation[wordlist, "ChineseTraditional"],
  WordTranslation[wordlist, "Chinese"]}],
TableHeadings -> {None,
  {"English", "Chinese simplified", "Chinese traditional", "WordTranslation"}}]

English	Chinese simplified	Chinese traditional	WordTranslation
abate	方丈	方丈	Missing[NotAvailable]
aberrant	异常	異常	Missing[NotAvailable]
abound	比比皆是	比比皆是	Missing[NotAvailable]
abrogate	废除	廢除	Missing[NotAvailable]
abstain	投弃权票	投棄權票	戒
abstruse	深奥	深奧	Missing[NotAvailable]
accede	访问	訪問	Missing[NotAvailable]
accessory	配件	配件	附件
accommodate	容纳	容納	提供住宿
accredit	授权	授權	Missing[NotAvailable]
[...]	[...]	[...]	[...]
allegorical	寓言	寓言	Missing[NotAvailable]