<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
      SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
      當前位置:
      首頁 > 編程開發 > .net教程 >
      • vb.net教程之文件操作

      • 2015-01-18 13:39 來源:未知
      文件操作(相關vb.net教程)
      文件分類:文本文件、二進制文件、隨機文件。
      一、文件操作的步驟為:
      1、為文件取得一個序號:
      fn=freefile()
      2、打開文件:
      fileopen(文件序號fn,文件名稱,打開方式openmode.input/output/append/Binary/ random)
      3、讀寫操作:Print/printline/Write/writeline/ input/lineinput/fileget/fileput
      4、關閉文件: fileclose(fn)
      一、文本文件的讀寫操作:
      向文件中寫入、讀出數據用如下方法:
      (一)Print/printline方法 / Write/writeline方法
      作用:向文本文件中寫入數據。
      在此操作之前需先打開文件,使用的方法是fileopen
      使用形式為:
      Fileopen(number,filename,openmode)
      Number—為打開文件的編號,它由freefile()獲取。
      Filename—打開的文件名
      Openmode—打開方式,共有:
      Openmode.append—打開文件并以追加的形式寫入,
      openmode.input—打開文件用以讀取數據。
      openmode.output—打開文件并以覆蓋的形式寫入
      應用實例:用printline方法向文件中寫入數[實驗報告36 ]
      應用見,用printline方法向文件中寫入數據,程序為:
      Public Class Form1
          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Dim n As Integer
              n = FreeFile()
              FileOpen(n, "d:\uu.txt", OpenMode.Output)
              PrintLine(n, "張三")
              PrintLine(n, "李四")
              PrintLine(n, "劉五")
              FileClose(n)
          End Sub
       
          Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              End
          End Sub
      End Class
      另有程序見,用Write寫入,只是它寫入數據時,字符串自動加又引號(“”)。
      (二)input/lineinput
      作用:從文本文件中讀出數據。
      Input在讀文件時一個數據項一個數據項的讀取,上面用print/write語句寫入的數據可以用input來讀取
       lineinput則是以行為單位進行讀取。
      在對文件進行讀時常用一個函數eof(n)用以測文件是否結束。
      函數lof(n)則是測量文件的長度,單位是字節。
      應用實例:用Write寫入然后用input讀出。[實驗報告37 ]
      見,用Write寫入然后用input讀出,程序為:
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Dim i, j As Integer
              i = FreeFile()
              FileOpen(i, "d:\tt.txt", OpenMode.Append)
              For j = 1 To 10
                  Write(i, j)
              Next
              FileClose(i)
          End Sub
       
          Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              End
          End Sub
       
          Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
              Dim n, x As Integer
              Dim s As String = ""
              n = FreeFile()
              FileOpen(n, "d:\tt.txt", OpenMode.Input)
              TextBox1.Text = ""
              Do While Not EOF(n)
                  Input(n, x)
                  s = s + Str(x) + " "
              Loop
              FileClose(n)
              TextBox1.Text = s
          End Sub
      說明:向文件中寫入與讀出數據時,存放變量的數據類型要一致,如上面寫入時的變量j,讀出時變量x都是整型。
      綜合應用一例:試開發一軟件以文本框為編輯器,完成文本文件的打開、保存及文字格式設置操作。[實驗報告38 ]
      除外也可以加上文字內容的編輯處理(復制、剪切、粘貼)、文字格式設置(字體、字號、顏色)。
      程序見,文本文件的讀寫操作一例,程序為:
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              OpenFileDialog1.Filter = "text file(*.txt)|*.txt|all file(*.*)|*.*"
              ‘ OpenFileDialog1.DefaultExt = "txt"
              SaveFileDialog1.Filter = "text file(*.txt)|*.txt|all file(*.*)|*.*"
              SaveFileDialog1.DefaultExt = "txt"
          End Sub
       
          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Dim fn As Integer
              Dim s As String = ""
              OpenFileDialog1.FileName = ""
              If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                  fn = FreeFile()
                  FileOpen(fn, OpenFileDialog1.FileName, OpenMode.Input)
                  Do While Not EOF(fn)
                      s = s + LineInput(fn) + vbCrLf
                  Loop
                  FileClose(fn)
                  TextBox1.Text = s
                  Me.Text = OpenFileDialog1.FileName
              End If
          End Sub
       
          Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              Dim fn As Integer
              Dim s As String = ""
              SaveFileDialog1.FileName = ""
              If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                  fn = FreeFile()
                  FileOpen(fn, SaveFileDialog1.FileName, OpenMode.Output)
                  Print(fn, TextBox1.Text)
                  FileClose(fn)
                  Me.Text = SaveFileDialog1.FileName
              End If
      End Sub
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
              End
          End Sub
       
          Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
              ColorDialog1.ShowDialog()
              TextBox1.ForeColor = ColorDialog1.Color
          End Sub
          Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
              FontDialog1.ShowDialog()
              TextBox1.Font = FontDialog1.Font
          End Sub
      說明:
       
      1、上面程序中的Print(fn, TextBox1.Text)語句可以換成write(fn,textbox1.text),效果是一樣的,只是在運行后生成的文件中數據加了雙引號。
      2、由上例可知,從文件中讀數據時可以以行為單位讀取,然后匯總成一串后整體顯示到文本框上,但從文本框向文件中寫入時,則可以整體進行。

      相關教程
      江苏快3 宁波 | 阳春 | 常德 | 德州 | 荆州 | 驻马店 | 湖北武汉 | 武安 | 澄迈 | 本溪 | 安岳 | 余姚 | 南京 | 天水 | 孝感 | 邹平 | 项城 | 武威 | 桂林 | 昌都 | 福建福州 | 雅安 | 江西南昌 | 吐鲁番 | 张北 | 扬州 | 连云港 | 孝感 | 新泰 | 东营 | 招远 | 咸阳 | 宜都 | 临汾 | 泗洪 | 安徽合肥 | 红河 | 陇南 | 新沂 | 张家界 | 达州 | 柳州 | 江苏苏州 | 天门 | 德宏 | 海丰 | 黔东南 | 牡丹江 | 莱州 | 新余 | 桓台 | 单县 | 塔城 | 仙桃 | 图木舒克 | 万宁 | 文山 | 神木 | 来宾 | 兴安盟 | 正定 | 伊春 | 抚顺 | 新疆乌鲁木齐 | 那曲 | 五家渠 | 三门峡 | 商洛 | 陵水 | 玉树 | 邵阳 | 霍邱 | 张家口 | 赣州 | 屯昌 | 淄博 | 江西南昌 | 贵州贵阳 | 通化 | 柳州 | 中卫 | 玉林 | 邢台 | 随州 | 肥城 | 黄南 | 抚州 | 库尔勒 | 阳泉 | 海西 | 河南郑州 | 中卫 | 金华 | 邢台 | 南京 | 宁波 | 陇南 | 深圳 | 铜川 | 遂宁 | 中山 | 海拉尔 | 齐齐哈尔 | 呼伦贝尔 | 日照 | 黑龙江哈尔滨 | 临猗 | 赵县 | 文昌 | 吉林长春 | 喀什 | 吉安 | 固原 |