| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7655 人关注过本帖
标题:求助:vb如何读取txt文件的内容,并写入excel文件
只看楼主 加入收藏
zhu_xl
Rank: 1
等 级:新手上路
帖 子:7
专家分:1
注 册:2009-9-6
收藏
 问题点数:0 回复次数:14 
求助:vb如何读取txt文件的内容,并写入excel文件
本人由于从交换机导出了一个LOG文件,但是很多参数,想通过VB读取里面的需要的参数到excel,怎样实现阿?
搜索更多相关主题的帖子: excel txt 文件 
2009-09-12 18:36
zhu_xl
Rank: 1
等 级:新手上路
帖 子:7
专家分:1
注 册:2009-9-6
收藏
得分:0 
没人回答阿,如果谁有相似的例子可以粘贴一个给我学习一下阿。期待?????
2009-09-13 09:12
lisida888
Rank: 4
来 自:湖北武汉
等 级:业余侠客
威 望:1
帖 子:176
专家分:267
注 册:2008-9-19
收藏
得分:0 
Dim A As String
Dim B As String
Private Sub Form_Load()
A = "c:\CAD.txt"
B = "c:\123.xls"
Open A For Binary As #1
A = Input(LOF(1), 1)
Close #1
Open B For Output As #2
Print #2, A
Close #2
End Sub

   全世界都颓废了,我拿什么对它说“不”!
2009-09-13 15:29
zhu_xl
Rank: 1
等 级:新手上路
帖 子:7
专家分:1
注 册:2009-9-6
收藏
得分:0 
以下是引用lisida888在2009-9-13 15:29的发言:

Dim A As String
Dim B As String
Private Sub Form_Load()
A = "c:\CAD.txt"
B = "c:\123.xls"
Open A For Binary As #1
A = Input(LOF(1), 1)
Close #1
Open B For Output As #2
Print #2, A
Close #2
 ...
如何高手指点把附件中的txt文件中的内容存放到EXCEL里,该附件中第一行前4个是输出对象名,后面的是参数名接着下面的行是每个对象输出的值。对象参数超过256列,现在想把这些参数提取出来存在EXCEL里,估计要存放成两个表,参能存完所有的参数。

data.rar (21.07 KB)
2009-09-14 21:33
lz2644
Rank: 2
等 级:论坛游民
帖 子:28
专家分:20
注 册:2009-8-27
收藏
得分:0 
附件乱七八糟的,你到底要怎么弄呢? 说得详细点!

可是呢,然后呢... 
2009-09-14 23:40
zhu_xl
Rank: 1
等 级:新手上路
帖 子:7
专家分:1
注 册:2009-9-6
收藏
得分:0 
数据其实不乱的,只是从交换机导出的时候有点每对齐,而且参数超过了256列,所以看出来很短乱
2009-09-16 07:00
zhu_xl
Rank: 1
等 级:新手上路
帖 子:7
专家分:1
注 册:2009-9-6
收藏
得分:0 
看上去很简单,就是把里面的参数提取出来存放在EXCEL上。第一行为参数名
2009-09-16 07:01
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
手动操作,不就行了?
2009-09-16 19:29
zhu_xl
Rank: 1
等 级:新手上路
帖 子:7
专家分:1
注 册:2009-9-6
收藏
得分:0 
数据量大,手动不是办法。
2009-09-17 21:14
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
定义了过多字段.
2009-09-19 09:42
快速回复:求助:vb如何读取txt文件的内容,并写入excel文件
数据加载中...
 
   



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

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