UC知道vb:Select Case判断txt内容
来源：百度知道 编辑：UC知道 时间：2024/04/28 07:28:52
做了一个窗体，上面有一个text1和一个按钮，
按键的事件如下
Private Sub Command1_Click()
Dim a
a = Text1.Text
Select Case a
Case "1"
MsgBox "找到1"
Case "2"
MsgBox "找到2"
Case "3"
MsgBox "找到3"
Case Else
MsgBox "没找到"
End Select
End Sub
text1来用输入满足case的值，当text1里的值满足case时会弹出相应提示。
现在想把按钮的事件改成这样的效果：
把a＝text1.text改成a的值从d:\1.txt读取，而不是从text1里读取
让满足case的值由text1.text中获取
过程为：程序运行后，在text1里输入111，然后按下按钮，如果输入text1值111在d:\1.txt文件里也有（必须完全相同）
那么弹出提示"找到111" 如果d:\1.txt的内容有和输入text1值一样，都是222
那么弹出提示"找到222" ，输入333效果也一样。如果输入的没有与d:\1.txt文件相同的就弹出“没找到”！
注d:\1.txt事先又放在d盘里
内容为：
111
222
333
总共3行
高手，帮我写一下代码。用if的也行
按键的事件如下
Private Sub Command1_Click()
Dim a
a = Text1.Text
Select Case a
Case "1"
MsgBox "找到1"
Case "2"
MsgBox "找到2"
Case "3"
MsgBox "找到3"
Case Else
MsgBox "没找到"
End Select
End Sub
text1来用输入满足case的值，当text1里的值满足case时会弹出相应提示。
现在想把按钮的事件改成这样的效果：
把a＝text1.text改成a的值从d:\1.txt读取，而不是从text1里读取
让满足case的值由text1.text中获取
过程为：程序运行后，在text1里输入111，然后按下按钮，如果输入text1值111在d:\1.txt文件里也有（必须完全相同）
那么弹出提示"找到111" 如果d:\1.txt的内容有和输入text1值一样，都是222
那么弹出提示"找到222" ，输入333效果也一样。如果输入的没有与d:\1.txt文件相同的就弹出“没找到”！
注d:\1.txt事先又放在d盘里
内容为：
111
222
333
总共3行
高手，帮我写一下代码。用if的也行
Private Sub Command1_Click()
a = FileContent("d:\1.txt")
If InStr(a, Text1) > 0 Then
MsgBox "找到" & Text1
Else
MsgBox "没找到"
End If
End Sub
Function FileContent(FileName As String) As String
Dim FileNo As Integer
Dim FileString As String
FileNo = FreeFile
Open FileName For Binary As #FileNo
FileString = Space(FileLen(FileName))
Get #FileNo, , FileString
Close #FileNo
FileContent = FileString
End Function
这需要用到文件的读和写啊，你学VB，有书吗，没书的话，下了电子书没