Private Function Conver_Hex(ByVal L As Long) As Array
網站建設哪家好,找成都創新互聯!專注于網頁設計、網站建設、微信開發、微信小程序開發、集團企業網站建設等服務項目。為回饋新老客戶創新互聯還提供了長嶺免費建站歡迎大家使用!
Dim str_L As String = Hex(L)
If str_L.Length \ 2 0 Then
str_L = "0" str_L
End If
Dim byt(str_L.Length / 2 - 1) As Byte
For i = 0 To str_L.Length / 2 - 1
byt(i) = Convert.ToByte(str_L.Substring(2 * i, 2), 16)
Next
Return byt
End Function
'下面是調用代碼
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim L As Double = 123456
Dim byt() As Byte = Conver_Hex(L)
End Sub
本文介紹了各種編碼類型,然后討論了將字符串轉換成字節數組的方法。編碼類型用二進制形式描述一個字符串變量有很多種方式。用來實現該功能的編碼對象依賴于你選擇的編碼。下面是程序開發人員經常使用的編碼類型:ASCII:將字符串中的每個字符使用7個比特編碼。這種編碼類型不能包含擴展的Uincode字符。Full Unicode(UTF-16):將字符串中的每個字符使用16個比特編碼。這種情況下對每個字符一個字節數組含有兩個字節。UTF-7:對于普通的ASCII字符使用7比特編碼,對于擴展字符使用多個7比特對編碼。這種編碼類型最常用于7比特協議中如mail等。UTF-8:對于普通的ASCII字符使用8比特編碼,對于擴展字符使用多個8比特對編碼。這種情況下對每個字符一個字節數組包含一個字節。
public Byte[] getphoto(string photopath) //參數圖片地址,主要用到的類有FileStream
{
string str = photopath;
FileStream file = new FileStream(str, FileMode.Open, FileAccess.Read);
Byte[] bytBLOBData = new Byte[file.Length];
file.Read(bytBLOBData, 0, bytBLOBData.Length);
file.Close();
return bytBLOBData;
}//這是定義函數..
VB.NET編程讀取txt文本文檔中的數據,并把數據保存為數組,代碼如下:
'寫配件文件
Private?Sub?saveIni(ByVal?filePath?As?String,?ByVal?str?As?String)
Dim?sw?As?StreamWriter?=?New?StreamWriter(filePath,?True)?'true是指以追加的方式打開指定文件
sw.WriteLine(str)
sw.Flush()
sw.Close()
sw?=?Nothing
End?Sub
'讀配件文件
Private?Function?readIni(ByVal?filePath?As?String)
Dim?iniDt?As?New?DataTable
iniDt.Columns.Add("text")
iniDt.Columns.Add("value")
Try
Dim?sr?As?StreamReader?=?New?StreamReader(filePath,?System.Text.Encoding.Default)
Dim?line?As?String?=?""
While?Not?sr.EndOfStream
Dim?str?=?sr.ReadLine()'讀取當前行
iniDt.Rows.Add(New?String()?{
str(0),
str(1)
})
End?While
sr.Close()
sr?=?Nothing
Catch?ex?As?Exception
End?Try
Return?iniDt
End?Function
本文題目:vb.net數據集轉數組 vb 字符串轉數組
網頁URL:http://m.kartarina.com/article14/hgeide.html
成都網站建設公司_創新互聯,為您提供云服務器、軟件開發、外貿建站、商城網站、外貿網站建設、微信公眾號
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