VB查找文本中的指定字符是如何做的[local]1[/local]

像这样

这是模糊查询啊

1、以行为单位打开文本文件
2、看vB是否有专业的扫描字符串函数  没有自己写一个

看了一下instr函数就是干这玩意的

收到的鲜花

• Allen_BBS 于 2014-04-12 00:21 送鲜花  3朵  

Private sub 查找_Click()
If Trim(Text1.text) <> "" then
    Text2.Text = ""
    Open "C:\Text1.txt" for input as #1
    If LOF(1) <> 0 Then
        Do While Not EOF(1)
            Line Input #1, NewLine
            If Instr(1,NewLine,Trim(Text1.text)) <> 0 then
                Text2.text = IIF(Text2.text = "",NewLine,Text2.Text & vbCrLf & NewLine)
            Endif
        Loop
    Else
       Msgbox "没有数据可查询!"
    Endif
    Close #1
Else
    Msgbox "请输入查询数据!"
    Text1.SetFocus
Endif