【VB.NET】這個json怎么解析？？用的是Newtonsoft.Json.dll

先如下程序集

10年積累的成都網站建設、網站設計經驗，可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你，你也不認識我。但先建設網站后付款的網站建設流程，更有四方臺免費網站建設讓你可以放心的選擇與我們合作。

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值了

VB.NET 中 HASHTABLE 的疑問

我們知道Hashtable 是線程安全的，可由多個讀取器線程或一個寫入線程使用。

它的特點是:通過節(jié)點的關鍵碼確定節(jié)點的存儲位置,即給定節(jié)點的關鍵碼k,通過一定的函數(shù)關系H(散列函數(shù)),得到函數(shù)值H(k),將此值解釋為該節(jié)點的存儲地址.

HashMap 與Hashtable很相似,但HashMap 是非同步(unsynchronizded)和可以以null為關鍵碼的.

我們知道在使用內存中的地址時是按照哪里有空閑的就使用哪里的。怎么可能一直由著我們輸入的順序給你開放地址呢？

VB.NET 獲取文件MD5值

Public Function md5(ByVal a As String) As String

Dim tempmd5 As System.Security.Cryptography.MD5 = New System.Security.Cryptography.MD5CryptoServiceProvider()

Dim bytResult() As Byte = tempmd5.ComputeHash(System.Text.Encoding.Default.GetBytes(a))

Dim strResult As String = BitConverter.ToString(bytResult)

strResult = strResult.Replace("-", "")

Return strResult

End Function

如果要計算文件的就把參數(shù)改成字節(jié)數(shù)組就可以了，然后獲取文件GetBytes（）傳進去就可以了。