VB.NET 怎么讀寫二進制文件，類似Open

本示例闡釋二進制文件的基本輸入和輸出（使用 BinaryReader、BinaryWriter 和 FileStream 類。 在如何創建日志文件標題下面有一個類似的主題。讀寫二進制信息使您可以創建和使用通過其他輸入和輸出方法無法訪問的文件。本示例還展示寫入非字符串數據，并展示二進制 I/O 的功能。

成都創新互聯服務項目包括九龍坡網站建設、九龍坡網站制作、九龍坡網頁制作以及九龍坡網絡營銷策劃等。多年來，我們專注于互聯網行業，利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等，向廣大中小型企業、政府機構等提供互聯網行業的解決方案，九龍坡網站推廣取得了明顯的社會效益與經濟效益。目前，我們服務的客戶以成都為中心已經輻射到九龍坡省份的部分城市，未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任！

盡管計算機上的文件可以不同的類型和文件存儲，但是，二進制格式是文件的較常用格式之一。此處對創建二進制文件的簡短介紹使用基類 BinaryReader 和 BinaryWriter 從文件獲取信息，并將信息放入文件。這些類中的每個類均封裝一個信息流，因此，在進一步操作之前，需要創建一個可用于來回寫信息的流。因為要創建文件，所以可使用 FileStream 來公開特定文件，在此情況下，如果該文件已存在，則可以修改該文件，或者如果該文件尚不存在，則可以創建該文件。在有 FileStream 之后，可以使用它來構造 BinaryReader 和 BinaryWriter

在讀入信息之后，可以對信息進行所需的任何操作。但是，在某些時候，您可能想要將信息寫回文件，因此需要 BinaryWriter。在本示例中，您將使用 Seek 方法將信息追加到文件結尾，因此，在開始寫入之前，請確保指向文件的指針位于文件結尾。在使用 BinaryWriter 寫入信息時有多個選項。因為 Write 方法有足夠的重載用于您能夠寫入的所有信息類型，所以，可以使用 Write 方法向您的編寫器封裝的流寫入任何標準形式的信息。本情況下，還可以使用 WriteString 方法向流中寫入長度預先固定的字符串。

VB Source: VB\ReadWrite.aspx

%@ Import Namespace="System.Text" %

%@ Import Namespace="System.IO" %

script language="VB" runat=server

Class TestBinary

Public Shared Function ReadFile(selection As String) As String

Dim output As StringBuilder = New StringBuilder()

Dim fs As FileStream = New FileStream("data.bin", FileMode.OpenOrCreate)

Dim r As BinaryReader = New BinaryReader(fs)

Try

r.BaseStream.Seek(0,SeekOrigin.Begin) ' 將文件指針設置到文件開始

' 因為不同數據類型之間的很多轉換結果都是不可解釋的，

' 所以當在其他類型與二進制數據之間進行轉換時，

' 必須捕捉可能引發的任何潛在的異常...

' 能夠正確讀取數據依賴于如何寫入信息...

' 這與寫日志文件時不同。

Do While r.BaseStream.Position r.BaseStream.Length ' 當未到達文件結尾時

Select Case selection

Case "Boolean"

output.Append( r.ReadBoolean().ToString() )

Case "String"

output.Append( r.ReadString() )

Case "Integer"

output.Append( r.ReadInt32().ToString() )

End Select

Loop

Finally

fs.Close()

End Try

return output.ToString()

End Function

Public Shared Function WriteFile(output As Object, selection As String) As String

Dim fs As FileStream = New FileStream("data.bin", FileMode.Create)

Dim w As BinaryWriter = New BinaryWriter(fs)

Dim strOutput As String = ""

w.BaseStream.Seek(0, SeekOrigin.End) ' 將文件指針設置到文件結尾

' 因為正在寫的信息可能不適合于所選擇用于寫入的特定樣式

' （例如，單詞“Hello”作為整數？），所以我們必須捕捉寫入

' 錯誤，并通知用戶未能執行該任務

Try

Select Case selection

Case "Boolean"

Dim b As Boolean = Convert.ToBoolean(output)

