来源https://skywalking.apache.org/zh/2020-04-19-skywalking-quick-start/#

SkyWalking 极简入门

来源https://blog.csdn.net/zwjzqqb/article/details/103141223

基于Gitlab+Jenkins+SonarQube的代码自动化审查方案

来源https://blog.csdn.net/myhes/article/details/106076544

Elasticsearch(ES)生产集群健康状况为黄色(yellow)的官方详细解释、原因分析和解决方案

定期存款滚动到期模拟计算


VBA获取音标代码：
Function yb(word As String) As String

    
    Dim url As String
    Dim xmlHttp As Object
    Dim htmlf As Object
    Dim yingbiao As String

    ' 构建查询 URL（这里以有道词典为例）
       url = "https://www.youdao.com/w/" & word
    
    ' 创建 XML HTTP 对象
    Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
    
    ' 发送 HTTP GET 请求
    xmlHttp.Open "GET", url, False
    xmlHttp.send
    
  
    
    ' 创建 HTML 文档对象
    Set htmlf = CreateObject("HTMLFile")
    htmlf.body.innerHTML = xmlHttp.responseText
    
  
    yingbiao = htmlf.getElementById("phrsListTab").getElementsByClassName("phonetic")(0).innerText
  
    
    yb = yingbiao

End Function

VBA获取中文翻译代码：
Function fanyi(word As String) As String
       
    Dim url As String
    Dim xmlHttp As Object
    Dim htmlf As Object
    Dim jieguo As String

    ' 构建查询 URL（这里以有道词典为例）
       url = "https://www.youdao.com/w/" & word
    
    ' 创建 XML HTTP 对象
    Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
    
    ' 发送 HTTP GET 请求
    xmlHttp.Open "GET", url, False
    xmlHttp.send
    
 
    
    ' 创建 HTML 文档对象
    Set htmlf = CreateObject("HTMLFile")
    htmlf.body.innerHTML = xmlHttp.responseText
    
    ' 提取定义
   
    jieguo = htmlf.getElementById("phrsListTab").getElementsByTagName("li")(0).innerText
    
    fanyi = jieguo

End Function

效果图：

![6.png](/static/img/04b1df08971ad2fa2833d0f3e45fe73c.6.webp)
为了方便查看，对中文翻译做了一下简单截取，只保留第一个逗号或者分号前面部分。