Cacher is the code snippet organizer for pro developers

Asc(char) '字符转数字
ChrW(int)'ASCII数字转字符

'Byte()字节数组转String
Dim GetData() As Byte = {0, 0, 0, 0, 0} '声明一个５节字的byte
Encoding.UTF8.GetChars(GetData) 
'String转Byte()字节数组
Encoding.UTF8.GetBytes("DPB=""") 

‘批量转法
  Dim MyEn As Encoding = Encoding.GetEncoding("utf-8")
  MyEn.GetBytes("DPB=""")
  MyEn.GetBytes("VBS=""")
  
‘多维数组
 Dim arr(,) As String = ReadTxToDt(Filename)
  ‘GetUpperBound(0)获取第一维上限
  For i As Integer = 1 To arr.GetUpperBound(0) - 1