Question

怎么样用VB把txt文件中需要的内容提取到一个新的txt文件啊，我是新手，希望大神能给一下代码，谢谢了

就是把这个txt文件里分节符之间满足 rmdj出现的次数大于等于3时 ，把分节符之间的数据（包括上面一行数字）全部筛选出来输出到一个新的txt文件中。

Answer 1

Private Sub Command1_Click()
Dim myInput As String, myOutput As String, myTemp As String, myData() As String, i As Integer
Open "旧文件所在位置" For Binary As #1
myInput = Input(LOF(1), 1)
Close
myData = Split(myInput, "----") '引号中“-”的数目与文本文件中“分节符”数目相同
For i = 0 To UBound(myData)
If Len(myData(i)) - Len(Replace(myData(i), "rmdj", "")) = 12 Then myOutput = myOutput & myData(i) & "----" '引号中“-”的数目与文本文件中“分节符”数目相同
Next
Open "新文件所在位置" For Output As #1
Print #1, myOutput
Close
End Sub

Answer 2

操作步骤:

1. 先用open语句打开文件

2. 用line input语句读取一行

3. 判断字符是否是"----"分节符

4. 是的话把读取的资料赋值给其它变量
   

5. 是的话开始计数 rmdj出现的次数

6. 再次判断字符是否是"----"分节符

7. 是的话判断rmdj出现的次数是否大於等於3

8. 是的话把资料保存
   

追问

能不能给下代码呢，新手啊

Answer 3

用open语句打开源文件，用open语句的追加方式打开新文件，循环里用line input按行读取源，判断，用print写入新文件。