VB查找文本中的指定字符是如何做的 - 编程论坛

#2

Allen_BBS2014-03-31 03:02

只有本站会员才能查看附件，请登录

像这样

#3

wp2319572014-03-31 05:59

这是模糊查询啊

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

#4

wp2319572014-03-31 06:07

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

#5

owenlu19812014-03-31 08:22

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