Option Explicit
Dim myOK As Boolean
Private Sub Command3_Click()
Dim myInputData(2 To 11) As String, myAlldata As String, myTemp() As String, myDataNum As Integer, i As Integer, j As Integer
For i = 2 To 11
Open "c:\" & i & ".txt" For Binary As #1
myInputData(i) = Input(LOF(1), 1)
Close
Next
For i = 2 To 11
myAlldata = myAlldata & myInputData(i) & vbCrLf
Next
Text2.Text = ""
For i = 2 To 11
myTemp() = Split(myInputData(i), vbCrLf)
For j = 0 To UBound(myTemp)
If InStr(1, Text2.Text, myTemp(j)) = 0 Then
myDataNum = (Len(myAlldata) - Len(Replace(myAlldata, myTemp(j), ""))) / 3
If myDataNum >= 10 - Val(Text6.Text) Then Text2.Text = Text2.Text & myTemp(j) & vbCrLf
End If
Next
Next
myOK = True
End Sub
Private Sub Command4_Click()
If myOK = False Then
MsgBox "请先进行交集计算!", vbOKOnly
Else
Open "C:\new.txt" For Output As #1
Print #1, Text2.Text
Close
myOK = False
End If
End Sub
评论0