Mensajes

lo conseguí, de una manera muy engorrosa, pero efectiva, aquí les dejo el código y la explicación:

Código [Seleccionar] Expandir

'Se busca la ruta del archivo que contiene el contenido de los textbox
CommonDialog1.Filter = "Archivos de texto (*.txt)|*.txt"
CommonDialog1.ShowOpen
           
If CommonDialog1.FileName = "" Then Exit Sub

        Text11.Text = CommonDialog1.FileName
' Se abre el archivo usando la ruta obtenida     
Canal = FreeFile 'Buscando un canal libre
   
    'Abriendo el archivo --> "Input"
    Open Text11.Text For Input As Canal
        'Pasando los datos al TexBox
        Text22.Text = Input$(LOF(Canal), #Canal)
    Close Canal 'Cerrando el archivo
' A través de split el archivo es dividido en los textbox   
    Dim Datos As String
    Datos = Text22.Text

Dim Nombre As String
Dim Apellido As String

    Info = Split(Datos, "|")

    Text1.Text = Info(0)
    Text2.Text = Info(1)

Se que debe haber un código mucho mas sencillo y practico, pero a nada
muchas gracias

Hola!

Puedes guardar los 3 en 1 linea, pero necesitarás un char que haga de separador:

Código (vb) [Seleccionar] Expandir


Private Sub Command3_Click()
   Dim mitexto As Integer
   Dim linea as string
   Dim sep as string

   sep = "|" 'separador. deberia ser un char que NO esperas que este en los textboxes
   mitexto = FreeFile
   Open "C:\ejemplo.txt" For Output As #mitexto
       linea = Text1.text + sep + Text2.text + sep + Text3.text
       Print #mitexto, linea
   Close #mitexto
End Sub


Para recuperar, lees la linea, usas Split() sobre la misma usando el separador y en la matriz resultante tendrás los 3 strings de los textos.

Saludos!

Estimado, gracias por tu ayuda logre lo que quería gracias a la función que me diste combinándola con el control "CommonDialog" para elegir el nombre y donde guardar el archivo.

El problema es que no logro hacer funcionar el Split() a través de "CommonDialog" para poder importar manualmente el archivo, estaba intentando con este código:

Código [Seleccionar] Expandir

Dim Datos As String
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Datos = CommonDialog1.FileName
End If

     
   Info = Split(Datos, "|")

   Text1.Text = Info(0)
   Text2.Text = Info(1)

Pero me genera un error. Es lo ultimo y no molesto mas  

Gracias amigos

Amigos, aqui de nuevo con algunas consultas de un pequeño proyecto que estoy desarrollando, el tema es el siguiente.

Tengo 3 textbox, lo que quiero es poder almacenar a traves de un command button el contenido de cada textox en una linea de un archivo de texto luego a través de otro command button recuperar esa información y volver a rellenar los 3 textbox.

con este código, solo consigo hacerlo de a uno a la ves:

Código [Seleccionar] Expandir

Private Sub Command3_Click()
   Dim mitexto As Integer
   mitexto = FreeFile
   Open "C:\ejemplo.txt" For Output As #mitexto
       Print #mitexto, Text1
   Close #mitexto
End Sub

Gracias por su ayuda amigos

Prefecto amigo, lo logre, muchas gracias

[CallApiByName]

Hola!

Te doy algunas ideas de lo que puedes hacer:

1) Colocar el path de la dll en la variable de entorno PATH y definir la misma sólo con el nombre. De esta forma el SO la puede hallar. Osea:

Código (vb) [Seleccionar] Expandir

Public Declare Function Wiz_SingleEntryUnzip Lib "Unzip32.dll" (ByVal ifnc As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames, dcll As UNZIPOPTIONS, Userf As UNZIPUSERFUNCTION) As Long

2) Copiar la dll en el path de la app.

3) Usar CallApiByName. o hacer tu propio hack con CallWindowProc.

Saludos!

gracias por tu respuesta amigo
la 2 la descarto, por que no quiero que la DLL este en la misma ruta
y para la 3era no tengo los conocimientos como para hacerlo.

a que te refieres con colocar la ruta de la dll en la variable de entorno PATH? que tendría que hacer, estoy empezando con vb6 y no logro entenderlo
gracias amigo

amigos. necesito que un modulo utilice una librería que no está en la ruta en donde se encuentra un exe, de esta forma funciona sin problemas llamando a la dll desde disco local C

Código [Seleccionar] Expandir

Public Declare Function Wiz_SingleEntryUnzip Lib "C:\Unzip32.dll" (ByVal ifnc As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames, dcll As UNZIPOPTIONS, Userf As UNZIPUSERFUNCTION) As Long


Pero si lo hago con App.Path, de esta forma no funciona:

Código [Seleccionar] Expandir

Public Declare Function Wiz_SingleEntryUnzip Lib App.Path & "\1\Unzip32.dll" (ByVal ifnc As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames, dcll As UNZIPOPTIONS, Userf As UNZIPUSERFUNCTION) As Long

me da error de compilación, ¿Cuál seria la forma correcta amigos?
Muchas gracias

Amigos necesito su ayuda, necesito poder verificar si un servidor esta disponible a través de la IP, en vb.net el código es muy sencillo:

Código [Seleccionar] Expandir

If My.Computer.Network.Ping("198.01.01.01") Then
 MsgBox("Server pinged successfully.")
Else
 MsgBox("Ping request timed out.")
End If

Pero no consigo lograrlo en vb6
Conocen algún método para hacerlo

Muchas gracias amigos

Hola!

Prueba con este codigo:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
res = ShellExecute(Me.hwnd, "Open", "http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=; " + text1.Text + ";&search=", "", "", 1)
End Sub


Saludos!

Funciono mas que perfecto, no pensé que se podía
Muchas gracias

amigos, se me ocurrió poder realizar algo para optimizar un programa que tengo, la idea es la siguiente, crear una especie de buscador en una pagina determinada.

Por ejemplo con el buscador de esta pagina, se me ocurrió hacer algo como esto usando la función ShellExecute para abrir paginas-

Código [Seleccionar] Expandir


Private Sub Command1_Click()
res = ShellExecute(Me.hwnd, "Open", "http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=; text1.Text;&search=", "", "", 1)
End Sub


http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=auditorias+wifi&search=

Pero en la dirección no toma los valores del text1, si no que busca "; text1.Text;"

No logro hacerlo funcionar, se puede hacer de esta forma, o hay una manera mejor de hacerlo

Gracias amigos

Gracias por sus respuestas amigos, era el disco duro el que estaba malo, solución cambiar el disco.

Pueden cerrar el tema