TRABALHANDO COM STRCONV VBUNICODE
Bom dia vbmaniacos:
estou com um problema com conversão de dados vbUnicode
Qdo eu tento gravar o dados numa text box e depois tento inverter nao da certo
mas qdo eu faço tudo via codigo dá certo
segue o exemplooooo !!!
estou com um problema com conversão de dados vbUnicode
Qdo eu tento gravar o dados numa text box e depois tento inverter nao da certo
mas qdo eu faço tudo via codigo dá certo
segue o exemplooooo !!!
Resposta
Private Sub cmdConvert_Click()
Dim txt As String
Dim bytes() As Byte <<<<<<<<<<<<<<<< aqui tem q ser uma matriz
Dim i As Long
[ô] Display the bytes.
txt = txtOriginal.Text
bytes = StrConv(txt, vbFromUnicode)
txt = [Ô][Ô]
For i = LBound(bytes) To UBound(bytes)
txt = txt & Format$(Hex$(bytes(i)), [Ô]00[Ô]) & [Ô] [Ô]
Next i
txtBytes.Text = txt
[ô] Convert back into a string.
txt = StrConv(bytes, vbUnicode)
txtResult.Text = txt
End Sub
Private Sub cmdConvert_Click()
Dim txt As String
Dim bytes() As Byte <<<<<<<<<<<<<<<< aqui tem q ser uma matriz
Dim i As Long
[ô] Display the bytes.
txt = txtOriginal.Text
bytes = StrConv(txt, vbFromUnicode)
txt = [Ô][Ô]
For i = LBound(bytes) To UBound(bytes)
txt = txt & Format$(Hex$(bytes(i)), [Ô]00[Ô]) & [Ô] [Ô]
Next i
txtBytes.Text = txt
[ô] Convert back into a string.
txt = StrConv(bytes, vbUnicode)
txtResult.Text = txt
End Sub
Liberdade de culto, e, principalmente, de expressão.
é Goodspeaker voce esta certo vou inserir o tarja para separar o meu rodapé ....
Agora no respeito de mensagens religiosas ai eu concordo com Hidden ......... liberdade religiosa e de expressãoooo ..... AINDA MAIS NAO é PROIBIDO PELO SITE DIVULGAR MENSAGENS DO TIPO !!!!!!
OK???
Agora no respeito de mensagens religiosas ai eu concordo com Hidden ......... liberdade religiosa e de expressãoooo ..... AINDA MAIS NAO é PROIBIDO PELO SITE DIVULGAR MENSAGENS DO TIPO !!!!!!
OK???
Olha se sua duvida foi sanada, vc pode encerrar o tópico quanto a mensagem, este local é pra vc postar sua mensagem pessoal, seja ela religiosa, politica, seu estado de espirito ou seja lá o que for, desde que não desrespeite nenhum frequentador do forum, vc tem pode colocar o que quiser, afinal não está fazendo mal a ninguém, pelo contrário, ela sempre servirá de consolo a alguém em algum dia.
A minha duvida continua .......... quero gravar em uma string ou arquivo os dados convertidos .........
txt = txtOriginal.Text
bytes = StrConv(txt, vbFromUnicode)
só que qdo salvo a variavel Bytes, ao lê-la novamente nao dá o mesmo retorno
só queria saber se tem como fazer isso,se naum, então vou procurar outros meios ...... [Ô]gambiarra[Ô]
txt = txtOriginal.Text
bytes = StrConv(txt, vbFromUnicode)
só que qdo salvo a variavel Bytes, ao lê-la novamente nao dá o mesmo retorno
só queria saber se tem como fazer isso,se naum, então vou procurar outros meios ...... [Ô]gambiarra[Ô]
CONSEGUI ........ VENDO UNS EXEMPLOS DO PLANET SOURCE CODE
[txt-color=#007100]Dim a() As Byte, b() As Byte
a = StrConv(Text1.Text, vbFromUnicode)
Open App.Path & [Ô]\isaias.123[Ô] For Binary As #10
Put #10, ,a
Close #10
Open App.Path & [Ô]\isaias.123[Ô] For Binary As #10
ReDim Preserve b(0 To LOF(10))
Get #10, , b
Close #10
b = StrConv(b, vbUnicode)
MsgBox b[/txt-color]
[txt-color=#007100]Dim a() As Byte, b() As Byte
a = StrConv(Text1.Text, vbFromUnicode)
Open App.Path & [Ô]\isaias.123[Ô] For Binary As #10
Put #10, ,a
Close #10
Open App.Path & [Ô]\isaias.123[Ô] For Binary As #10
ReDim Preserve b(0 To LOF(10))
Get #10, , b
Close #10
b = StrConv(b, vbUnicode)
MsgBox b[/txt-color]
Tópico encerrado , respostas não são mais permitidas