pequeñisima duda hex

[MCKSys Argentina]

El espacio " ", no tiene el valor ANSI 00h, sino 20h (32 Decimal).

Fijate: http://es.wikipedia.org/wiki/ASCII

Saludos!

[asdexiva]

El espacio " ", no tiene el valor ANSI 00h, sino 20h (32 Decimal).

Fijate: http://es.wikipedia.org/wiki/ASCII

Saludos!

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

[Danyfirex]

cuando dices nulo diras chr(0)?

[asdexiva]

cuando dices nulo diras chr(0)?

si ,pero mi duda es como cambiar espacios vacios del texbox a chr(0)

[MCKSys Argentina]

Comparandolos.

En el bucle del ejemplo:

Código (vb) [Seleccionar] Expandir


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


[Danyfirex]

Lo escribes con chr(0) mira.

Código (vb) [Seleccionar] Expandir

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

[asdexiva]

Comparandolos.

En el bucle del ejemplo:

Código (vb) [Seleccionar] Expandir


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

[MCKSys Argentina]

Lee la parte de caracteres imprimibles: http://es.wikipedia.org/wiki/ASCII

Si no lees, no puedes aprender.

Saludos!

[asdexiva]

muchas gracias MCKSys Argentina no avia visto tu codigo jajaja