Foro de elhacker.net

Private Sub Command1_Click()
Dim linea As String

Open "C:\a.txt" For Input As #1                       'abres el archivo pa leerlo
While Not EOF(1)                                      'desde aqui hasta el wend sino ha acabado
    Line Input #1, linea                              'lee la linea
        separa = Split(linea, " ")                    'esto crea un array de cada linea si los datos q as guardado estan separados por un espacio
        icuantos = UBound(separa)                     ' aqui t dice en numero cuantos nombres ay dentro del split
        For i = 0 To icuantos                         'crea un bucle para q la i tome valores hasta el icauntos
            If separa(i) = "Sh3K3L" Then              'aqui pondrias el otro miembro para la comparacion
                For a = 0 To icuantos                 'si entra en esta linea es q la comparacion es valida
                    Label1 = Label1 & separa(a) & " " 'en el label t pondra toda la linea
                Next a                                'en las siguientes lineas se salen del for y if
            End If
        Next i
Wend

close #1
End Sub

Private Sub Command1_Click()
    Dim X As Integer, Fila As Integer
    
    Dim NumArchivo As Long
    
    Dim Arreglo(4, 0 To 4) As String, Archivo As String
    
    
        Fila = 0
    
        Archivo = "c:\1.txt"
        NumArchivo = FreeFile()
    
    Open Archivo For Output As #NumArchivo
        Write #NumArchivo, "JUAN", "JESÚS", "JAVIER", "JORGE", "JEHÚ"
        
        Write #NumArchivo, "WINDOWS", "LINUX", "MAC_OS", "ATHE_OS", "UNIX"
    Close #NumArchivo
    
    Open Archivo For Input As #NumArchivo
        Do While Not EOF(NumArchivo)
            Input #1, Arreglo(Fila, 0), Arreglo(Fila, 1), Arreglo(Fila, 2), _
                Arreglo(Fila, 3), Arreglo(Fila, 4)
            Fila = Fila + 1
        Loop
    Close #NumArchivo

    For X = 0 To Fila - 1
        If Arreglo(X, 1) = UCase(Text1.Text) Then
            MsgBox Arreglo(X, 0) & " " & Arreglo(X, 1) & _
                " " & Arreglo(X, 2) & " " & Arreglo(X, 3) & _
                " " & Arreglo(X, 4), vbInformation, "Línea encontrada"
        End If
    Next X
End Sub