13518219792
一、二進制文件讀寫
公司主營業務：成都網站設計、網站建設、外貿網站建設、移動網站開發等業務。幫助企業客戶真正實現互聯網宣傳，提高企業的競爭能力。成都創新互聯公司是一支青春激揚、勤奮敬業、活力青春激揚、勤奮敬業、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創新互聯公司推出南安免費做網站回饋大家。
1、寫二進制數據到指定目錄
==將barray字節數組中的數據創建在strFilename目錄文件下，存儲格式為二進制，False表示不添加，直接覆蓋創建。
2、從指定路徑下讀取二進制數據到數組
==將目錄中的文件讀取到barry字節數組中，即讀取二進制文件。
二、字符文件的讀寫
1、 將txtFile控件中的字符寫到srtFileName指定目錄,以創建方式。
2、從srtFileName目錄中的文件讀取到txtFile控件
1、實現上傳按鈕方法代碼。
2、判斷圖片對象是否為空代碼。
3、取得數據庫字段 dt.Rows(0)("Pic")方法代碼。
4、字節數組轉換為Image類型方法代碼。
5、處理SQL中操作Image類型方法代碼。
6、實現的上傳結果。
VB.NET打開二進制文件用fileopen完成，打開二進制文件的形式為：openmode.binary
讀取二進制文件用的是fileget方法，寫入二進制文件用的是fileput方法。
應用示例：將一批隨機數保存在一個dat文件中，然后再將其提取到文本框中。
二進制文件的讀寫一批隨機數的存取，程序為：
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
1、新建一個標準的VB EXE工程，只有一個Form，Form上有兩個按鈕：Command1和Command2。
2、雙擊Command1添加如下代碼
Private Sub Command1_Click()
Dim strFile? ? ?As String
Dim intFile? ? ?As Integer
Dim strData? ? ?As String
strFile = "c:\學生成績.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8開始單步調試代碼，點擊Command1，進入單步調試功能，
4、多次按下F8或直接按下F5運行完成，就完成了讀取文本文件內容并輸出到立即窗口。
