vb.net取字節(jié),vb取字符串
VB.net的mid函數(shù)如何按照“字節(jié)數(shù)”來(lái)截取，而不用“字符數(shù)”，也就是漢字、全角符號(hào)要算2個(gè)字節(jié)
VB內(nèi)部采用Unicode編碼，在這種編碼格式下，任何字符（包括半角的字母、數(shù)字、符號(hào)以及全角的漢字、符號(hào)）都是占用兩個(gè)字節(jié)的。因此，Len("1111徐")的返回值是5，表示5個(gè)字符，而LenB("1111徐")的返回值是10，表示占用10個(gè)字節(jié)。
創(chuàng)新互聯(lián)建站主要從事成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)紅山,十余年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專(zhuān)業(yè),歡迎來(lái)電咨詢(xún)建站服務(wù):18982081108
要想按ANSI編碼格式來(lái)獲取字符串的字節(jié)數(shù)，必須這樣：
LenB(StrConv("1111徐", vbFromUnicode))
要注意哦，雖然返回值是6，但這個(gè)數(shù)與這個(gè)字符串在內(nèi)存中的實(shí)際占用字節(jié)數(shù)是不相符的哦！
請(qǐng)問(wèn)在 vb.net 中如何讀取一個(gè)文件的前幾個(gè)字節(jié)？
Dim?fs?As?New?System.IO.FileStream("D:\1.txt",?IO.FileMode.Open,?IO.FileAccess.Read)
Dim?buffer(3)?As?Char
Dim?re?As?New?System.IO.BinaryReader(fs)
re.Read(buffer,?0,?4)'表示從0位開(kāi)始讀4位
MsgBox(buffer)
VB.net 讀取文本文件？
1、實(shí)現(xiàn)上傳按鈕方法代碼。
2、判斷圖片對(duì)象是否為空代碼。
3、取得數(shù)據(jù)庫(kù)字段 dt.Rows(0)("Pic")方法代碼。
4、字節(jié)數(shù)組轉(zhuǎn)換為Image類(lèi)型方法代碼。
5、處理SQL中操作Image類(lèi)型方法代碼。
6、實(shí)現(xiàn)的上傳結(jié)果。
如何將VB.NET字符串轉(zhuǎn)換成字節(jié)數(shù)組
1、字節(jié)數(shù)組轉(zhuǎn)換為字符串
byte[] byBuffer = new byte[20];
String strRead = new String(byBuffer);
strRead = String.copyValueOf(strRead.toCharArray(), 0, byBuffer.length]);
2、字符串轉(zhuǎn)換成字節(jié)數(shù)組
byte[] byBuffer = new byte[200];
String strInput=abcdefg;
byBuffer= strInput.getBytes();
注意：如果字符串里面含有中文，要特別注意，在android系統(tǒng)下，默認(rèn)是UTF8編碼，一個(gè)中文字符相當(dāng)于3個(gè)字節(jié)，只有g(shù)b2312下一個(gè)中文相當(dāng)于2字節(jié)。這種情況下可采取以下辦法：
vb.net 二進(jìn)制讀取文件
VB.NET打開(kāi)二進(jìn)制文件用fileopen完成，打開(kāi)二進(jìn)制文件的形式為：openmode.binary
讀取二進(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
本文名稱(chēng)：vb.net取字節(jié),vb取字符串
本文鏈接：http://m.jiaotiyi.com/article/heggpc.html