w.Write( b )

Case "String"

Dim s As String = Convert.ToString(output)

w.Write( s )

Case "Integer"

Dim i As Int32 = Convert.ToInt32(output)

w.Write(i)

End Select

Catch E As Exception

' 讓用戶知道未能寫入該信息

strOutput = "寫異常：" chr(13) _

"無法以所請求的格式寫入要寫入的信息。" _

chr(13) "請輸入嘗試寫入的數據類型的有效值"

End Try

fs.Close()

return strOutput

End Function

End Class

Sub btnAction_Click(src As Object, E As EventArgs)

Dim s As String = ""

' 寫出文件

s = TestBinary.WriteFile(txtInput.Text, lstDataIn.SelectedItem.Text)

If s = "" Then

Try

' 讀回信息，顯示信息...

txtOutput.Text = TestBinary.ReadFile(lstDataIn.SelectedItem.Text)

Catch Exc As Exception

' 讓用戶知道未能寫入信息

s = "讀異常：" chr(13) _

"無法以所請求的格式讀取要寫入的信息。" _

chr(13) "請輸入嘗試寫入的數據類型的有效值"

End Try

Else

txtOutput.Text = s

End If

End Sub

/script

html

head

link rel="stylesheet" href="intro.css"

/head

body style="background-color:f6e4c6"

form method=post runat="server"

p

table

tr

tdb

下面的示例使用 BinaryWriter 對象創建一個二進制文件，然后使用 BinaryReader 讀取該信息。/b可以選擇不同的對象來將所需的信息寫入文件

此演示用于強調您需要知道如何讀取已寫入的二進制文件。一旦以某種格式寫入數據，就只能以該格式讀取該信息。但是，可以將多種不同的數據類型寫入文件。在此演示中，輸入任意字符串并將它們作為字符串讀取，對于整型，僅輸入整型數值項（試試浮點數字，然后看看會發生什么...）；對于布爾型項，僅輸入詞“false”和“true”。

p

hr

/td

/tr

/table

asp:Table id="basetable" runat="server" border="0" cellspacing="0" cellpadding="5"

asp:tablerow

asp:tablecell verticalalign="top"

請選擇要保存到二進制文件的數據類型...

/asp:tablecell

asp:tablecell verticalalign="top"

asp:listbox id="lstDataIn" runat="server"

asp:listitemBoolean/asp:listitem

asp:listitem selected="true"String/asp:listitem

asp:listitemInteger/asp:listitem

/asp:listbox

/asp:tablecell

asp:tablecell verticalalign="top"

asp:button id="btnAction" onclick="btnAction_Click" Text="寫入/讀取文件" runat="server"/

/asp:tablecell

/asp:tablerow

請教高手，如何用vb實現“使用日志”？

很多種方法，最常用的一是用文本文件或數據庫記錄，二是調用API函數直接寫入系統日志或應用程序日志

VB.net實例

1 生成txt文件。

DimSaveFileDialog1AsNewSaveFileDialog()?'創建一個保存對話框

SaveFileDialog1.Filter?="txt?files?(*.txt)|*.txt"?'設置擴展名

IfSaveFileDialog1.ShowDialog()?=?System.Windows.Forms.DialogResult.OKThen?'如果確定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename,?Textbox1.Text,False)?'保存文本,False表示不追加文本，直接覆蓋其內容

EndIf

原文鏈接：

請問誰知道怎么用vb.net 打印.log日志文件， 用代碼寫的，謝謝了，急用

Dim sw As StreamWriter = New StreamWriter（“c:\xxxxx.log”， True） 'true是指以追加的方式打開指定文件

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

在vb.net 中,記錄系統錯誤日志這個功能怎么實現

Public Sub ShowError(strModule As String, strProcedure As String, lngErrorNumber As Long, strErrorDescription As String, showMsg As String)

'

'錯誤處理中心過程,寫數據庫日志表或寫日志文件

'

'strModule '模塊名稱

'strProcedure '過程名稱

'lngErrorNumber '錯誤ID號

'strErrorDescription '錯誤描述

