modstring.bas

来自「一个modbus的测试工具」· BAS 代码 · 共 21 行

Attribute VB_Name = "modString"
Option Explicit

Public Function gfunSepString(strInStr As String, strCompStr As String, strOutStr() As String) As Integer
    Dim i As Integer
    Dim j As Integer
    
    gfunSepString = 0
    i = 1
    j = InStr(i, strInStr, strCompStr, vbTextCompare)
    While j > 0
        strOutStr(gfunSepString) = Mid$(strInStr, i, j - i)
        i = j + 1
        gfunSepString = gfunSepString + 1
        j = InStr(i, strInStr, strCompStr, vbTextCompare)
    Wend
    strOutStr(gfunSepString) = Mid$(strInStr, i, Len(strInStr) - i + 1)
    gfunSepString = gfunSepString + 1
End Function