批处理之家 - Powered by Discuz! Board

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

作者: Hello123World 时间: 2011-6-28 17:02 标题: [已解决]VBS中OpenTextFile读文本文件提示“缺少对象 string”

Dim hellofs,worldfs
Dim hello
Set hellofs=CreateObject("Scripting.FileSystemObject")
Set worldfs=hellofs.OpenTextFile("hello.txt",1,True)
Set hello=worldfs.ReadAll
worldfs.Close
复制代码

hello.txt

hello
good
baby
复制代码

要类有类，要对象有对象，要方法有方法，怎么还是出错了？

作者: batman 时间: 2011-6-28 17:09

书写要规范：

Dim FSO, Worldfs, Hello
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Worldfs=FSO.OpenTextFile("hello.txt")
Hello = Worldfs.ReadAll()
Worldfs.Close
WScript.Echo Hello
复制代码

作者: Hello123World 时间: 2011-6-28 17:14

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

作者: batman 时间: 2011-6-28 17:19

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

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

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

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

作者: Hello123World 时间: 2011-6-28 19:27

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

作者: Hello123World 时间: 2011-6-28 19:33

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

作者: powerbat 时间: 2011-6-28 21:43

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

欢迎光临批处理之家 (http://bathome.net./)