分析文本1.txt文件 内容:
00000000000000000
00000000000000000
00000000000000000
00000000000000000
00000000000000000
00000000000000000
-----------------
11111111111111111
11111111111111111
11111111111111111
11111111111111111
11111111111111111
11111111111111111
-----------------
22222222222222222
22222222222222222
22222222222222222
22222222222222222
22222222222222222
22222222222222222
-----------------
33333333333333333
33333333333333333
33333333333333333
33333333333333333
33333333333333333
33333333333333333
-----------------
44444444444444444
44444444444444444
44444444444444444
44444444444444444
44444444444444444
44444444444444444
-----------------
55555555555555555
55555555555555555
55555555555555555
55555555555555555
55555555555555555
55555555555555555
-----------------
66666666666666666
66666666666666666
66666666666666666
66666666666666666
66666666666666666
66666666666666666
-----------------
77777777777777777
77777777777777777
77777777777777777
77777777777777777
77777777777777777
77777777777777777
-----------------
88888888888888888
88888888888888888
88888888888888888
88888888888888888
88888888888888888
88888888888888888
-----------------
99999999999999999
99999999999999999
99999999999999999
99999999999999999
99999999999999999
99999999999999999
程序代码:
Imports System.IO
Public Class Form1
Dim z As Integer = 2
Dim code As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim stream As FileStream
Dim read As StreamReader
stream = New FileStream("C:\Users\lenovo\Desktop\1.txt", FileMode.Open)
read = New StreamReader(stream)
While read.Peek() > 0 '一行一行读
code = read.ReadLine()
If code.IndexOf("-----") <> -1 Then 'code.IndexOf("-----") <> -1 表示存在--------样的字段
z += 1
Else
zxl()
End If
End While
stream.Close()
read.Close()
End Sub
Sub zxl()
Dim fw As New StreamWriter("C:\Users\lenovo\Desktop\" & z & ".txt", True) 'true 为append追加不追加记录
fw.WriteLine(code)
fw.close()
End Sub
End Class