'showMsg '是否顯示本過程內錯誤顯示信息(值:"Y" or "N")

'Error表結構(f001 (Date)發生時間, f002 (nvarchar50)模塊名稱, f003 (nvarchar50)過程名稱, f004 (nvarchar50)錯誤ID號, _

f005 (nvarchar300)錯誤描述,f006 (nvarchar50)版 本 號, f007 (nvarchar50)用戶名稱, f008 (nvarchar50)網卡地址

'ErrorCode表結構 f001 (nvarchar20)錯誤代碼, f002 (nvarchar255)錯誤信息, f003 (numeric9)錯誤級別

' 級別說明: '10'以下,一般錯誤,不影響操作

' '11-20',嚴重錯誤,不能操作,程序執行退出

On Error GoTo ErrorHandle

Dim strMessage As String

Dim strCaption As String

Dim sVer As String

Dim intLogFile As Integer

Dim Res As New ADODB.Recordset

Dim ResErrorCode As New ADODB.Recordset

Dim strSQL As String

'對應錯誤號,從ErrorCode表中找到對應的錯誤信息,0-1000 錯誤號保留給VB

DBOpen ResErrorCode, "select * from errorcode where f001='" lngErrorNumber "'"

If Not (ResErrorCode.EOF Or ResErrorCode.BOF) Then

strMessage = ResErrorCode.Fields("f002")

If ResErrorCode.Fields("f003") 10 Then

MsgBox "產生一個嚴重錯誤,可能影響到系統的可操作性,請立即聯系本系統開發人員!", vbCritical, "嚴重錯誤"

End If

End If

'寫錯誤入文件----------------------------

intLogFile = FreeFile

Open App.Path "\" strIni.LogFile For Append As #intLogFile

Print #intLogFile, "***錯誤"; VBA.Now "*** " "Version:" _

str$(App.Major) "." str$(App.Minor) "." Format(App.Revision, "0000")

Print #intLogFile, "Error: " lngErrorNumber

Print #intLogFile, "Description: " strErrorDescription

Print #intLogFile, "Module: " strModule

Print #intLogFile, "Procedure: " strProcedure

Print #intLogFile, ""

Close #intLogFile

If Len(strMessage) 2 Then strErrorDescription = strMessage

strMessage = "錯誤: " "(" lngErrorNumber ")" strErrorDescription vbCrLf vbCrLf _

"模塊:" strModule "; 過程:" strProcedure

sVer = Trim(str$(App.Major) "." str$(App.Minor) "." _

Format(App.Revision, "0000"))

strCaption = "錯誤 Version: " sVer

'寫錯誤入數據庫表--------------------------

strSQL = "insert into error(f001,f002,f003,f004,f005,f006,f007,f008) values(" _

DateFmtB VBA.Now DateFmtE "," _

IIf(Len(Trim(strModule)) = 0, "null", "'" strModule "'") "," _

IIf(Len(Trim(strProcedure)) = 0, "null", "'" strProcedure "'") "," _

IIf(Len(Trim(lngErrorNumber)) = 0, "null", "'" lngErrorNumber "'") "," _

IIf(Len(Trim(strErrorDescription)) = 0, "null", "'" Replace(strErrorDescription, "'", "") "'") "," _

IIf(Len(Trim(sVer)) = 0, "null", "'" sVer "'") "," _

IIf(Len(Trim(sUserName)) = 0, "null", "'" sUserName "'") "," _

IIf(Len(Trim(sVer)) = 0, "null", "'" EthernetNO "'") ")"

Cn.Execute strSQL

'是否顯示未知錯誤信息

If Trim(UCase(showMsg)) = "Y" Then MsgBox strMessage, vbCritical, strCaption

PROC_EXIT:

Set Res = Nothing

Set ResErrorCode = Nothing

Exit Sub

ErrorHandle:

Resume Next

分享標題：vb.net生成日志的簡單介紹
網站URL：http://vcdvsql.cn/article30/hiodso.html

成都網站建設公司_創新互聯，為您提供網站改版、域名注冊、App開發、用戶體驗、外貿網站建設、App設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