你下载的不是纯文本，或者其中有非Ascii字符或其它编码的字符，请下载我刚才发的文件（地址：http://file.pfan.cn/upfile/200807200939979.rar），用我那个分割文本的代码试试

我晕，这种事讨论了半天，人家说“多出了很多乱码”呢，请问要分割的这个文件是什么格式的哦？？？？？？？？？？？？？？？？？？？？？？？

UTF-8 有签名

= =;是网站的？
不管小说的错别字的话，可以直接从网站上读数据嘛！~

……一放假什么都忘了，不好意思了各位……呃，11楼的朋友看了我发的那个文件了吗？那我是不是可以认为含有Unicode的TXT是没法用VB编的程序正常分割的？……那，就瞎了……
12楼，我的就是TXT。
13楼，第一句话太专业了，能解释一下吗？

你附件中的文本是不是经过处理的？还是从网上下来就是这个样子？
我也经常从网上下载小说，一般都是TXT文本的，也有htm文本的，这个需要转换一下，去掉htm标记。如果是Unicode格式或UTF-8格式的，也必须要先进行转换。这三种转换的代码请参考我去年9月份的发贴“编写超级记事本必需的16个功能源代码”。只有纯文本格式才能正确地进行文本分割。另外，你最好准备一个HEX编辑器，在观察分析文本格式时有用，我去年9月份也发了一贴“Hex编辑器源代码”，你有兴趣可下载编译。

文件格式和文件后缀名不是一回事！

那我就更糊涂了……

在网上调查了一下，大致搞清楚ANSI和UNICODE是怎么回事了。总之ANSI包含GB2312和GBK，对吧。我尝试着将我要分割的文本另存为ANSI编码方式的，还好，除了有部分空格变成了问号，几处间隔号变成了圆球，似乎就没有什么其他问题了。在阅读了各位提供的代码之后，我做了一些小改进，在此奉上！
Option Explicit
Private Root As String, Goal As String

Private Sub Command1_Click()
Dim i As Integer, Part As String
Open Root For Input As #1
Open Goal & 0 & ".txt" For Output As #2
Do While Not EOF(1)
 Line Input #1, Part
 If Option1.Value = True Then
   Part = "    " & LTrim(Part)
 End If
  If Part Like "*第*章*" Then
   Close #2
   i = i + 1
   Open Goal & i & ".txt" For Output As #2
   Print #2, Part
  Else
   Print #2, Part
  End If
Loop
Close
Caption = "TXT分段器（分割完成）"
End Sub


Private Sub drive1_change()
  Caption = "TXT分段器（已就绪）"
  Dir1.Path = Drive1.Drive
End Sub


Private Sub Dir1_Change()
 Caption = "TXT分段器（已就绪）"
 File1.Path = Dir1.Path
End Sub


Private Sub Drive2_Change()
   Caption = "TXT分段器（已就绪）"
   Dir2.Path = Drive2.Drive
End Sub
Private Sub Dir2_Change()
   Caption = "TXT分段器（已就绪）"
   Goal = Dir2.Path & "\" & "分章"
End Sub

Private Sub File1_Click()
 Caption = "TXT分段器（已就绪）"
 Root = File1.Path & "\" & File1.FileName
End Sub

还望各位不吝赐教！