Mostrar mensajes previos
Ordenar por
por ShiveR Paranóico
Hola miren quisiera hacer una funcion tipo open, para cargar un txt

Código: Seleccionar todo

Private Sub cargar_Click()
Me.Text1.Text = " "
    Dim strLineatxt As String
    'Abre el archivo txt vos busca en donde esta ese archivo prueba.txt
    Open "Data\mirrors.txt" For Input As #1
    'mientras no sea fin del archivo txt que siga cargando

    Do While Not EOF(1)
        Line Input #1, strLineatxt
        Combo2.AddItem strLineatxt
    Loop
    'cerramos el archivo
    Close #1
End Sub
Este es el codigo, pero tengo un problema...
Donde carga en Open:

Código: Seleccionar todo

Open "Data\mirrors.txt" For Input As #1
Como puedo hacer que la palabra Data sea escojida de un Combo1????
Es decir en el Combo1 tengo varias palabras, segun la palabra que selecciones en el otro Combo2 tienen que cargarse otras palabras.

Seria algo asi???

Código: Seleccionar todo

Open Combo2.text "\mirrors.txt" For Input As #1
Espero que puedan ayudarme saludos!!
La tecnica esta cambiando el mundo. Este es el momento para elegir, si es un Yo o un Nosotros.
Imagen

Estado: Agarrando offset por los huevos!!
por ShiveR Paranóico
como??

Código: Seleccionar todo

If Open Combo2.text "\mirrors.txt" For Input As #1
asi?
La tecnica esta cambiando el mundo. Este es el momento para elegir, si es un Yo o un Nosotros.
Imagen

Estado: Agarrando offset por los huevos!!
por shark0
Haber lo que yo entendí fue que en el combo1 se han cargado palabras desde un archivo de texto, cada palabra por linea. Entonces lo que quieres hacer es que si seleccionas una palabra en el combo1 se muestre otra en el combo2.

If Combo1.Text = "Hola" Then
Combo2.AddItem "Adios"
Combo2.Text = "Adios"
End if

Algo asi?

Saludos!
por ShiveR Paranóico
no, segun la palabra de texto que se elija en el combo1 se carga un archivo de texto en el combo2, pero es que hay 9 palabras en el combo1 con lo cual si en el combo1 elijo la palabra3 en el combo2 tiene que cargar el fichero3.txt como se puede hacer eso???...
La tecnica esta cambiando el mundo. Este es el momento para elegir, si es un Yo o un Nosotros.
Imagen

Estado: Agarrando offset por los huevos!!
por shark0
ShiveR escribió:no, segun la palabra de texto que se elija en el combo1 se carga un archivo de texto en el combo2, pero es que hay 9 palabras en el combo1 con lo cual si en el combo1 elijo la palabra3 en el combo2 tiene que cargar el fichero3.txt como se puede hacer eso???...
Facil.

Dim Palabra3 as string, Archivo3 as string

Palabra3 = VerbalTrolo
Archivo3 = "Sefolloungato\mirror3.txt"

If Combo1.Text = Palabra3 Then
Combo2.Text = Archivo3
Open Combo2.text For Input As #1
....
Close #1
End if

Algo asi?

Saludos!
por ShiveR Paranóico
si, seria algo asi!! pero no me funciona
La tecnica esta cambiando el mundo. Este es el momento para elegir, si es un Yo o un Nosotros.
Imagen

Estado: Agarrando offset por los huevos!!
por shark0
ShiveR escribió:si, seria algo asi!! pero no me funciona
Pero dime el error no?, si tienes alguna duda tienes que acompañar con el post el error.

Saludos!
por ShiveR Paranóico
no da error!! xS lo adapte asi:

Código: Seleccionar todo

Private Sub cargar_Click()
Me.Text1.Text = " "
Dim Palabra1 As String, Archivo1 As String

Palabra1 = Avast
Archivo1 = "Data\Avast\mirrors.txt"

If Combo1.Text = Palabra1 Then
lstArchivos.Text = Archivo1
Open lstArchivos.Text For Input As #1

    Do While Not EOF(1)
        Line Input #1, strLineatxt
        lstArchivos.AddItem strLineatxt
    Loop
    'cerramos el archivo

Close #1
End If
End Sub
La tecnica esta cambiando el mundo. Este es el momento para elegir, si es un Yo o un Nosotros.
Imagen

Estado: Agarrando offset por los huevos!!
por ShiveR Paranóico
ok ya esta solucionado!! XDD gracias SharkI



Se quedaria asi... tuviste un error comun xD jjajajaaj
yo tampoco ni me di cuenta... xDD
Private Sub cargar_Click()
Me.Text1.Text = " "
Dim Palabra1 As String, Archivo1 As String

Palabra1 = "Avast" ' No Avast solo xD
Archivo1 = "Data\Avast\mirrors.txt"

If Combo1.Text = Palabra1 Then
lstArchivos.Text = Archivo1
Open lstArchivos.Text For Input As #1

Do While Not EOF(1)
Line Input #1, strLineatxt
lstArchivos.AddItem strLineatxt
Loop
'cerramos el archivo

Close #1
End If
End Sub
La tecnica esta cambiando el mundo. Este es el momento para elegir, si es un Yo o un Nosotros.
Imagen

Estado: Agarrando offset por los huevos!!
por shark0
Se ve que no sabes nada de VB.

Donde esta la cadena de la palabra Avast? si es un texto ponle "" no?
Y donde esta declarada esta variable? -> strLineatxt

Leete tutos no pegues y copies como estas haciendo.

Saludos!.

Editado :

No fue un error, si hubieses sido una cadena la hubiese declarado arriba.
Bueno de nada.
por ShiveR Paranóico
bueno si.... jajajaj no e llegado a las dim estoy empezando, pero no intento copiar sources, intento hacerlo y si no se preguntar!!!

Que digo que yo tampoco me di cuenta de lo del texto " "

Pero bueno, muchisimas gracias por todo!!
La tecnica esta cambiando el mundo. Este es el momento para elegir, si es un Yo o un Nosotros.
Imagen

Estado: Agarrando offset por los huevos!!
por shark0
ShiveR escribió:bueno si.... jajajaj no e llegado a las dim estoy empezando, pero no intento copiar sources, intento hacerlo y si no se preguntar!!!

Que digo que yo tampoco me di cuenta de lo del texto " "

Pero bueno, muchisimas gracias por todo!!
Bueno, de nada
Temas similares
Odnoklassniki Open redirect por xrahitel en Manuales y Tutoriales
Open Redirect in full in chrome por xrahitel en Manuales y Tutoriales
AsyncRAT - Open Source por JohnQi en Troyanos y Herramientas
Twitter Analytics Open Redirect por xrahitel en Manuales y Tutoriales
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”