- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
Public Function Str2Hex(ByVal strData As String)
Dim i As Long, CryptString As String, tmpAppend As String
On Local Error Resume Next
For i = 1 To Len(strData)
tmpAppend = Hex$(Asc(Mid$(strData, i, 1)))
If Len(tmpAppend) = 1 Then tmpAppend = Trim$(Str$(0)) & tmpAppend
CryptString = CryptString & tmpAppend: DoEvents
Next i
Str2Hex = CryptString
End Function
Работающий перевод строки в Hex.
Но:
1. On Error ... - Где тут может быть Error?!
2. Вместо "0" почему-то написано Trim$(Str$(0)
3. DoEvents, выполняющийся после каждого добавления к строке сильно замедлит код
xeonix 12.10.2009 16:10 # 0
см. мой говнокод, он правда на Шарпе, но реализован проще и работает
быстрее.
http://govnokod.ru/1964
в твоём случае вместо " GetEncoding("windows-1251") " надо писать "Default" и вместо " AppendFormat("%{0}", bt.ToString("X02")) " - " Append(bt.ToString("X02")) ".
guest 26.11.2009 22:28 # 0
guest 28.11.2009 00:39 # 0
TEEN 16.11.2010 17:40 # +1
2. а Str$(0) = " 0" :)
3. А шобэ это чудо визуально не вешало окно :)
Веселый код че)