| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 405 人关注过本帖
标题:请教分别保存数据时加标题?
只看楼主 加入收藏
菜鸟新上路
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2008-9-15
结帖率:60%
收藏
 问题点数:0 回复次数:1 
请教分别保存数据时加标题?
语句
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 编辑 ]
2010-11-23 20:39
lecaiskyy
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2010-12-5
收藏
得分:0 
太简单了,这个下次一定要自己解决

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
收到的鲜花
2010-12-05 12:55
快速回复:请教分别保存数据时加标题?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039879 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved