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)
x = Int(Rnd() * 100)
s = s + Str(x)
FilePut(fn, x)
Next
FileClose(fn)
TextBox1.Text = s
End Sub
Dim x, fn As Integer
Do While Not EOF(fn)
FileGet(fn, x)
s = s + Str(x) + " "
Loop
Dim TestArray() As String = Split(TextBox1.Text)
Dim hexBytes() As Byte
ReDim hexBytes(TestArray.Length - 1)
Dim i As Integer
For i = 0 To TestArray.Length - 1
hexBytes(i) = Val("h" TestArray(i))
SerialPort.Write(hexBytes, 0, hexBytes.Length)
open函数用来打开一个文件,其调用的一般形式为：
文件指针名=fopen(文件名,使用文件方式);
其中,
"文件指针名"必须是被说明为FILE
类型的指针变量；
"文件名"是被打开文件的文件名；
"使用文件方式"是指文件的类型和操作要求.
"文件名"是字符串常量或字符串数组.
例如：
FILE
*fp；
fp=("file
a","r");
其意义是在当前目录下打开文件file
a,只允许进行"读"操作,并使fp指向该文件.
又如：
*fphzk
"中的第一个表示转义字符,第二个表示根目录.
文件使用方式
意义
"rt"
只读打开一个文本文件,只允许读数据
"wt"
只写打开或建立一个文本文件,只允许写数据
"at"
追加打开一个文本文件,并在文件末尾写数据
"rb"
只读打开一个二进制文件,只允许读数据
"wb"
只写打开或建立一个二进制文件,只允许写数据
"ab"
追加打开一个二进制文件,并在文件末尾写数据
"rt+"
读写打开一个文本文件,允许读和写
"wt+"
读写打开或建立一个文本文件,允许读写
"at+"
读写打开一个文本文件,允许读,或在文件末追加数据
"rb+"
读写打开一个二进制文件,允许读和写
"wb+"
读写打开或建立一个二进制文件,允许读和写
"ab+"
读写打开一个二进制文件,允许读,或在文件末追加数据
对于文件使用方式有以下几点说明：
文件使用方式由r,w,a,t,b,+六个字符拼成,各字符的含义是：
r(read):
读
w(write):
写
a(append):
追加
t(text):
文本文件,可省略不写
b(banary):
二进制文件
+:
读和写
凡用"r"打开一个文件时,该文件必须已经存在,且只能从该文件读出.
用"w"打开的文件只能向该文件写入.若打开的文件不存在,则以指定的文件名建立该文件,若打开的文件已经存在,则将该文件删去,重建一个新文件.
若要向一个已存在的文件追加新的信息,只能用"a"方式打开文件.但此时该文件必须是存在的,否则将会出错.
在打开一个文件时,如果出错,fopen将返回一个空指针值NULL.在程序中可以用这一信息来判别是否完成打开文件的工作,并作相应的处理.所以呢常用以下程序段打开文件：
{
printf("\nerror
on
open
file
第一段：二进制文件读写
①.、写二进制数据到指定目录
==将barray字节数组中的数据创建在strFilename目录文件下,存储格式为二进制,False表示不添加,直接覆盖创建.
==将目录中的文件读取到barry字节数组中,即读取二进制文件.
第二段：字符文件的读写
①.、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式.
'此函数用于十进制到二进制
Private Function Bin(Number As Long) As Long
Dim Div_value As String
Do
Bin = Number Div_value
End Function
'此函数用于二进制到十进制
Private Function value_Bin(Number As Long) As Long
Dim Temp_value As Long, Cyc As Long
For Cyc = 0 To Len(Str(Number))
If Cyc = Len(Str(Number)) Then
value_Bin = Temp_value + Val(Mid(Str(Number), Cyc, 1))
Exit For
End If
Next Cyc
'====写入以上函数后转值操作：
'十进制到十六进制：Hex(十进制数值)
'十进制到八进制：Oct(十进制数值)
'十进制到二进制：Bin(十进制数值)
'二进制到十进制：value_Bin(二进制数值)
'八进制到十进制：Val("O" 八进制数值)
'十六进制到十进制：Val("H" 十六进制数值)
比如
msgbox DEC_to_BIN(10)
就会返回一个10转换为十进制后的结果
或者简单点就用
VB自带函数：
十进制转八进制：Oct(num)
十六进制转八进制：oct("H" num)
十进制转十六进制：hex(num)
八进制转十六进制：hex("O" num)
十六进制转换为十进制
Dim str As String
Text10.Text = CLng("H" str)
numHex =Integer.Parse(strHex, Globalization.NumberStyles.AllowHexSpecifier)
或
numHex = Integer. Parse("H" strHex)