DSAPI 提取中间文本（字符串）

提取中间文本(源文本 As String, 前导文本 As String, 结束文本 As String, Optional 移除文本 As String = "", Optional 忽略大小写 As Boolean = True)

Dim S As String = "name:ok,link:none,name:ok2,link:none2"
        '提取字符串中"name:"到","之间的字符
        Dim SP() As String = DSAPI.字串提取.提取所有中间文本(S, "name:", ",")
        For Each M As String In SP
            Console.WriteLine(M)
        Next
        '输出 ok ok2


        '提取字符串中"link:"到","之间的字符,由于后面的link后面没有","，所以提取的时候后面补一下，使得最后一个link也能被捕捉进来
        SP = DSAPI.字串提取.提取所有中间文本(S & ",", "link:", ",")
        For Each M As String In SP
            Console.WriteLine(M)
        Next
        '输出 none none2


        '提取字符串中的"name:"到","，但只提取第一个匹配的。
        Console.WriteLine(DSAPI.字串提取.提取中间文本(S, "name:", ","))
        '输出 ok