<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:40 來源:未知
      二進制文件的讀寫操作(相關vb.net教程)
      二進制文件的打開也用fileopen完成,只是打開二進制文件的形式為:openmode.binary
      讀取二進制文件用的是fileget方法,寫入二進制文件用的是fileput方法。
      應用實例:將一批隨機數保存在一個dat文件中,然后再將其提取到文本框中。[實驗報告 39]
      見,二進制文件的讀寫一批隨機數的存取,程序為:
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Dim x, i, fn As Integer
              Dim s As String = ""
              fn = FreeFile()
              FileOpen(fn, "d:\data.dat", OpenMode.Binary)
              For i = 1 To 8
                  x = Int(Rnd() * 100)
                  s = s + Str(x)
                  FilePut(fn, x)
              Next
              FileClose(fn)
              TextBox1.Text = s
          End Sub
       
          Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              Dim x, fn As Integer
              Dim s As String = ""
              fn = FreeFile()
              FileOpen(fn, "d:\data.dat", OpenMode.Binary)
              Do While Not EOF(fn)
                  FileGet(fn, x)
                  s = s + Str(x) + " "
              Loop
              FileClose(fn)
              TextBox1.Text = s
          End Sub
      說明:此時形成的文件data.dat如果打開查看,內容是亂碼。因為它是以二進制的形式存放的。即使將文件名換成da.txt,結果也是一樣不能查看內容。
      應用實例:演示二進制文件以字節為單位的復制過程。[實驗報告 40]
      見,二進制文件以字節為單位的復制過程,程序為:
      Public Class Form1
          Dim s As String
          Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              OpenFileDialog1.ShowDialog()
              s = OpenFileDialog1.FileName
              TextBox1.Text = s
          End Sub
       
          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Dim fa, fb As String
              Dim a, b, len, k As Integer
              Dim byt As Byte
              ' Try
              fa = TextBox1.Text : fb = TextBox2.Text
              a = FreeFile()
              FileOpen(a, fa, OpenMode.Binary)
              b = FreeFile()
              FileOpen(b, fb, OpenMode.Binary)
              len = LOF(a)
              For k = 1 To len
                  FileGet(a, byt)
                  FilePut(b, byt)
                  ProgressBar1.Value = 100 * k \ len
              Next
              FileClose(a)
              FileClose(b)
              ss = "文件復制完成!" & "文件長度為:" & len & "字節"
              MsgBox(ss, 16, "注意")      
       End
              'Catch ex As Exception
              'MsgBox(ex.Message, MsgBoxStyle.OkOnly, "error")
              ' End Try
          End Sub
      End Class
      相關教程
      江苏快3 长兴 | 菏泽 | 和县 | 黄南 | 十堰 | 临汾 | 桐乡 | 博尔塔拉 | 绍兴 | 库尔勒 | 宿州 | 澄迈 | 泰兴 | 辽宁沈阳 | 宣城 | 金昌 | 新疆乌鲁木齐 | 基隆 | 白城 | 咸宁 | 商洛 | 中卫 | 泉州 | 澳门澳门 | 临汾 | 安徽合肥 | 淮北 | 茂名 | 高密 | 威海 | 江西南昌 | 娄底 | 三亚 | 灵宝 | 瑞安 | 张家界 | 灌南 | 日土 | 滕州 | 汕头 | 怒江 | 阿克苏 | 营口 | 张家界 | 眉山 | 鄢陵 | 新疆乌鲁木齐 | 岳阳 | 广饶 | 西双版纳 | 大兴安岭 | 百色 | 神农架 | 项城 | 防城港 | 南安 | 江西南昌 | 大庆 | 伊犁 | 白山 | 屯昌 | 山南 | 玉林 | 日照 | 海东 | 东莞 | 恩施 | 上饶 | 龙岩 | 永康 | 库尔勒 | 张北 | 黄石 | 商洛 | 江西南昌 | 库尔勒 | 长兴 | 桓台 | 临沧 | 马鞍山 | 丹东 | 金坛 | 铜陵 | 六安 | 灌云 | 新泰 | 山东青岛 | 海拉尔 | 海南 | 阳泉 | 阿勒泰 | 文山 | 洛阳 | 醴陵 | 揭阳 | 海北 | 阿克苏 | 广西南宁 | 大庆 | 南京 | 泗阳 | 图木舒克 | 延安 | 海西 | 丽水 | 红河 | 黄山 | 单县 | 泰兴 | 文昌 | 晋中 | 吐鲁番 | 慈溪 |