2015-03-03 49 views
1

我尝试在VBScript for PowerAMC中创建一个脚本。 我有一个奇怪的mystake。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 

我明白:“ÿþ<”仅适用于内容...但是如果我尝试读取一个不是由上一个函数创建的文件,它可以完美运行。

我的问题是什么?我的mystake是什么? 我认为要格式化的问题,但什么?

Thx求助!

+1

你可能会试图读取一个UTF-8编码的文件。看看http://stackoverflow.com/a/13855268/4584335 – Rubik 2015-03-03 11:18:29

回答

1

我认为这个问题是来自Unicode格式, 看看这个=>FileSystemObject - Reading Unicode Files

+0

我已经解决了这个问题: 设置oReadfile = FS.OpenTextFile(sFile,1,False,True)真正的参数修正了错误,THX! – pikameuh 2015-03-03 11:48:50

相关问题