¿que alternativa puedo usar al strconv("string",vbfromunicode)?
Me imagino que estarás diciendo esto:
ByteArray() = StrConv(String, vbFromUnicode) --> Convierte la String de Unicode a un ByteArray
Mirá el ejemplo, es muy fácil en realidad, es convertir cada Caracter a su código Ascii y guardarlo en el ByteArray [Función StrToBytArray By Cobein]
Si te dá problemas avisame, un saludo
ByteArray() = StrConv(String, vbFromUnicode) --> Convierte la String de Unicode a un ByteArray
Mirá el ejemplo, es muy fácil en realidad, es convertir cada Caracter a su código Ascii y guardarlo en el ByteArray [Función StrToBytArray By Cobein]
Código: Seleccionar todo
Option Explicit
Private Const FROM_UNICODE = &H80
Private Const TO_UNICODE = &H40
Private Const STRING_CODE As String = "Indetectables_KainRazor"
Private Sub Form_Load()
Dim vCode() As Byte
Dim nCode As String
'vCode() = StrConv(STRING_CODE, FROM_UNICODE, 0)
vCode() = StrToBytArray(STRING_CODE)
nCode = StrConv(vCode(), TO_UNICODE, 0)
Debug.Print "UNICODE: " & STRING_CODE
Debug.Print "TO BYTE_ARRAY: " _
; vCode()
Debug.Print "TO UNICODE: " & nCode
End Sub
' Función programada por Cobein
Public Function StrToBytArray(ByVal sStr As String) As Byte()
Dim i As Long
Dim Buffer() As Byte
ReDim Buffer(Len(sStr) - 1)
For i = 1 To Len(sStr)
Buffer(i - 1) = Asc(Mid(sStr, i, 1))
Next i
StrToBytArray = Buffer
End Function
esto parece ser justo lo que buscaba, lo mismo y me funciona ...viniendo de ese tal cobien, nose yo
lo pruebo y ya aviso, muchas gracias!!
lo pruebo y ya aviso, muchas gracias!!
Justamente tengo el mismo dilema, lo voy a probar...
Si lo probaste avisa como te fue! :)
Si lo probaste avisa como te fue! :)
