Question

我尝试在PowerBSC的VBScript中创建一个脚本。我有一个奇怪的错误。

我检查所有元素以制作包含内容的文件（XSD文件）：

private Sub writeInFile(pathFolder, pathFile, val)
  Output "WriteInFile["&pathFolder&pathFile&"]"
  Dim fso, MyFile
  Set fso = CreateObject("Scripting.FileSystemObject")

  Set MyFile = fso.CreateTextFile(pathFolder&pathFile, true)
  If (fso.FileExists(pathFolder&pathFile)) Then
    MyFile.WriteLine(val)
  Else
    ouput "File can't be create"
  End If

  MyFile.Close
  end Sub

文件存在，内容很好:) 但如果我试着用它来阅读：

public Function readFile(path)
  'Declare variables
  Dim objFSO, objReadFile, contents

  'Set Objects
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objReadFile = objFSO.OpenTextFile(path, 1, false)

  'Read file contents
  contents = objReadFile.ReadAll

  'Close file
  objReadFile.close


  'Cleanup objects
  Set objFSO = Nothing
  Set objReadFile = Nothing


  readFile = contents
   End Function

我明白了：“ÿþ＆lt;”仅限内容...但如果我尝试读取不是由前一个函数创建的文件，它将完美运行。

我的问题是什么？我的什么是mystake？我想格式化问题，但是什么？

寻求帮助！

Answer 1

我认为问题来自Unicode格式，看看这个=＆gt; FileSystemObject - Reading Unicode Files

VBScript创建并打开一个新文件

1 个答案: