vb.net中的一个组合函数

最新推荐文章于 2023-02-26 20:24:29 发布

sikychen

最新推荐文章于 2023-02-26 20:24:29 发布

阅读量850

点赞数

分类专栏： .net 文章标签： vb.net integer string function

本文链接：https://blog.csdn.net/sikychen/article/details/1006859

版权

.net 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

Function GetDirect(ByVal lCurrPos As Long, ByVal sSource As String, ByVal sFind As String, ByVal bPre As Boolean) As Integer

    '往前查找字符串
    Dim iLoop As Integer
    Dim iLength As Integer
    iLength = Len(sFind)

Dim sTemp As String
sTemp = ""

    While sFind <> sTemp
        sTemp = Mid(sSource, lCurrPos, iLength)
        If bPre = True Then
            lCurrPos = lCurrPos - 1
        Else
            lCurrPos = lCurrPos + 1
        End If
    End While
    GetDirect = lCurrPos

End Function
Function SubStringCount(ByVal sSource As String, ByVal sFind As String) As Integer

SubStringCount = 0

Dim iLenFind As Integer, iStart As Integer

iLenFind = Len(sFind)
iStart = 1

Dim iPtr As Integer
iPtr = 0

    Dim iPos As Integer
    iPos = InStr(iStart, sSource, sFind, CompareMethod.Text)
    If iPos > 1 Then
        SubStringCount = 1
        While (iPos)
            iPos = InStr(iPos + iLenFind, sSource, sFind, CompareMethod.Text)
            If iPos > 0 Then
                SubStringCount = SubStringCount + 1
            End If
        End While

End If

End Function

Function GetTableValue(ByVal sTable As String, ByVal iRow As Integer, ByVal iCol As Integer) As String
    Dim iLoop As Integer
    Dim iPtr As Integer
    Dim iRowLeft As Integer
    Dim iRowRight As Integer
    Dim sRow As String
    Dim sCell As String

    iPtr = 1
    For iLoop = 1 To iRow
        iPtr = InStr(iPtr, sTable, "<tr", CompareMethod.Text)
        iPtr = iPtr + 3
    Next

    iRowLeft = iPtr - 3
    iRowRight = GetDirect(iRowLeft, sTable, "</tr>", False)
    sRow = Mid(sTable, iRowLeft, iRowRight - iRowLeft + 5 - 1)

    iPtr = 1
    For iLoop = 1 To iCol
        iPtr = InStr(iPtr, sRow, "<td", CompareMethod.Text)
        iPtr = iPtr + 3
    Next
    iRowLeft = iPtr - 3
    iRowRight = GetDirect(iRowLeft, sRow, "</td>", False)
    sCell = Mid(sRow, iRowLeft, iRowRight - iRowLeft + 5)

iRowLeft = InStr(1, sCell, ">", CompareMethod.Text)
iRowRight = InStr(iRowLeft, sCell, "</td>", CompareMethod.Text)

sCell = Trim(Mid(sCell, iRowLeft + 1, iRowRight - iRowLeft - 1))
GetTableValue = sCell

End Function