文本中有如下内容：

A  xx  xx  xx
A  xx  xx  xx
A  xx  xx  xx
A  xx  xx  xx
A  xx  xx  xx
B  xx  xx  xx
B  xx  xx  xx
B  xx  xx  xx
B  xx  xx  xx
B  xx  xx  xx
C  xx  xx  xx
D  xx  xx  xx
.   
.
.
.
共有 n 行  

我想要得是，根据第一列的字符归类，分别保存到以该字符命名的文本中，主要请教的是如何分类保存，请教斑竹和各位大虾

下面是一个例子，拿去用吧。不过，例子没有纠错功能，自已写哦
这个也是VB读取文件文件的一个例子，这两天问的人比较多

'假设原来的文件在工程目录下，并且文件名为“原文件.txt”
'假设写出的文件也在程序目录下

Private Sub Command1_Click()
Dim Num As Long
Dim NewNum As Long
Dim i As Integer
Dim Tmp() As String
Num = FreeFile
Open App.Path & "\原文件.txt" For Input As #Num
  Do While Not EOF(Num)
     Line Input #Num, tmpstr
       Tmp() = Split(tmpstr, " ")
       NewNum = FreeFile
          If Dir(Trim(Tmp(0)) & ".txt") <> "" Then
              Open App.Path & "\" & Trim(Tmp(0)) & ".txt" For Append As #NewNum
          Else
              Open App.Path & "\" & Trim(Tmp(0)) & ".txt" For Output As #NewNum
          End If
       Print #NewNum, tmpstr
       Close #NewNum
Loop
Close #Num

End Sub

谢谢“不说也罢”版主，，我试过了

不谢，注意及时结贴，免得重复看贴子