Foros del web, para los que viven de bits

Option Explicit

Dim ingenieros(0 To 2) As String

Private Sub Form_Load()

If LeerArchivo Then
    GenerarSalida
    MsgBox "Proceso de selección finalizado con éxito"
Else
    MsgBox "No hay candidatos que cumplan los requisitos solicitados"
End If
End

End Sub

Private Function LeerArchivo() As Boolean

Dim linea As String
Dim registro() As String
Dim indice As Integer

Open App.Path & "\Profesionales.txt" For Input As #1
indice = 0
LeerArchivo = False
Do Until EOF(1)
   Line Input #1, linea
   registro = Split(linea, ",", -1, vbBinaryCompare)
   If Trim(registro(3)) = """M""" And Trim(registro(4)) < 35 And Trim(registro(5)) = """Soltero""" Then
        ingenieros(indice) = Trim(registro(0)) & ", " & Trim(registro(1)) & ", " & Trim(registro(6))
        If indice < 2 Then
            indice = indice + 1
        Else
            LeerArchivo = True
            Exit Do
        End If
   End If
Loop
Close #1

End Function

Private Sub GenerarSalida()
    
    Dim i As Integer
    
    Open App.Path & "\Seleccionados.txt" For Output As #1
    For i = LBound(ingenieros) To UBound(ingenieros)
        Write #1, Replace(ingenieros(i), """", "")
    Next i
    Close #1
    
End Sub

Type Ingeniero
    id As String
    nombre As String
    telefono As String
End Type

1.-)	la empresa de servicios profesionales, BUENA PEGA Ltda..  ha llamado a concurso para proveer el cargo de Ingeniero en una importante empresa del sector minero, fuera de Santiago, para estoa dispone de un archivo con la información clasificada de diferentes profesionales.  El nombre del archivo es  Profesionales.Txt  y tiene la siguiente estructura de registro:

RUT	NOMBRE	PROFESION	SEXO	EDAD	ESTADO CIVIL	FONO

Como ingeniero en práctica de esta Empresa, se le solicita proponer un sistema computacional, en lenguaje Visual Basic, que permita:

a)	Acceder y Leer a los registros del Archivo de datos  Profesionales.txt
b)	Seleccionar los primeros 3 ingenieros, de sexo masculino (M), solteros y con edades no mayor a 35 años.  Si no se encuentran 3 candidatos, deberá enviar un mensaje apropiado.
c)	Los datos de los candidatos seleccionados deberán  ser almacenados en un arreglo de estructura, de nombre Ingeniero.
d)	Finalmente deberá generan un archivo de salida, de nombre Seleccionados.Txt,  con el Rut, Nombre y Teléfono de los candidatos seleccionados.

RUT	NOMBRE	FONO

e)	Haga todas las definiciones y declaraciones que estime necesarias.
f)	El Programa Principal deberá tener como mínimo dos llamadas a procedimientos:
Leer Archivo
Generar Salida


OBS.:  El archivo Profesionales.Txt, se encuentra adjunto