Function ReadTextFile(ByVal FilePathName As String) As String
'读取整个文本文件，支持UTF-8 和 ANSI

Function writeUTF8File(ByVal sHTML As String, ByVal sFilePathName As String, Optional isOverWrite As Boolean = True) As Integer
'把文件输出为UTF8的文本文件或者xml文件