vb.net 二進(jìn)制讀取文件

VB.NET打開(kāi)二進(jìn)制文件用fileopen完成，打開(kāi)二進(jìn)制文件的形式為：openmode.binary

創(chuàng)新互聯(lián)建站主要從事網(wǎng)站建設(shè)、成都做網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)松陽(yáng),10余年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專(zhuān)業(yè),歡迎來(lái)電咨詢(xún)建站服務(wù):18980820575

讀取二進(jìn)制文件用的是fileget方法，寫(xiě)入二進(jìn)制文件用的是fileput方法。

應(yīng)用示例：將一批隨機(jī)數(shù)保存在一個(gè)dat文件中，然后再將其提取到文本框中。

二進(jìn)制文件的讀寫(xiě)一批隨機(jī)數(shù)的存取，程序?yàn)椋?/p>

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

如何用vb.net向串口發(fā)送十六位進(jìn)制數(shù)據(jù)

下面代碼就是將文本框中以一個(gè)空格隔開(kāi)的十六進(jìn)制轉(zhuǎn)為字節(jié)的代碼，文本框中數(shù)字格式為：01 02 03

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))

Next

SerialPort.Write(hexBytes, 0, hexBytes.Length)

vb.net如何讀寫(xiě)二進(jìn)制文件？ 有各種類(lèi)型的變量

open函數(shù)用來(lái)打開(kāi)一個(gè)文件，其調(diào)用的一般形式為：

文件指針名=fopen(文件名,使用文件方式);

其中，

“文件指針名”必須是被說(shuō)明為FILE

類(lèi)型的指針變量；

“文件名”是被打開(kāi)文件的文件名；

“使用文件方式”是指文件的類(lèi)型和操作要求。

“文件名”是字符串常量或字符串?dāng)?shù)組。

例如：

FILE

*fp；

fp=("file

a","r");

其意義是在當(dāng)前目錄下打開(kāi)文件file

a，只允許進(jìn)行“讀”操作，并使fp指向該文件。

又如：

FILE

*fphzk

fphzk=("c:\\hzk16","rb")

其意義是打開(kāi)C驅(qū)動(dòng)器磁盤(pán)的根目錄下的文件hzk16，這是一個(gè)二進(jìn)制文件，只允許按二進(jìn)制方式進(jìn)行讀操作。兩個(gè)反斜線“\\

”中的第一個(gè)表示轉(zhuǎn)義字符，第二個(gè)表示根目錄。

使用文件的方式共有12種，下面給出了它們的符號(hào)和意義。

文件使用方式

意義

“rt”

只讀打開(kāi)一個(gè)文本文件，只允許讀數(shù)據(jù)

“wt”

只寫(xiě)打開(kāi)或建立一個(gè)文本文件，只允許寫(xiě)數(shù)據(jù)

“at”

追加打開(kāi)一個(gè)文本文件，并在文件末尾寫(xiě)數(shù)據(jù)

“rb”

只讀打開(kāi)一個(gè)二進(jìn)制文件，只允許讀數(shù)據(jù)

“wb”

只寫(xiě)打開(kāi)或建立一個(gè)二進(jìn)制文件，只允許寫(xiě)數(shù)據(jù)

“ab”

追加打開(kāi)一個(gè)二進(jìn)制文件，并在文件末尾寫(xiě)數(shù)據(jù)

“rt+”

讀寫(xiě)打開(kāi)一個(gè)文本文件，允許讀和寫(xiě)

“wt+”

讀寫(xiě)打開(kāi)或建立一個(gè)文本文件，允許讀寫(xiě)

“at+”

讀寫(xiě)打開(kāi)一個(gè)文本文件，允許讀，或在文件末追加數(shù)據(jù)

“rb+”

讀寫(xiě)打開(kāi)一個(gè)二進(jìn)制文件，允許讀和寫(xiě)

“wb+”

讀寫(xiě)打開(kāi)或建立一個(gè)二進(jìn)制文件，允許讀和寫(xiě)

“ab+”

讀寫(xiě)打開(kāi)一個(gè)二進(jìn)制文件，允許讀，或在文件末追加數(shù)據(jù)

對(duì)于文件使用方式有以下幾點(diǎn)說(shuō)明：

1)

文件使用方式由r,w,a,t,b，+六個(gè)字符拼成，各字符的含義是：

r(read):

讀

w(write):

寫(xiě)

a(append):

追加

t(text):

文本文件，可省略不寫(xiě)

b(banary):

二進(jìn)制文件

+:

讀和寫(xiě)

2)

凡用“r”打開(kāi)一個(gè)文件時(shí)，該文件必須已經(jīng)存在，且只能從該文件讀出。

