leer bit a bit un archivo..

Soy novato en ASP pero supongo que lo mínomo que lo podras leer es caracter
a caracter y luego tu mismo examinar los bits de cada caracter..


pero bueno, supongo que estoy metiendo las narizes sin estar completamente
seguro de lo que digo, así que espero las debidas "reprimendas" y así de
paso aprendo también.

PD: Llevo ya una semanita leyendo este foro, estoy iniciandome en asp como
complemente a VB.

Hola Carmelo,

Bienvenido... no te preocupes por detalles... acá nadie es perfecto y cree
en saberlas todas... solo somos usuarios que habitualmente trabajamos (o
trabajabamos en mi caso) con esta herramienta.

Saludos,
Jhonny Vargas P. [MVP]
Santiago de Chile


"Carmelo J. Morales Muñoz" escribió en el mensaje
news:y8Koc.198493$

Soy novato en ASP pero supongo que lo mínomo que lo podras leer es

caracter

a caracter y luego tu mismo examinar los bits de cada caracter..


pero bueno, supongo que estoy metiendo las narizes sin estar completamente
seguro de lo que digo, así que espero las debidas "reprimendas" y así de
paso aprendo también.

PD: Llevo ya una semanita leyendo este foro, estoy iniciandome en asp como
complemente a VB.

Hola,

Revisa si Microsoft Scripting Runtime tiene algo al respecto.. posiblemente
con el FileSystemObject puedas abrir un archivo binario y leerlo.

La otra alternativa, es la creación de un componente en Visual Basic y desde
ahí abrir el archivo binariamente con un Open "archivo" ...


Saludos,
Jhonny Vargas P. [MVP]
Santiago de Chile


"voyagerx3" <voyagerx3arrobahotmail.com> escribió en el mensaje
news:

hola..
alguien tiene informacion de como leer un archivo en asp.. bit a bit??
gracias..

cuando leo..linea a linea alguien sabe que tipo de conversion debo hacer...
para obtener los codigos hexadecimales.
y luego para grabar el archivo modificado?

Gracias

Set fs = CreateObject("Scripting.FileSystemObject")
set fss = fs.OpenTextFile(strPath , 1, False, 0)

While Not fss.AtEndOfStream
aa=fss.Readline
str = str & aa
Wend

fss.Close
Set fss=Nothing


"Jhonny Vargas P." wrote in message
news:

Hola,

Revisa si Microsoft Scripting Runtime tiene algo al respecto..

posiblemente

con el FileSystemObject puedas abrir un archivo binario y leerlo.

La otra alternativa, es la creación de un componente en Visual Basic y

desde

ahí abrir el archivo binariamente con un Open "archivo" ...


Saludos,
Jhonny Vargas P. [MVP]
Santiago de Chile


"voyagerx3" <voyagerx3arrobahotmail.com> escribió en el mensaje
news:
> hola..
> alguien tiene informacion de como leer un archivo en asp.. bit a bit??
> gracias..
>
>

Hola

Te cuento que estuve mirando y resulta que me da la impresion de que el
FileSystemObject no es la opcion que buscas.

Si quieres leer un archivo bit a bit tienes que utilizar un lenguaje que te
permita la creación de un COM+, si por ejemplo usas Visual Basic, te dejará
leerlo byte a byte, leerá saltos de linea, caracteres nulos, letras, números
y en general, todo el ASCII exceptuando los caracteres BOF y EOF ya que
estas son banderas que utilizará el lenguaje para leer el archivo. Creas el
ActiveX Dll y desde la página lo utilizas.

Si es Visual Basic puedes utilizar el comando Open "archivo" for BinaryRead
o algo asi.

Si por el contrario, te sirvio el FileSystemObject como lo colocaste, lo que
tienes que hacer es lo siguiente para sacar los Hexas de
cada byte de la línea extraída del archivo...


Set fs = CreateObject("Scripting.FileSystemObject")
Set fss = fs.OpenTextFile(strPath , 1, False, 0)

While Not fss.AtEndOfStream
aa=fss.Readline
For i = 1 to len(aa)
'*************************************************************************
'Ejemplo 1
'*************************************************************************
'Aqui saca la representación de cada byte (8 bits de la línea):
C_Ascii = Asc(Mid(aa,i,1))
'Aqui lo conviertes a Hexa:
ElHexa = Hex(C_Ascii) 'Ambos Hexas del Byte son representados

'*************************************************************************
'Ejemplo 2
'*************************************************************************
'Si lo necesitas más sofisticado, convirtiendo a Hexas
individuales:
'El proceso se hace comparando bit a bit. con el operador And ya que un
byte cualquiera:
'1010 1100 and 1111 0000 = 1010 0000 ya que 1 and 0 = 0, 1 and 1 = 1
etc
'Entonces tienes un byte 1111 1111 y lo comparas bit a bit con
'1111 0000 y te da el hexa de la izquierda:
'(Sobra decir que "1111 0000 = F0" y la representacion en VBScript es
&H<HEXA>&, es decir &HF0&)
H1 = CAscii And &HF0& 'Representa 1 unico hexa de manera decimal, es decir
un numero entre 0 y 15
'Ahora para que nos funcione, tenemos 1/2 byte en la parte izquierda y
necesitamos
'Pasar ese 1/2 byte a la derecha para tomar un unico hexa. Esto se hace
'practicando una "division entera" (\) por 16 (16 es el otro 1/2 byte):
H1 = H1 \ 16
'Ya tienes el primer hexa, ahora para el segundo simplemente se compara el
byte
'que tenemos (1111 1111) bit a bit con la parte derecha del hexa, es decir
'0000 1111 así:
'(Sobra decir que "0000 1111 = 0F" y la representacion en VBScript es
&H<HEXA>&, es decir &H0F&)
H2 = CAscii And &H0F& 'Representa 1 unico hexa de manera decimal, es decir
un numero entre 0 y 15
'*************************************************************************

'El resultado lo escribo en la página de manera que compares los resultados
'Los resultados de las variables CAscii, H1 y H2 vienen en Decimal, la
funcion Hex() los transforma
'En hexadecimales
Response.Write Hex(CAscii) & " / " & Hex(H1) & Hex(H2) & "<BR>"
Next
Wend

fss.Close
Set fss=Nothing

Recuerda, desconozco tu nivel de conocimiento y es la razón por la cual lo
escribí lo más claro que se me ocurrió. No pretendo ser irónicamente
ofensivo.
Espero te sirva.

Saludos

Diego


"voyagerx3" <voyagerx3arrobahotmail.com> escribió en el mensaje
news:

hola..
alguien tiene informacion de como leer un archivo en asp.. bit a bit??
gracias..