VB6.0数据判断筛选 - 编程论坛

#2

seafish0112013-12-10 00:52

你已经说了一种方法啦，去实现它呀

#3

jiek06852013-12-10 08:13

回复 2楼 seafish011

具体的写不出来

#4

Artless2013-12-10 12:47

以下是引用jiek0685在2013-12-9 18:48:14的发言：

怎么发帖不给用段落符号

什么问题？

#5

seafish0112013-12-11 00:17

下面是实现按钮1的功能

程序代码：

    Dim i As Integer, j As Integer, N As Integer, M As Integer
    Dim sT1 As String, sT2 As String, T1 As String, T2 As String, TT1 As String
    sT1 = Replace(Trim(Text1.Text), vbCrLf, "")
    sT2 = Replace(Trim(Text2.Text), vbCrLf, "")
    For i = 0 To Len(sT1) - 1
        T1 = T1 & "*" & Mid(sT1, i + 1, 1)
    Next i
    For i = 0 To Len(T1) / 8 - 1
        TT1 = Mid(T1, i * 8 + 1, 8) & "*"
        For j = 0 To Len(sT2) / 6 - 1
            T2 = Mid(sT2, j * 6 + 1, 6)
            If T2 Like TT1 Then Text3.Text = Text3.Text + T2 & vbCrLf
        Next j
     Next i