elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Leer archivo .civ
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Leer archivo .civ  (Leído 5,469 veces)
Tyrz


Desconectado Desconectado

Mensajes: 927


Get big or die tryin'


Ver Perfil WWW
Leer archivo .civ
« en: 8 Septiembre 2007, 12:51 pm »

Buenas necesito hacer un programa con vb 6 que abra archivos .civ(son de un juego) y editarlos, el problema esque yo los edito con un editor hexadecimal y me gustaria saber como abrir los archivos y leerlos en hexadecimal y guardarlos otra vez como estaban, no pido el codigo solo quiero saber como se haria ya que no tengo ni idea
Saludso y gracias!


En línea

Web dedicada por completo al surf. Hablamos de tablas de surf, videos de surf, fotos, juegos y mucha información sobre como aprender a surfear, spots famosos como mundaka, pipeline y zonas como vizcaya, surf españa, sopelana y mucho más. Trucos y peligros del surf. A que esperas? Entra en  Surf
Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #1 en: 8 Septiembre 2007, 15:28 pm »

para que en hexa??? puedes habrirlo en binario y ya vale.... :-\

Para transformar a hexa tienes el comando hexa()

Un Saludo  :)


En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
Tyrz


Desconectado Desconectado

Mensajes: 927


Get big or die tryin'


Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #2 en: 8 Septiembre 2007, 15:34 pm »

ntonc si lo abro en binario y pongo el comando hexa ya me saldra como si lo abriera con un editor hexadecimal? Bueno gracias aver si cojo mi pc y pruebo
En línea

Web dedicada por completo al surf. Hablamos de tablas de surf, videos de surf, fotos, juegos y mucha información sobre como aprender a surfear, spots famosos como mundaka, pipeline y zonas como vizcaya, surf españa, sopelana y mucho más. Trucos y peligros del surf. A que esperas? Entra en  Surf
Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #3 en: 8 Septiembre 2007, 15:39 pm »

Puedes cojer caracter por caracter y sacar su ascii y pasarlo a Hexa, y ya lo tendrias igual  :)

En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
Tyrz


Desconectado Desconectado

Mensajes: 927


Get big or die tryin'


Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #4 en: 8 Septiembre 2007, 19:48 pm »

pfff... no me sale esto es lo que llevo echo
Código:
Private Sub Command1_Click()
Open Text2.Text For Binary Access Read As #1
read = Input(LOF(1), #1)
Close #1
Text1.Text = read
For x = 1 To Len(Text1.Text)
num = Mid(Text1.Text, 1, x)
Text3.Text = Text3.Text & num
Next
End Sub
text1 = Sale el contenido del archivo
text2 = Ahi pones donde esta el archivo
text3 = Deberia salir el arhivo en hexa
llevo un buen rato probando diferentes cosas y en ninguna he conseguido que me salga! en este ultimo codigo me sale error type mismatch, Alguien sabe como arreglarlo? GRACIAS
En línea

Web dedicada por completo al surf. Hablamos de tablas de surf, videos de surf, fotos, juegos y mucha información sobre como aprender a surfear, spots famosos como mundaka, pipeline y zonas como vizcaya, surf españa, sopelana y mucho más. Trucos y peligros del surf. A que esperas? Entra en  Surf
cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #5 en: 8 Septiembre 2007, 20:48 pm »

Código:
Private Sub Command1_Click()
Open Text2.Text For Binary Access Read As #1
read = Input(LOF(1), #1)
Close #1
Text1.Text = read
For x = 1 To Len(Text1.Text)
num = Mid(Text1.Text, 1, x) <-- aca esta mal
Text3.Text = Text3.Text & num
Next
End Sub

esa linea seria num = hex(asc$(Mid$(Text1.Text, x,1)))


En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
Tyrz


Desconectado Desconectado

Mensajes: 927


Get big or die tryin'


Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #6 en: 9 Septiembre 2007, 09:52 am »

me pone compile error :S
En línea

Web dedicada por completo al surf. Hablamos de tablas de surf, videos de surf, fotos, juegos y mucha información sobre como aprender a surfear, spots famosos como mundaka, pipeline y zonas como vizcaya, surf españa, sopelana y mucho más. Trucos y peligros del surf. A que esperas? Entra en  Surf
cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #7 en: 9 Septiembre 2007, 10:20 am »

Donde esta el error? la verdad lo mire ahi en el momento pero acabo de ver otra cosa mas.... postea el codigo que tengas y te digo
En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
Tyrz


Desconectado Desconectado

Mensajes: 927


Get big or die tryin'


Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #8 en: 9 Septiembre 2007, 10:48 am »

esto es todo el codigo
Código:
Private Sub Command1_Click()
Open Text2.Text For Binary Access Read As #1
read = Input(LOF(1), #1)
Close #1
Text1.Text = read
For x = 1 To Len(Text1.Text)
num = Hex(Asc$(Mid$(Text1.Text, x, 1)))
Text3.Text = Text3.Text & Hex(Chr(Val(num)))
Next
End Sub
y al intentar abrir un archivo me pne
compile.error:
type-declaration character does not match declared data type
y me marca en amarillo la primera linea, el private sub command 1_click
Saludos y gracias
En línea

Web dedicada por completo al surf. Hablamos de tablas de surf, videos de surf, fotos, juegos y mucha información sobre como aprender a surfear, spots famosos como mundaka, pipeline y zonas como vizcaya, surf españa, sopelana y mucho más. Trucos y peligros del surf. A que esperas? Entra en  Surf
cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: Leer archivo .civ
« Respuesta #9 en: 9 Septiembre 2007, 10:54 am »

ops diculpa me la mande ahi esta
 
num = hex(chr$(Mid$(Text1.Text, x,1)))
En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con BAT leer Archivo « 1 2 3 4 »
Scripting
elecktra 30 25,628 Último mensaje 9 Octubre 2009, 05:27 am
por Aranguez
Leer Archivo en pascal
Programación General
¡Micronet! 6 8,563 Último mensaje 26 Enero 2011, 01:20 am
por ¡Micronet!
Leer archivo txt y pasarlo a un arreglo
Java
ZedGe 6 30,606 Último mensaje 11 Junio 2011, 15:14 pm
por barbieturico
Problema en C++ al leer archivo .txt « 1 2 »
Programación C/C++
javier_SL 10 13,355 Último mensaje 21 Junio 2011, 00:54 am
por Danyel_Casvill
leer cadena de archivo en c#
.NET (C#, VB.NET, ASP)
alan03 0 3,525 Último mensaje 22 Julio 2011, 20:01 pm
por alan03
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines