vb.net的文本保存和读取代码

VB.NET文本存读优化

原创于 2019-09-11 17:30:12 发布 · 820 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #文本数据库

本文介绍了一种使用VB.NET进行文本保存和读取的方法，旨在通过将网站详情页内容存储为本地文件来减轻数据库ntext字段的存储压力，从而提高数据库访问和执行效率。

vb.net的文本保存和读取代码，用于保存网站详情页内容用.，这样就减轻数据库的ntext字段的存储压力，使数据库在访问，执行的时候更轻，更快。

  ''' <summary>
  ''' 读取内容
  ''' </summary>
  Function DataContent( ID As String, Optional Content As String = "") As String
    Try
      Dim Path As String = AppPath & "\UpFile\News\"
      
      If IO.Directory.Exists(Path) = False Then IO.Directory.CreateDirectory(Path) '文件夹是否存在，不存在而创建
      Path &= ID & ".txt"
      If Content <> "" Then '保存
        IO.File.WriteAllText(Path, Content, Encoding.UTF8)
      ElseIf IO.File.Exists(Path) = True Then '文本存在
        Return IO.File.ReadAllText(Path) '读取文本内容
      End If
    Catch ex As Exception
    End Try
    Return ""
  End Function

读取代码时候，Content 为空就是，Content 有内容表示要进行存储更新内容。