UC知道vbtext对比问题
来源：百度知道 编辑：UC知道 时间：2024/06/06 13:01:44
vb如何比较两个文本框内容
窗体上有两个文本框 text1和text2和一个按钮 在text1里显示112233（在text1的text属性输入的，或用代码text1.text＝"112233"。窗体运行时就会显示，不用手工输入）。
可在text2输入若干行文本，比如第一行输入331354 第二行输入 112233 第三行输入aadcgf112233 第四行112233adfd 。输入完毕后点击按钮。当输入的内容里有一行和text1里内容112233完全一样时就弹出提示。没有不提示，（注：虽然第三行和第四行也有112233，但是它们含有其它字符，所以不能算）。代码怎么写，请高手帮我写一下，
是在输入完几行文本后比较有没有相同的，不是输入一行对比一行哦！
窗体上有两个文本框 text1和text2和一个按钮 在text1里显示112233（在text1的text属性输入的，或用代码text1.text＝"112233"。窗体运行时就会显示，不用手工输入）。
可在text2输入若干行文本，比如第一行输入331354 第二行输入 112233 第三行输入aadcgf112233 第四行112233adfd 。输入完毕后点击按钮。当输入的内容里有一行和text1里内容112233完全一样时就弹出提示。没有不提示，（注：虽然第三行和第四行也有112233，但是它们含有其它字符，所以不能算）。代码怎么写，请高手帮我写一下，
是在输入完几行文本后比较有没有相同的，不是输入一行对比一行哦！
Private Sub Command1_Click()
Dim s As String, si As Variant
Dim sz() As String
s = Text2.Text
sz = Split(s, vbCrLf) 'Text2中内容 被换行回车符 分割成各部分，存入数组
For Each si In sz '对数组遍历
If si = Text1.Text Then '每一行与Text1中内容比较，如果不计较前后的空格，可以写成
'If Trim(si) = Trim(Text1.Text) Then
MsgBox "you"
else
MsgBox "mei you"
End if
Next
End Sub