欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 金字塔读取txt文件，这个怎么写呢

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有3687人关注过本帖树形打印复制链接

主题：金字塔读取txt文件，这个怎么写呢
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		金字塔读取txt文件，这个怎么写呢  发帖心情 Post By：2016/1/22 14:55:47 [只看该作者]

 Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("D:\testfile.txt", True)
'Set tf = fso.GetFile("D:\testfile.txt")

tf.WriteLine("Testing 1, 2, 3.")
tf.WriteBlankLines(3)
tf.Write ("This is a test.")
tf.Close
论坛上有写的代码，有没有读的代码

读取文件的一行，咋弄呢
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2016/1/22 15:05:19 [只看该作者]

建议楼主自行百度下这类vba对象的使用，http://wenku.baidu.com/link?url=YRUOU9Z9OcSXKVu6iGND-s-WP9eSuXW9pnNLjUNYveuYT9hwvkShZ72_wWaNAPQWGYhwz6of_o0fQkloI4K6dfnO6hrz3B9LfTQHVn1UZH_&qq-pf-to=pcqq.c2c

类似的网上百度都有很多，您完全可以通过自己学习

[此贴子已经被作者于2016/1/22 15:12:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
bage
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：46 积分：0 威望：0 精华：0 注册：2015/12/10 13:37:45 		  发帖心情 Post By：2016/1/22 15:18:41 [只看该作者]

这些文档我都查过了，都只有写文件的例子，没有读取函数的列子呢。
我百度也查了，一直没找到读取文件的例子
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2016/1/22 16:27:24 [只看该作者]

这个帖子下面有read方法的，您点开来看既有

Set fso = CreateObject("Scripting.FileSystemObject")

Set sFile = fso.OpenTextFile("C:/testfile.txt", 1)

  application.MsgOut  sFile.ReadLine

   sFile.Close

Set fso = Nothing

Set sFile = Nothing
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.34375 秒, 5 次数据查询