7,763
社区成员
发帖
与我相关
我的任务
分享!!!!!文本操作求助
我想实现如输入到textbox或listbox内的数据和一个文本如text1.txt内的数据进行比较，请问该怎样写代码呢，多谢
...全文
请发表友善的回复…
发表回复
viena 2005-09-06
- 打赏
- 举报
=
zodane 2005-09-06
- 打赏
- 举报
关注：
sudu0915 2005-09-06
- 打赏
- 举报
对就是字符串的比较了。是从text.txt中一行行的调出然后再比较吗，麻烦给我一个代码参考一下了
of123 2005-09-06
- 打赏
- 举报
假定是 ListBox：
strMsg = ""
Open "text1.txt" for Input As #1
For i = 0 To List1.ListCount - 1
If EOF(1) Then
strMsg = "Difference:" & VBCrLf & "In text1.text:" & VBCrLf & "In ListBox: " & List1.List(i)
Else
Line Input #1, strText
If strText<> List1.List(i) Then strMsg = "Difference:" & VBCrLf & "In text1.text:" strText & VBCrLf & "In ListBox: " & List1.List(i)
End If
Next i
Do Until EOF(1)
Line Input #1, strText
strMsg = "Difference:" & VBCrLf & "In text1.text:" strText & VBCrLf & "In ListBox: "
Loop
If strMsg = "" Then
MsgBox "Same"
Else
MsgBox strMsg
End If
strMsg = ""
Open "text1.txt" for Input As #1
For i = 0 To List1.ListCount - 1
If EOF(1) Then
strMsg = "Difference:" & VBCrLf & "In text1.text:" & VBCrLf & "In ListBox: " & List1.List(i)
Else
Line Input #1, strText
If strText<> List1.List(i) Then strMsg = "Difference:" & VBCrLf & "In text1.text:" strText & VBCrLf & "In ListBox: " & List1.List(i)
End If
Next i
Do Until EOF(1)
Line Input #1, strText
strMsg = "Difference:" & VBCrLf & "In text1.text:" strText & VBCrLf & "In ListBox: "
Loop
If strMsg = "" Then
MsgBox "Same"
Else
MsgBox strMsg
End If
glc20022003 2005-09-05
- 打赏
- 举报
什么比较规则啊??有例子吗???
是字符串的比较吗??
是字符串的比较吗??
faysky2 2005-09-05
- 打赏
- 举报
可以把需要比较的数据从text1.txt抽出来再比较
sudu0915 2005-09-05
- 打赏
- 举报
文本文件里面已经一行行的有些数据了，然后和我输入进listbox或textbox里的数据进行比较，就是想实现一个简单数据库的效果达到简单的比较功能了。
请教了
请教了
northwolves 2005-09-04
- 打赏
- 举报
怎样比较?什么规则?
