 Autor
|
Tema: pequeñisima duda hex (Leído 4,060 veces)
|
|
|
asdexiva
 Desconectado
Mensajes: 217
|
alo que me refiero es al caracter Nulo que en hex se pone 00 no ay alguna forma de ponerlo con el vb6 ? en el codigo 
|
|
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
cuando dices nulo diras chr(0)?
|
|
|
|
|
En línea
|
|
|
|
asdexiva
Desconectado
Mensajes: 217
|
cuando dices nulo diras chr(0)?
si ,pero mi duda es como cambiar espacios vacios del texbox a chr(0)
|
|
|
|
|
En línea
|
|
|
|
|
MCKSys Argentina
|
Comparandolos. En el bucle del ejemplo: dim i as long dim j as long for j = 1 to len(text1.text) i = j + 1846823 if asc(mid(text1.text, j, 1)) = 32 then bytearray(i) = 0 else bytearray(i) = asc(mid(text1.text, j, 1)) end if next j
|
|
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando." |
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Lo escribes con chr(0) mira. Open "C:\Users\CENTRAL\Desktop\XD.txt" For Binary As #1 Dim bytes() As Byte bytes() = StrConv("hola" & Chr(0), vbFromUnicode) Put #1, , bytes() Close #1
Te recomiendo leer sobre Ansi y Unicode. saludos |
|
|
|
|
En línea
|
|
|
|
asdexiva
Desconectado
Mensajes: 217
|
Comparandolos. En el bucle del ejemplo: dim i as long dim j as long for j = 1 to len(text1.text) i = j + 1846823 if asc(mid(text1.text, j, 1)) = 32 then bytearray(i) = 0 else bytearray(i) = asc(mid(text1.text, j, 1)) end if next j
no ay alguna forma de poner en el texbox los Chr(0) que yo lo escriba pss por ejemplo nombre y quedan 2 espacios vacios como pongo un Chr(0) en los 2 espacios vacios :S espero entiendas
|
|
|
|
« Última modificación: 15 Enero 2013, 22:24 pm por asdexiva »
|
En línea
|
|
|
|
|
|
|
|
|
 |
