在Excel中的，单元格字符串中，找对应字段名的值

Excel 中 再字符串中找对应字段名的值

例如

"id:0&guideId:999&pos:[0,0]"
'&' 字符 用来分割字符串
Excel 中只能用VB来写函数，所以我们只能用VB语言来写函数

Function FindContent(soure As String, fieldName As String)

Dim arr
Dim ret As String

soure = Replace(soure, Chr(34), "")  '用来替换字符串中的 双引号'

arr = Split(soure, "&")  '使用 & 分割字符串'

ret = "Error" '如果没找到字段对应的值，返回一个错误值'

If IsArray(arr) Then

    For Each i In arr
    
        temVal = Split(i, ":")
        
        If IsArray(temVal) And temVal(0) = fieldName Then
           ret = temVal(1)
           Exit For
        End If
    
    Next i
    
    If ret = "null" Then
        ret = ""
    End If

End If

FindContent = ret

End Function

使用的是office 软件 ，
1，选择 “文件 ->选项->自定义功能区->勾选开发工具”
2，在菜单栏选择“开发工具”， 点击工具区的“Visual Basic”，	打开编程界面

3，右键项目 -> 选择“插入 -> 模块”，打开模块界面，贴入代码

4，单元格中，我们再字符串中找 jsonString，没找到，返回了 “Error”

5，现在我们找下 “id”， “guideId” 和 “pos”