我給你一個實例,你自己修改;

創新互聯公司主要從事成都網站設計、成都網站制作、網頁設計、企業做網站、公司建網站等業務。立足成都服務金口河,10余年網站建設經驗,價格優惠、服務專業,歡迎來電咨詢建站服務:18980820575
一,運行界面:
二,完整代碼:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'寫文件
Dim Myw As New FileStream(Application.StartupPath "\實驗文件.txt", FileMode.Create)
Dim MyB_Write As BinaryWriter = New BinaryWriter(Myw)
MyB_Write.Write(TextBox1.Text)
Myw.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'讀文件
Dim Myr As New FileStream(Application.StartupPath "\實驗文件.txt", FileMode.Open, FileAccess.Read)
Myr.Position = 0
Dim MyB_Read As New BinaryReader(Myr)
Dim MyFileLength As Integer = CInt(Myr.Length - Myr.Position) - 1
Dim MyFileData(MyFileLength) As Char
MyB_Read.Read(MyFileData, 0, MyFileLength)
Myr.Close()
TextBox2.Text = ""
Dim i As Integer
For i = LBound(MyFileData) To UBound(MyFileData)
TextBox2.Text = TextBox2.Text MyFileData(i)
Next
End Sub
End Class
StreamReader讀取網絡流時需要為他分配一定的系統資源,調用他的close()函數就是關閉這個讀取器并釋放系統分配給他的資源。
System.IO.StreamReader objread = new System.IO.StreamReader(path);
System.IO.Stream stream = objread.BaseStream;
objread.Close();
所有信息全在stream 里了
無法直接獲取,但可以采用變通的方法,思路:
把word轉換成二進制流前先用變量把拓展名和后綴獲取到(例如 var filename = “xxxx.doc”)
定義一個int變量記錄二進制流(word)的長度。并將該變量轉成4字節的btye[]數組
將第一步中獲取到的文件名字符串轉成byte[]數組。
將字節按照: word文件byte[]+文件名byte[]+word文件長度byte[](第二步)按照順序拼接成一個byte[]數組
還原:
1.首先讀取總byte[]的后4個字節,以確定文件二進制流的有效長度(假設為L).
2.將索引0至L 之間的字節數組按常規方式恢復成流.
3.將索引L至N-4之間的字節數組還原成字符串,即可獲得原文件名.
然后,愛咋咋地~~~~
dim filename as string = "文件名" Using myfilestream As New FileStream(FileName, FileMode.Open, FileAccess.Read)
Dim data() As Byte
ReDim data(myfilestream.Length - 1)
myfilestream.Read(data, 0, myfilestream.Length)
myfilestream.Close()
' data是你要的結果,為byte(), End Using
當前文章:vb.net中的流的簡單介紹
文章位置:http://www.yijiale78.com/article26/doddhjg.html
成都網站建設公司_創新互聯,為您提供Google、網站改版、響應式網站、企業建站、品牌網站建設、關鍵詞優化
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