VB.NET打開二進制文件用fileopen完成,打開二進制文件的形式為:openmode.binary
目前創(chuàng)新互聯建站已為上千家的企業(yè)提供了網站建設、域名、雅安服務器托管、網站托管運營、企業(yè)網站設計、玄武網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
讀取二進制文件用的是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
先用ADO.NET讀取數據,然后賦值即可,這個很容易的, 如果你要和某個控件的值做比對,就可以先賦值給控件,然后做比對。。。 例如,你讀取數據庫中的一條記錄,然后綁定到textbox上,和另外一個textbox里面的數字比較大校。
先如下程序集
Imports?System.Web.Script.Serialization
Function?StringToObject(content?As?String)?As?Object
Dim?jss?As?New?JavaScriptSerializer()
Return?jss.DeserializeObject(content)
End?Function
Dim?test1?As?Dictionary(Of?String,?Object)?=?StringToObject("{
"??Chr(34)??"objects"??Chr(34)??":?{
"??Chr(34)??"minecraft/sounds/entity/rabbit/attack2.ogg"??Chr(34)??":?{
"??Chr(34)??"hash"??Chr(34)??":?"??Chr(34)??"4b90ff3a9b1486642bc0f15da0045d83a91df82e"??Chr(34)??",
"??Chr(34)??"size"??Chr(34)??":?7268
},
"??Chr(34)??"minecraft/sounds/entity/shulker/close5.ogg"??Chr(34)??":?{
"??Chr(34)??"hash"??Chr(34)??":?"??Chr(34)??"e555fcece121879fe0becbada9d01dea27ab153d"??Chr(34)??",
"??Chr(34)??"size"??Chr(34)??":?5376
},
"??Chr(34)??"minecraft/lang/ga_IE.lang"??Chr(34)??":?{
"??Chr(34)??"hash"??Chr(34)??":?"??Chr(34)??"a108f19142820b3573a658d40950ba3317b65c15"??Chr(34)??",
"??Chr(34)??"size"??Chr(34)??":?142847
},
"??Chr(34)??"minecraft/sounds/mob/horse/leather.ogg"??Chr(34)??":?{
"??Chr(34)??"hash"??Chr(34)??":?"??Chr(34)??"20abaa7d3b0baa105bc6023d5308f1e5d76acc41"??Chr(34)??",
"??Chr(34)??"size"??Chr(34)??":?11577
}}
}
")
Dim?cc?As?Dictionary(Of?String,?Object)?=?DirectCast(test1.Values(0),?Dictionary(Of?String,?Object))
Dim?dd?=?cc.Values(0)("hash")
這樣就可以遍歷 hash值了
一般來講asp.net的服務器運行應用所用的賬號只有對應用所在目錄(放網頁的目錄)的訪問權限,你可以把文件存儲在應用所在目錄或者子目錄試試。
My.Computer.FileSystem.WriteAllText(Server.MapPath("") “\" Now.toString("yyyyMMdd") ".txt", "URL:XXXXXX查詢完成,匹配成功!" vbCrLf, true, System.Text.Encoding.Default)
一、二進制文件讀寫
1、寫二進制數據到指定目錄
==將barray字節(jié)數組中的數據創(chuàng)建在strFilename目錄文件下,存儲格式為二進制,False表示不添加,直接覆蓋創(chuàng)建。
2、從指定路徑下讀取二進制數據到數組
==將目錄中的文件讀取到barry字節(jié)數組中,即讀取二進制文件。
二、字符文件的讀寫
1、 將txtFile控件中的字符寫到srtFileName指定目錄,以創(chuàng)建方式。
2、從srtFileName目錄中的文件讀取到txtFile控件