Imprimir Página - Ayuda con un pequeño proyecto !!!

Título: Ayuda con un pequeño proyecto !!!
Publicado por: Xephiro en 7 Agosto 2006, 03:26 am

Bueno lo que quiero hacer es que me reconozca siertas partes de un archivo de texto
EJ :
Servidor=HacktorSRV
IP=127.0.0.1
Admin=Hacktor

Bueno quiero que me pesque lo de despues de los =, eso lo se hacer con un split, lo que no se hacer es como poder modificar los datos y luego se guarden deacuerdo a si pongo en un textbos X me grabe el dato por ejemplo en Servidor, otro textbox en IP y otro en Admin..

Alguien sabe como poder hacer esto¿?

Título: Re: Ayuda con un pequeño proyecto !!!
Publicado por: Hans el Topo en 7 Agosto 2006, 14:02 pm

Cita de: Hacktor en 7 Agosto 2006, 03:26 am

con un select , segun sea el primer trozo servidor o admin o lo que sea que te lo ponga en un txt u otro...

Título: Re: Ayuda con un pequeño proyecto !!!
Publicado por: Xephiro en 8 Agosto 2006, 01:31 am

XD no entendi ... XD .. me pueden explicar bien XD ...

Título: Re: Ayuda con un pequeño proyecto !!!
Publicado por: el_chente23 en 8 Agosto 2006, 03:00 am

Investiga sobre estas api's GetPrivateProfileString,WritePrivateProfileString, son sencillas de usar, son para generar archivos .ini.

te quedaria el archivo mas o menos asi:

Código:

[Servidor]
HacktorSRV
[IP]
27.0.0.1
[Admin]
Hacktor

Saludos

Título: Re: Ayuda con un pequeño proyecto !!!
Publicado por: Xephiro en 10 Agosto 2006, 03:29 am

Me pueden explicar algo mas profundo que en VB no soy un master ... XD :-( :-( :-( :-(

Título: Re: Ayuda con un pequeño proyecto !!!
Publicado por: _Sergi_ en 10 Agosto 2006, 14:39 pm

Aqui tienes un code que seguro que te ayudará, sólo tienes que hacer un proyecto estándar, pegarlo y ejecutarlo.

Código:

Private Sub Form_Load()
'Leer los datos
Datos = "HacktorSRV|127.0.0.1|Hacktor"
MatrizDatos = Split(Datos, "|")
Servidor = MatrizDatos(0)
IP = MatrizDatos(1)
Admin = MatrizDatos(2)
MsgBox "Vamos a leer los datos", , "Ejemplo"
MsgBox "Servidor: " & Servidor & vbNewLine & "IP:" & IP & vbNewLine & "Admin: " & Admin, , "Ejemplo"
'Cambiarlos
MsgBox "Vamos a cambiarlos", , "Ejemplo"
Servidor = InputBox("Introduzca el nuevo servidor", "Ejemplo")
IP = InputBox("Introduzca la nueva IP", "Ejemplo")
Admin = InputBox("Introduzca el nuevo Admin", "Ejemplo")
Datos = Servidor & "|" & IP & "|" & Admin
'Ahora, leemos los datos que hemos guardado
MsgBox "Ahora leeremos los datos que hemos cambiado en la variable Datos", , "Ejemplo"
MatrizDatos = Split(Datos, "|")
Servidor = MatrizDatos(0)
IP = MatrizDatos(1)
Admin = MatrizDatos(2)
MsgBox "Servidor: " & Servidor & vbNewLine & "IP:" & IP & vbNewLine & "Admin: " & Admin, , "Ejemplo"
'Acalaraciones finales
MsgBox "La variable ""Datos"" podría haber sido cualquier cosa, un archivo o una parte de él, un textbox etc.", , "Ejemplo"
End
End Sub

Está minimamente comentado, pero lo importante es ejecutarlo para ver como funciona.

Esto está pensado para, por ejemplo guardar los datos en un servidor de una aplicación Cliente/Servidor al final del archivo y luego extraerlos. Si lo que quieres es hacer un fichero INI (por secciones) debes utilizar las API que te han dicho, GetPrivateProfileString y WritePrivateProfileString, para ello un par de búsquedas en Google te valdrán.

Saludos

Título: Re: Ayuda con un pequeño proyecto !!!
Publicado por: Xephiro en 11 Agosto 2006, 00:38 am

mil gracias .. me funciono altiro ...

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Xephiro en 7 Agosto 2006, 03:26 am