' 文件读取写选项
Public Const ForReading = 1
Public Const ForWriting = 2
Public Const ForAppending = 8

Class FileHelper
    ' ***************************************************************************
    ' 写入文件内容到指定文件。覆盖写入
    ' ***************************************************************************
    Function CreateFile(fileName, content)
        Dim objFSO,objTextFile
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objTextFile = objFSO.OpenTextFile(fileName, ForWriting, True)
        objTextFile.WriteLine (content)
        objTextFile.Close
    End Function
    
    ' ***************************************************************************
    ' 追加文件内容到指定文件。
    ' ***************************************************************************
    Function WriteFile(fileName, content)
        Dim objFSO,objTextFile
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objTextFile = objFSO.OpenTextFile(fileName, ForAppending)
        objTextFile.Write content
        objTextFile.Close
    End Function
   
    ' ***************************************************************************
    ' 从指定 csv 文件读取文件内容。
    ' ***************************************************************************
    Function ReadCsvFile(fileName)
        Dim objFSO,objTextFile,strNextLine,arrServiceList,arrRet,count,index
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objTextFile = objFSO.OpenTextFile(fileName, ForReading)
        ' 获得文件行数量
        count = 0
        Do Until objTextFile.AtEndOfStream
            count = count + 1
        Loop
        objTextFile.Close()
        arrRet = Array(count)
        objTextFile = objFSO.OpenTextFile(fileName, ForReading)
        index = 0
        Do Until objTextFile.AtEndOfStream
            strNextLine = objTextFile.Readline
            arrServiceList = Split(strNextLine , ",")
            arrRet(index) = arrServiceList
            index = index + 1
        Loop
       
        ReadCsvFile = arrRet
    End Function
   
    ' ***************************************************************************
    ' 删除指定文件。
    ' ***************************************************************************
    Function DeleteFile(fileName)
        Dim objFSO
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.DeleteFile(fileName)
    End Function
End Class