討論區快速選單
知識庫快速選單
用最高效的方式管理MySQL 全方位AWS解決方案完整培訓 討論區最近新進100則主題
[ 回上頁 ] [ 討論區發言規則 ]
字串至位元轉換
更改我的閱讀文章字型大小
作者 : ktc(ktc) 人氣指數超過10000點
[ 貼文 83 | 人氣 10766 | 評價 60 | 評價/貼文 0.72 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2016/12/16 上午 06:54:53
我欲轉換字串(string)為位元(byte),由網路取得一範例如下
但當我要輸入一中文(盤字)欲轉換時出現 執行階段錯誤 '6' 溢位
而偵錯出現在 bArray(lPntr) = Asc(Mid$(strInput, lPntr + 1, 1)) 這行

Public Function StrToByte(strInput As String) As Byte()
    Dim lPntr As Long
    Dim bTmp() As Byte
    Dim bArray() As Byte
    If Len(strInput) = 0 Then Exit Function
    ReDim bTmp(LenB(strInput) - 1) 'Memory length
    ReDim bArray(Len(strInput) - 1) 'String length
    CopyMemory bTmp(0), ByVal StrPtr(strInput), LenB(strInput)
    'Examine every second byte
    For lPntr = 0 To UBound(bArray)
     If bTmp(lPntr * 2 + 1) > 0 Then
     bArray(lPntr) = Asc(Mid$(strInput, lPntr + 1, 1))
     Else
     bArray(lPntr) = bTmp(lPntr * 2)
     End If
    Next lPntr
    StrToByte = bArray
End Function

作者 : ktc(ktc) 人氣指數超過10000點
[ 貼文 83 | 人氣 10766 | 評價 60 | 評價/貼文 0.72 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2016/12/16 上午 07:40:08
如何取出一筆資料內正確數碼,如資料內容為 HB0AA 如何將轉成二個位元 HB0(176),HAA(170)?
作者 : ozzy123(ozzy) 資訊類作業求救卓越專家C++卓越專家貼文超過4000則人氣指數超過30000點
[ 貼文 4468 | 人氣 37262 | 評價 10860 | 評價/貼文 2.43 | 送出評價 49 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2016/12/16 上午 08:15:26
http://stackoverflow.com/questions/10504034/how-do-you-convert-a-string-into-hexadecimal-in-vb-net
for reference
作者 : ktc(ktc) 人氣指數超過10000點
[ 貼文 83 | 人氣 10766 | 評價 60 | 評價/貼文 0.72 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2016/12/16 上午 08:53:19
是否有vb6範例
因資料內有不一定有 H00~HFF 我用 left 或 leftb 都無法正確讀出每一byte值
如一筆資料 H34 HDF H76 H41 (4腩A) 正確讀出應該為 BYTE(0) = H34(52),BYTE(1)=HDF(223),BYTE(2)=H76(118),BYTE(3)=H41(65)
第一個位元可以正確讀出第二個位元就無法正確讀出 HDF 值

Dim S1 As String
Dim S2 As String

S1 = "4腩A" 'H34 HDF H76 H41

S2 = Str(Asc(Left(S1, 1)))
S2 = S2 + Str(Asc(Right(Left(S1, 2), 1)))
作者 : ozzy123(ozzy) 資訊類作業求救卓越專家C++卓越專家貼文超過4000則人氣指數超過30000點
[ 貼文 4468 | 人氣 37262 | 評價 10860 | 評價/貼文 2.43 | 送出評價 49 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2016/12/16 上午 08:57:58
TRY TO CONVERT THE STRING TO A STREAM OF HEX DATA AND EXTRACT EACH BYTE ONE BY ONE .
作者 : ktc(ktc) 人氣指數超過10000點
[ 貼文 83 | 人氣 10766 | 評價 60 | 評價/貼文 0.72 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2016/12/17 上午 08:17:00
HC0 H0B H31 HBD H40 16進位資料卻讀到 H3F H31 HBD H40
而 H60 H95 HE7 CH5 H40 的資料可以正確讀出 H60 H95 HE7 HC5 H40



 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.140625