VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • vb.net的文本保存和读取代码

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 有内容表示要进行存储更新内容。



相关教程