nxhujiee / ◆VB.NET / VB.NET 读写文本文件,终于有点明白了

0 0

   

VB.NET 读写文本文件,终于有点明白了

2019-10-27  nxhujiee

 以前vb6的读写老写错,进入vb2010终于有些明白了。好,正戏开场:
主演: my.computer.filesystem
             system.io.streamReader
             system.io.streamWriter
配角:OpenFileDialog
            SaveFileDialog
剧情一般都是OpenFileDialog或SaveFileDialog跟龙套,提供路径和文件名后,由主演们操作。
先调戏一下,,小演一下:

  1. Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click  
  2.         If OpenFileDialog1.showdialog = DialogResult.OK Then  
  3.             My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, TextBox1.Text, False)  
  4.         End If  
  5. End Sub  



my命名空间具有快速访问特性,常见的:
my.computer     当前(本地)计算机硬件、软件、文件 信息。
my.application      当前应用程序的信息:标题、目录、版本号。
my.forms              当前项目窗体信息
my.resources      应用 程序资源的相关信息(只读),允许用户动态获取应用程序的资源。
my.setting            应用程序设置的相关程序。存储或设置
my.user                当前机器上激活的用户信息
my.webservices    当前机器激活的WEB服务信息,也可用于访问新的WEB服务器。
比如:my.user.name    当前机器上的用户名
            my.computer.clock.location  当前机器上的当地日期与时间
正式调戏:
对于my
  1. My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName, System.Text.ASCIIEncoding.Default)  
  2. My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, TextBox1.Text, False)  
注1:读时,容易乱码,加上后面参数部分
注2:写时false表示不追加,即覆盖式写入。

对于streamRead,StreamWriter

  1. Imports System.IO  
  2.   
  3.         Dim RT As StreamReader  
  4.         RT = New StreamReader(OpenFileDialog1.FileName, System.Text.ASCIIEncoding.Default)  
  5.         TextBox1.Text = RT.ReadToEnd() '读取全部  
  6.         Textbox1.Text=RT.ReadLine()                  '一行一行读,常配合do循环  
  7.         RT.Close()  
  8.   
  9.   
  10.   
  11.   
  12.         Dim WT As StreamWriter  
  13.         WT = New StreamWriter(SaveFileDialog1.FileName, False, System.Text.ASCIIEncoding.Default)  '非追加式写入  
  14.         WT.WriteLine(TextBox1.Text)         ‘一行一行地写入  
  15.         WT.Write(TextBox1.Text)             '字串流写入  
  16.         WT.Close()  
可以看出stream强大,my有限制,但my更快捷。
其实这两个主演有时假戏真做,常有“沟通”
  1. Dim WT As StreamWriter  
  2. WT = My.Computer.FileSystem.OpenTextFileWriter(SaveFileDialog1.FileName, False, System.Text.ASCIIEncoding.Default)  
  3.   
  4. '或:  
  5. Dim RT As StreamReader  
  6. RT = My.Computer.FileSystem.OpenTextFileReader(OpenFileDialog1.FileName, System.Text.ASCIIEncoding.Default)  
这样沟通后,steam就站上台前,my就退居幕后了。
广告:
textbox1.select(0,0) 表示光标具文本框首,不选择任何文本,第一个0表示选择的起始位置,第二个0表示选择的终点位置。                                     

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。如发现有害或侵权内容,请点击这里 或 拨打24小时举报电话:4000070609 与我们联系。

    猜你喜欢

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多