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

来源：百度知道 编辑：UC知道 时间：2024/05/24 17:15:33
数据如下
R6
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0024 0024
0101 0000 0101
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0035 0000 0035
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
0000 0000 0000
,,,, ,,,, ,,,,=
以上一个很大的文件中的一部分，目的就是将R6后面的数据按行存入R24数组
但是我的代码运行输出的却只是最后一个文件的最后一行

这是我的程序

Private Sub Command1_Click()

Dim d As String, day As Integer, a() As String, str1 As String, b As String
Dim e(13) As String, xx(13) As String, r24() As String, w17() As String, w15() As String, w89() As String, w18() As String, w13()

你可以用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 F