VB TXT文件内容分割

你这里应该不包括前后面的中文冒号吧。。。分割条件就是split函数后面的那个参数，你对照你那边的改一下就可以了，我这个是用你贴的这段试用的，运行OK。。
Private Sub Command1_Click()
Dim a As String, b() As String, n As Integer, s As String
Open App.Path & "\aa.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
a = a & s & vbCrLf
Loop
Close #1
b = Split(a, "条： " & vbCrLf)
For n = 1 To UBound(b)
Open App.Path & "\" & Format(n, "0000") & ".txt" For Output As #1
s = Left(b(n), IIf(InStr(b(n), "第") > 1, InStr(b(n), "第") - 1, Len(b(n))))
Print #1, s
Close #1
Next
MsgBox "OK"
End Sub

忘了VB咋写了。你就这样做吧。
伪代码：
Open open app.path & "\原来文件.txt" for read as #1
int 文件序号=1
每行的内容 = readline #1
String 文件名
文件名 = 转换（文件序号）'就是把1 转为0001 ,23转成 0023
Open open app.path & "\" & 文件名 & ".txt" for read as #文件序号
while（!eof(