' 文件读取写选项
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
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
转载于:https://blog.51cto.com/qijinchao/263417