TXT文件读取

最新推荐文章于 2024-11-12 14:54:23 发布

lzh83950530

最新推荐文章于 2024-11-12 14:54:23 发布

阅读量291

点赞数

分类专栏：我的代码库文章标签： string exception function sql

本文链接：https://blog.csdn.net/lzh83950530/article/details/4708930

版权

我的代码库专栏收录该内容

7 篇文章 0 订阅

订阅专栏

''' <summary> ''' SQL文读取 ''' </summary> ''' <param name="sqlFilePath">sql文件路径</param> ''' <returns>SQL文</returns> ''' <remarks></remarks> Public Shared Function ReadSqlText(ByVal sqlFilePath As String) As String Dim strLine As String = "" Dim sbSql As New StringBuilder("") Dim reader As StreamReader = Nothing Try '选择相应的文件编码，不然会乱码 reader = New StreamReader(sqlFilePath, Encoding.Unicode) While reader.EndOfStream = False strLine = reader.ReadLine() sbSql.Append(strLine) sbSql.Append(vbNewLine) End While Return sbSql.ToString Catch ex As Exception Throw ex Finally If Not reader Is Nothing Then reader.Close() End If End Try End Function