语句
Private Sub Command1_Click()
Dim Num As Long
Dim NewNum As Long
Dim i As Integer
Dim Tmp() As String
Num = FreeFile
Open "F.txt" For Input As #Num
  Do While Not EOF(Num)
     Line Input #Num, tmpstr
       Tmp() = Split(tmpstr, vbTab)
       NewNum = FreeFile
          If Dir(Trim(Tmp(0)) & ".txt") <> "" Then
              Open App.Path & "\" & Trim(Tmp(0)) & ".xls" For Append As #NewNum
                    Else
              Open App.Path & "\" & Trim(Tmp(0)) & ".xls" For Append As #NewNum
            End If
        Print #NewNum, "序号"
        Print #NewNum, tmpstr
       Close #NewNum
Loop
Close #Num
End Sub
原文本：
F5508    2009    10    01    00    10   
F5509    2009    10    01    00    10   
F5509    2009    10    01    00    20
想要文本如下：
序号
F5509    2009    10    1    0    10
F5509    2009    10    1    0    20
语句生成的其中的一个文本如下：
序号      
F5509    2009    10    1    0    10
序号
F5509    2009    10    01    00    20

本人要求：
每个文本只在第一行显示标题，而不是每隔一行显示一次
请各位大侠指教









[ 本帖最后由 菜鸟新上路 于 2010-11-23 20:46 编辑 ]

太简单了，这个下次一定要自己解决

Private Sub Command1_Click()
Dim Num As Long
Dim NewNum As Long
Dim i As Integer
Dim Tmp() As String
Num = FreeFile
Open "F.txt" For Input As #Num
  Do While Not EOF(Num)
     Line Input #Num, tmpstr
       Tmp() = Split(tmpstr, vbTab)
       NewNum = FreeFile
          If Dir(Trim(Tmp(0)) & ".txt") <> "" Then
              Open App.Path & "\" & Trim(Tmp(0)) & ".xls" For Append As #NewNum
                    Else
              Open App.Path & "\" & Trim(Tmp(0)) & ".xls" For Append As #NewNum
              Print #NewNum, "序号" '将这句放在这里，只有在新建立文本时，才在开头写"序号"

            End If
        Print #NewNum, tmpstr
       Close #NewNum
Loop
Close #Num
End Sub

收到的鲜花

• 菜鸟新上路 于 2011-01-24 16:10 送鲜花  3朵