Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Tarea muy sencilla si las hay. primero tenés que lograr abrir el archivo de texto.
Dim Renglon as string Dim NumArch as integer
Numarch = free file
Open RutaNombreArchivo for Input as #NumArch Do While Not EOF(NroArch) Line Input #NroArch, Renglon ´Acá ya obtenés el renglón del texto ´y tendrías que hacer una subfuncion ´instr buscando los espacios vacíos ´fijándote las palabras una por una. Loop Close RutaNombreArchivo