[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]VBS中OpenTextFile读文本文件提示“缺少对象 string”

  1. Dim hellofs,worldfs
  2. Dim hello
  3. Set hellofs=CreateObject("Scripting.FileSystemObject")
  4. Set worldfs=hellofs.OpenTextFile("hello.txt",1,True)
  5. Set hello=worldfs.ReadAll
  6. worldfs.Close
复制代码
hello.txt
  1. hello
  2. good
  3. baby
复制代码
要类有类,要对象有对象,要方法有方法,怎么还是出错了?
1

评分人数

    • batman: 感谢给帖子标题标注[已解决]字样PB + 2

ReadAll方法返回的既不是对象也不是集合,只是字符串,当然不需要加set
1

评分人数

TOP

4# batman
我知道vb,vbs都不去区分大小写,之所以人为区分是为了记单词,且以后学那些区分大小写的语言时也不会不适应。

TOP

4# batman
Scripting.FileSystemObject
这个不是类吗?创建fso类的对象hellofs

TOP

本帖最后由 batman 于 2011-6-28 17:22 编辑

3# Hello123World
vbs并不区分大小写,但是为了以后学习js最好还是习惯大小写的方式。。。

你错在这一句Set hello=worldfs.ReadAll,这是直接接收文本字符对象的过程,不能再用set定义方法名了。。。

同时请搞清楚类、对象、事件、方法的概念哈,你这个代码里是没有类的。。。
***共同提高***

TOP

2# batman
不是说变量名一般小写吗?关键词才首字母大写。

TOP

书写要规范:
  1. Dim FSO, Worldfs, Hello
  2. Set FSO = CreateObject("Scripting.FileSystemObject")
  3. Set Worldfs=FSO.OpenTextFile("hello.txt")
  4. Hello = Worldfs.ReadAll()
  5. Worldfs.Close
  6. WScript.Echo Hello
复制代码
1

评分人数

***共同提高***

TOP

返回列表