Question

VB 求源码 text1每行只包含 text3的其中一个数字，执行显示在text2中，(包含零个或

VB 求源码
text1每行只包含 text3的其中一个数字，执行显示在text2中，(包含零个或二个或三个数字的不要)

Answer 1

Private Sub Command1_Click()
   Dim s As String, s1 As String
   Dim n As Integer
   a = Split(Text1.Text, vbCrLf)
   s = Trim(Text3.Text)
   Text2.Text = ""
   For i = 0 To UBound(a)
      n = 0
      s1 = Trim(a(i))
      For j = 1 To Len(s)
         For k = 1 To Len(s1)
            If Mid(s, j, 1) = Mid(s1, k, 1) Then n = n + 1
         Next k
      Next j
      If n = 1 Then Text2.Text = Text2.Text & s1 & vbCrLf
   Next i
End Sub

追问

正确

VB 求源码
text1每行只包含 text3的其中两个数字，执行显示在text2中，(包含零个或一个或三个数字的不要)，，需要怎么改?非常感谢！

Answer 2

应该不难，但搞不清text2中的 456 是怎么得出的，你描述的问题不清楚。