| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1467 人关注过本帖
标题:请问生成CSV格式文件时,用什么符合分割字符,如生成EXCEL用 & vbtab & 分割 ...
只看楼主 加入收藏
菜鸟新上路
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2008-9-15
结帖率:60%
收藏
已结贴  问题点数:10 回复次数:4 
请问生成CSV格式文件时,用什么符合分割字符,如生成EXCEL用 & vbtab & 分割
请问生成CSV格式文件时,用什么符合分割字符,如生成EXCEL用 & vbtab & 分割
搜索更多相关主题的帖子: 字符 vbtab CSV EXCEL 
2010-04-02 13:02
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
用半角逗号分隔

Execl 也是用逗号分隔的.



授人于鱼,不如授人于渔
早已停用QQ了
2010-04-02 15:50
菜鸟新上路
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2008-9-15
收藏
得分:0 
回复 2楼 风吹过b
好象没有达到我要的效果,
我想要的是按照CSV表格,三个数据 分别生成于三列中,如:
13002 | 2 | 0 |

但是现在的结果是,三个数据都位于第一列中,如:
 | 13002 2 0 |

我的原程序代码如下,需要修改的为代码中的红色部分

Private Sub Command1_Click()
Dim Num As Long
Dim NewNum As Long
Dim i As Integer
Dim Tmp() As String
Num = FreeFile
Open "原文件.txt" For Input As #Num
  Do While Not EOF(Num)
     Line Input #Num, tmpstr
       Tmp() = Split(tmpstr, " ")
       NewNum = FreeFile
   Select Case Tmp(0)
    Case Is = 13001, 13003, 13004
          If Dir(Trim(Tmp(0)) & ".txt") <> "" Then
              Open App.Path & "\" & "air" & Trim(Tmp(0)) & -3 & ".csv" For Append As #NewNum
          Else
              Open App.Path & "\" & "air" & Trim(Tmp(0)) & -3 & ".csv" For Append As #NewNum
          End If
       Print #NewNum, Tmp(0), 10, Tmp(1)
    Case Else
          If Dir(Trim(Tmp(0)) & ".txt") <> "" Then
              Open App.Path & "\" & "air" & Trim(Tmp(0)) & -3 & ".csv" For Append As #NewNum
          Else
              Open App.Path & "\" & "air" & Trim(Tmp(0)) & -3 & ".csv" For Append As #NewNum
          End If
       Print #NewNum, Tmp(0), 10, Tmp(1)
    End Select
Close #NewNum
  
  Loop

Close #Num
End Sub
2010-04-03 16:15
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
Print #NewNum, Tmp(0), 10, Tmp(1)
写入时,要自己再写入分隔符。

 Print #NewNum, Tmp(0);","; 10;","; Tmp(1)

授人于鱼,不如授人于渔
早已停用QQ了
2010-04-03 17:39
菜鸟新上路
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2008-9-15
收藏
得分:0 
回复 4楼 风吹过b
呵呵,可以了,.谢谢
2010-04-04 13:42
快速回复:请问生成CSV格式文件时,用什么符合分割字符,如生成EXCEL用 & vbtab ...
数据加载中...
 
   



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

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