因為很多新手(包括我)都不是很了解字串函數,希望各位大大們有空可以來了解一下。
這個程式的功能是專門解之前某位版友的問題:
00123456 - E8 33 44 55 66 - CALL 00223344
00123458 - 56                        - PUSH EAX
怎麼切字串存陣列。
下載:http://www.badongo.com/file/13322493

http://bbs.wefong.com/viewthread ... &extra=page%3D1

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As String = TextBox1.Text

        Dim Flag As Boolean = False

        Dim GG(100) As String

        Dim w = 0, x = 0, y = -1, i As Integer

        For i = 1 To Len(a)

            If i = Len(a) Then

                y += 1

                GG(y) = Mid(a, w, i - w)

            ElseIf IsSpace(Mid(a, i, 1)) = True Then

                If Flag = False Then

                    Flag = True

                    x = i

                End If

                If w <= x Then

                    If IsSpace(Mid(a, i + 1, 1)) = False Then

                        y += 1

                        GG(y) = Mid(a, w, x - w)

                        Flag = False

                    End If

                Else

                    w = i

                End If

            Else

                If w <= x Then

                    w = i

                End If

            End If

        Next

 

        ListBox1.Items.Clear()

        For i = 0 To y

            ListBox1.Items.Add(GG(i) & ";")

        Next

    End Sub

 

    Function IsSpace(ByVal a As String) As Boolean

        If Asc(a) = 32 Or Asc(a) = 10 Or Asc(a) = 13 Or Asc(a) = 45 Then

            Return True

        Else

            Return False

        End If

    End Function

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim a As String = TextBox1.Text

        Dim d() As String

        a = Replace(a, "-", "")

        a = Replace(a, Chr(13) & Chr(10), " ")

        For i = 0 To 50

            a = Replace(a, "  ", " ")

        Next

        d = Split(a, " ")

        ListBox1.Items.Clear()

        For i = 0 To UBound(d) - 1

            ListBox1.Items.Add(d(i) & ";")

        Next

    End Sub

End Class

 

 

arrow
arrow
    全站熱搜

    讓地獄深紅的天亮 發表在 痞客邦 留言(0) 人氣()