使用 Option Explicit 声明VBScript 变量！

xjmen

由于希望 在VBscript 脚本里面 在多个Function 之间 共享变量，所以用 Option Explicit  声明了 变量：
Option Explicit
Dim FileContents         '// 文件数据

使用：

Option Explicit
Dim FileContents         '// 文件数据

Public Function A()   
  'Content = "Neoware"
   A = B
End Function
   
     
Public Function B()
  B =Content
End Function

声明的 函数A 在Action里调用 就能正确的返回 “Neoware”的 字符串，可是使用：


Option Explicit

Dim Content         '// 文件数据

Public Function A()   
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f ,str,Content
   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.OpenTextFile("c:\console_en.txt", ForReading)

   Content = f.ReadAll
   A = B
End Function
      
Public Function B()
  B =Content
End Function

这个脚本的 调用结果 返回的是空值！！！

我尝试过 在函数间 传递 这个 文件里读出来的 参数，没有问题，因此不应该是变量 溢出造成的，VBScript的帮助里也说 string 变量可以放下很大的字符串！ 那么这个问题是怎么引起的，怎么解决呢？？

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

问题解决了，原因是我在后面的这个脚本里重复声明了一个 Content变量，它把全局的Constent给冲掉了！！！

Dim fso, f ,str,Content

,不过 还是希望这个体帖子给大家一个参考！

[ 本帖最后由 xjmen 于 2006-1-24 11:29 编辑 ]

lovedemon

跟贴,关注

xjmen

我在后面的这个脚本里重复声明了一个 Content变量，它把全局的Constent给充掉了！！！



Dim fso, f ,str,Content

不过 还是希望他能给大家一个参考！

hongtang

使用环境变量 即可
在多个ACTION或function中实现共享变量

hongtang

Option Explicit是强制定义 用它怎么可能声明变量?