'
函数名 :ReadFileInfo
' 函数功能:打开TXT文件
' 传入参数:sFilePath带有文件路径的文件名
' 返回值 :文件的内容
' 制作人 :zzz
' 制作日期:2006-11-15
' 说 明 :此函数需要有System.IO的引用
Private Function ReadFileInfo(ByVal sFilePath As String) As String
'取得文件的扩展名()
Dim FileKName As String, ReadFile As String
FileKName = sFilePath.Substring(sFilePath.LastIndexOf(".") + 1, 3)
If (FileKName <> "txt" And FileKName <> "TXT") Then
ReadFileInfo = "请选择文本文件!"
Else
'以默认编码的形式建立读数据流
Dim FileStream As System.IO.StreamReader
FileStream = New System.IO.StreamReader(sFilePath, System.Text.Encoding.Default)
ReadFile = FileStream.ReadToEnd()
ReadFileInfo = ReadFile
End If
End Function
' 函数功能:打开TXT文件
' 传入参数:sFilePath带有文件路径的文件名
' 返回值 :文件的内容
' 制作人 :zzz
' 制作日期:2006-11-15
' 说 明 :此函数需要有System.IO的引用
Private Function ReadFileInfo(ByVal sFilePath As String) As String
'取得文件的扩展名()
Dim FileKName As String, ReadFile As String
FileKName = sFilePath.Substring(sFilePath.LastIndexOf(".") + 1, 3)
If (FileKName <> "txt" And FileKName <> "TXT") Then
ReadFileInfo = "请选择文本文件!"
Else
'以默认编码的形式建立读数据流
Dim FileStream As System.IO.StreamReader
FileStream = New System.IO.StreamReader(sFilePath, System.Text.Encoding.Default)
ReadFile = FileStream.ReadToEnd()
ReadFileInfo = ReadFile
End If
End Function