vb 按指定字符查找文件内容

vb 从txt里面查找一段指定字符串?并取出后面的内容?~

说明：新建工程，保存到某文件夹，把那个文件1.txt也复制到该文件夹
用1个按钮就可以了：

Private Sub Command1_Click()

Dim MyStrLine As String
Open app.path & "\1.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, MyStrLine '读入一行
if left(MyStrLine,2)="李四" then
exit do
end if
Loop
Close #1 ' 关闭文件。
msgbox right(MyStrLine,len(MyStrLine)-3)


End If

ttt=""
Open App.Path & "\mytext.txt" For Input As #1 '打开源文本
Do While Not EOF(1)
Line Input #1, aa '读入一行
a = Split(aa, " ")'按空格进行分列,填入数组a中
ttt=a(0) & VBCRLF'把A的第一个项目拿出来,就是sqm1...添加到ttt文本变量中
Loop
Close #1
Text1.Text = ttt '把ttt的内容给予text1
MsgBox "完成"

你可以用Input$(1,文件号)，每一次都会得到一个字符，只要看看是不是要的就可以了。

比方说：
Open "C:\f.txt" For Input As #1
Do While Not EOF(#1)
a$=Input$(1,#1)
If a$="f" Then
b=b+1
End If
Loop
Print "读到";b;"个“f”"
Close #1
1、用filesystemobject方法可以
2、用OPEN命令打开文件
写入内容（text1.text）
保存文件。
只要你在程序里不加msgbox提示，那它自然就没有提示。偷偷的完成以上功能了。
这里建议你用filesystemobject来做，它处理文件很方便的！
工程--引用--microsoft scripting runtime
Dim Fso As FileSystemObject
Dim Load_File As TextStream
Set Fso = New FileSystemObject
Set Load_File = Fso.OpenTextFile("c:\3.txt")
Load_File.WriteLine text1.text
Load_File.Close
比如:
文本文件1.txt 的内容是:
a 12345
b 23456
c 47859
我在输入框text1.text输入:a
按确定
那么输入框text2.text输出:12345
我在输入框text1.text输入:b
按确定
那么输入框text2.text输出:23456
要怎么实现?
提问者： x3602900 - 试用期 一级 最佳答案
Sub FindKeyword(ByVal kw As String)
Dim Stream$, filepath$ '建立变量
filepath = IIf(Right$(App.Path, 1) <> "\" And Right$(App.Path, 1) <> "/", App.Path & "\answer.txt", App.Path & "answer.txt")
'生成读入文本路径
Open filepath For Input As #1 '读取
Do While Not EOF(1) '直到文件尾部
Line Input #1, Stream '行模式读取
If Not EOF(1) Then '判断是否到最后一行
Line Input #1, Stream '读取下一行
If Mid$(Stream, 1, 1) = Text1.Text Then
Text2.Text = Mid$(Stream, 2) '输出结果
End If
Else
Exit Do '直接退出do循环
End If
Stream = "" '初始化变量 : 清空
Loop
Close #1
End Sub

---

宣化县13697105548： vb 按指定字符查找文件内容 - ？
禾狐小儿： 你可以用Input$(1,文件号),每一次都会得到一个字符,只要看看是不是要的就可以了. 比方说: Open ＂C:\f.txt＂ For Input As #1 Do While Not EOF(#1) a$=Input$(1,#1) If a$=＂f＂ Then b=b+1 End If Loop Print ＂读到＂;b;＂个“f”＂ ...

宣化县13697105548： 如何用vb查找指定文件名的文件内容 - ？
禾狐小儿： 已经完成,请留下E _ M _ A _I L或者用下面内容1.建立一个窗体2.放置一个文本框,用于输入索引路径,文本框命名为txtDirPath3.放置一个按钮,用于开始索引,按钮命名为cmdSearch4.放置一个Label,用于显示索引进度,命名为lblState5.放置一个Command按钮,用于保存索引结果,命名为cmdSave

宣化县13697105548： VB中如何实现文本查找功能? - ？
禾狐小儿： 在VB中要实现查找文件功能,我们可以利用VB的DIR函数进行递归来实现.每次使用DIR函数后,比较是否有要查找的文件,再检查是否有子目录,若有,利用递归继续查找,这样可对整个盘进行查找...

宣化县13697105548： 用VB 查找文本内容 - ？
禾狐小儿： open ＂log.txt＂ for input as #1 open ＂log1.txt＂ for output as #2 do while not eof(1) line input #1,tmp if instr(tmp,＂@＂)>0 then print #2,tmp loop close

宣化县13697105548： vb怎样查找文本文件里的东西 - ？
禾狐小儿： '创建4个文本 2个按纽 Dim s Private Sub Command1_Click() Open App.Path & ＂\＂ & ＂1.txt＂ For Input As #1 Do While Not EOF(1) Line Input #1, s Text4.Text = Text4.Text & s & vbCrLf Loop Close #1 End Sub Private Sub Command2_Click() ...

宣化县13697105548： vb搜索文件夹下指定关键字的文件并打开 - ？
禾狐小儿： '好象回答过一次类似的问题,上次是打开文件夹吧?用的也是下面的代码:Private Sub Command1_Click() a = Dir(＂d:\123\＂, vbHidden + vbDirectory) Do While a <> ＂＂ If GetAttr(＂d:\123\＂ & a) <> vbDirectory Then If InStr(a, Text1.Text) Then...

宣化县13697105548： 如何查找包含指定字符串的文件？
禾狐小儿： 首先读入文件,然后开始循环判断文件里的字符串

宣化县13697105548： VB编程,查找TXT中特定的字符串 - ？
禾狐小儿： '未作错误处理,假设你的文件存在且格式正确 Private Sub Command1_Click() Dim mark, arr, i, out(), n mark = ＂a＂＂＂ Open ＂c:\a.txt＂ For Input As #1 arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), mark) Close #1 For i = 0 To UBound(arr)...

宣化县13697105548： VB中如何实现文本查找功能 - ？
禾狐小儿： ---- 实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置,这个函数需要的的参数是起始位置、主体字符串、要查找的字符串.“查找下一个”功能的实现就是把当前位置作为起始位置继续查...

宣化县13697105548： vb怎样读取文件夹中含有某一字符的最新的文本文档 - ？
禾狐小儿： 这位在读硕士,如果你对楼上网友们的答复不够满意,请看看下面解答吧,慎重起见代码已通过实测,点击按钮实现你的要求:Private Sub Command1_Click() On Error GoTo err Dim file() As String, str As String, n As Long Dim dirxn As String, ...