| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 磁盘文件编程 >> 实例分析正文
最新推荐 更多内容
WriteAllLines方法在文本文件中写入多行的实例
WriteAllLines方法在文本文件中写入多行的实例
作者:Ilu    来源:乐博网整理     更新时间:2009-12-2

WriteAllLines方法在文本文件中写入多行的实例

分类:VB.Net

乐博网lob.cn提示:调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

代码如下:

' 导入命名空间
Imports System.IO
Public Class LOB

    Private Sub btnCreateFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateFile.Click
        txtResult.Clear()
        Dim myTextFilePath As String = "d:\乐博网.txt"

        ' 检查文件是否存在,如果存在的话,询问使用者是否要覆盖它。
        If File.Exists(myTextFilePath) Then
            If MessageBox.Show( _
                 "文件已经存在,您要覆盖它吗?", _
                 "乐博网提示", _
                 MessageBoxButtons.YesNo, _
                 MessageBoxIcon.Warning) = Windows.Forms.DialogResult.No Then
                ' 跳离程序并返回。
                Return
            End If
        End If

        Try
            Dim myText(6) As String
            myText(0) = "1.乐博网的域名是www.lob.cn。"
            myText(1) = "2..Net爱好者的QQ交流群是40797788。"
            myText(4) = Environment.NewLine
            myText(5) = "建立日期时间:" & DateTime.Now.ToString

            ' 使用 File 类别的 WriteAllLines 方法来建立一个文本文件并写入多行数据。
            File.WriteAllLines(myTextFilePath, myText, System.Text.Encoding.UTF8)

            ' 读取并显示出新建立之文字文件的内容。
            txtResult.Text = File.ReadAllText(myTextFilePath)
        Catch ex As Exception
            MessageBox.Show( _
            "文件无法建立、写入或读取。" + Environment.NewLine + _
            "请确认文件名称是否正确," + _
            "以及您是否拥有建立、写入或读取权限。" + _
            Environment.NewLine + Environment.NewLine + "乐博网提示异常:" + ex.Message)
        End Try
    End Sub

    Private Sub txtResult_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtResult.TextChanged

    End Sub

    Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    读取大文件(VB2010实例)
    读取文件(VB2010实例)
    文件移动(VB2010实例)
    获取驱动器磁盘信息(VB2010实例)
    目录搜索和目录查找(VB2010实例)
    文件搜索和文件查找(VB2010实例)
    选择文件目录(VB2010实例)
    删除文件(VB2010实例)
    复制文件(VB2010实例)
    复制目录(VB2010实例)
    临时文件暂存盘的实例
    以只读模式打开文件的实例
    OpenFileDialog属性的实例
    图形文件的数据读写操作实例
    在文本文件中写入多行文字的实例
    AppendAllText方法把文字内容添加到文本文件的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]