vb 按指定字符查找文件内容
作者&投稿:杜鬼 (若有异议请与网页底部的电邮联系)
说明:新建工程,保存到某文件夹,把那个文件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 "完成"
比方说:
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
禾狐小儿: 你可以用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, ...