3)

用“w”打開(kāi)的文件只能向該文件寫(xiě)入。若打開(kāi)的文件不存在，則以指定的文件名建立該文件，若打開(kāi)的文件已經(jīng)存在，則將該文件刪去，重建一個(gè)新文件。

4)

若要向一個(gè)已存在的文件追加新的信息，只能用“a”方式打開(kāi)文件。但此時(shí)該文件必須是存在的，否則將會(huì)出錯(cuò)。

5)

在打開(kāi)一個(gè)文件時(shí)，如果出錯(cuò)，fopen將返回一個(gè)空指針值NULL。在程序中可以用這一信息來(lái)判別是否完成打開(kāi)文件的工作，并作相應(yīng)的處理。因此常用以下程序段打開(kāi)文件：

6)

if((fp=fopen("c:\\hzk16","rb")==NULL)

{

printf("\nerror

on

open

c:\\hzk16

file

vb.net二進(jìn)制怎么讀取文件？

一、二進(jìn)制文件讀寫(xiě)

1、寫(xiě)二進(jìn)制數(shù)據(jù)到指定目錄

==將barray字節(jié)數(shù)組中的數(shù)據(jù)創(chuàng)建在strFilename目錄文件下，存儲(chǔ)格式為二進(jìn)制，F(xiàn)alse表示不添加，直接覆蓋創(chuàng)建。

2、從指定路徑下讀取二進(jìn)制數(shù)據(jù)到數(shù)組

==將目錄中的文件讀取到barry字節(jié)數(shù)組中，即讀取二進(jìn)制文件。

二、字符文件的讀寫(xiě)

1、 將txtFile控件中的字符寫(xiě)到srtFileName指定目錄,以創(chuàng)建方式。

2、從srtFileName目錄中的文件讀取到txtFile控件

VB.NET，八/十六進(jìn)制轉(zhuǎn)十進(jìn)制的函數(shù)，怎么轉(zhuǎn)?

'此函數(shù)用于十進(jìn)制到二進(jìn)制

Private Function Bin(Number As Long) As Long

Dim Div_value As String

Do

Div_value = (Number Mod 2) Div_value

Number = Int(Number / 2)

Loop Until Number 2

Bin = Number Div_value

End Function

'此函數(shù)用于二進(jìn)制到十進(jìn)制

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

If Cyc 0 Then Temp_value = (Temp_value + Val(Mid(Str(Number), Cyc, 1))) * 2

Next Cyc

End Function

'====寫(xiě)入以上函數(shù)后轉(zhuǎn)值操作：

'十進(jìn)制到十六進(jìn)制：Hex(十進(jìn)制數(shù)值)

'十進(jìn)制到八進(jìn)制：Oct(十進(jìn)制數(shù)值)

'十進(jìn)制到二進(jìn)制：Bin(十進(jìn)制數(shù)值)

'二進(jìn)制到十進(jìn)制：value_Bin(二進(jìn)制數(shù)值)

'八進(jìn)制到十進(jìn)制：Val("O" 八進(jìn)制數(shù)值)

'十六進(jìn)制到十進(jìn)制：Val("H" 十六進(jìn)制數(shù)值)

比如

msgbox DEC_to_BIN(10)

就會(huì)返回一個(gè)10轉(zhuǎn)換為十進(jìn)制后的結(jié)果

或者簡(jiǎn)單點(diǎn)就用

VB自帶函數(shù)：

十進(jìn)制轉(zhuǎn)八進(jìn)制：Oct(num)

十六進(jìn)制轉(zhuǎn)八進(jìn)制：oct("H" num)

十進(jìn)制轉(zhuǎn)十六進(jìn)制：hex(num)

八進(jìn)制轉(zhuǎn)十六進(jìn)制：hex("O" num)

十六進(jìn)制轉(zhuǎn)換為十進(jìn)制

Dim str As String

str = Text2.Text

Text10.Text = CLng("H" str)

vb.net 如何將十六進(jìn)制字符串轉(zhuǎn)換為十六進(jìn)制變量

numHex =Integer.Parse(strHex, Globalization.NumberStyles.AllowHexSpecifier)

或

numHex = Integer. Parse("H" strHex)

本文標(biāo)題：vb.net數(shù)據(jù)進(jìn)制,vbnet操作數(shù)據(jù)庫(kù)
網(wǎng)站鏈接：http://vcdvsql.cn/article26/hecdjg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信公眾號(hào)、網(wǎng)站建設(shè)、App設(shè)計(jì)、靜態(tài)網(wǎng)站、定制開(kāi)發(fā)、網(wǎng)站維護(hù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)