| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 561 人关注过本帖
标题:这样用为什么不行呢 各位高手 谢谢
只看楼主 加入收藏
jiang8741
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-1-19
结帖率:66.67%
收藏
已结贴  问题点数:15 回复次数:5 
这样用为什么不行呢 各位高手 谢谢
Set TxtStr = fso.OpenTextFile(Filepath, ForReading, False, TristateFalse)
      arrStr = TxtStr.ReadAll
     File = Mid(arrStr, 0, 100)
搜索更多相关主题的帖子: 100 False 
2010-01-25 18:27
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:5 
你没有在工程里引用Microsoft Scripting Runtimer

菜单——工程——引用——Microsoft Scripting Runtimer打上勾——确定

Dim fso As New Scripting.FileSystemObject
Set txtstr = fso.OpenTextFile(Filepath, ForReading, False, TristateFalse)
      arrStr = txtstr.ReadAll
     File = Mid(arrStr, 1, 100)
     MsgBox File

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2010-01-25 18:39
jiang8741
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-1-19
收藏
得分:0 
回复 2楼 不说也罢
谢谢这位 不是没有调用 是因为mid的起始因为1。
还有,如果您有时间的话,我还有问题要请教一下:
      还是刚才那个例子,
  function X()
。。。
Set TxtStr = fso.OpenTextFile(Filepath, ForReading, False, TristateFalse)
      arrStr = TxtStr.ReadAll
     File = Mid(arrStr,1, 100)
。。。

   filepath是很大的txt文件的路径,
   我想问下,如何分步读取这个文件,每次读100,
   然后再调用这个 function ,从上次读取完结的位置继续读取
  小弟不甚感激!
2010-01-25 18:49
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
分步读取这个文件,每次读100,然后再调用这个 function ,从上次读取完结的位置继续读取

这个问题看似简单,其实稍显复杂的
1)如果带参数返回对应的值,每次调用都要读取文件,显然增大开销
2)Function一般只有一个返回值,如果必须要返回多个值,应当用到数组返回







===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2010-01-25 19:14
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:5 
如果按行读,或者每次都是读固定长度的行,而不是要求 每次都是读100字符 ,
那就可以
用 fso.readline 命令来处理,处理时.这个对象定义应该是放到函数外面,然后每次调用函数后不能释放这个对象

也就是相当于一个函数,拆成三部分.
原来一个函数是:
生成对象,读数据,释放对象结束

变成
生成对象一部分,
读数据一部分,
释放对象不部分.

在文档不是超过10M的情况下,不建议你使用这种的三部分情况.

授人于鱼,不如授人于渔
早已停用QQ了
2010-01-25 20:49
Alar30
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:10
帖 子:988
专家分:1627
注 册:2009-9-8
收藏
得分:5 
我也来学习
2010-01-26 09:10
快速回复:这样用为什么不行呢 各位高手 谢谢
数据加载中...
 
   



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

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