https://foro.gambas-es.org/viewtopic.php?f=1&t=6461&p=38825#p38825
-----------------------------------
shordi
Miercoles, 21 Junio 2017, 07:49

Re: Leer Un Texto Anterior A Una Palabra
-----------------------------------
Bienvenido.
Lo que buscas es sencillo, sólo debes primero encontrar la posición de la cadena que buscas (función instr) luego extraer todo desde el inicio hasta esa posición (función mid o left) y luego dividirlo en líneas que almacenas a un array (función split)
Desglosando (aunque se puede hacer en muchas menos líneas) sería algo así

[code linenumbers=false syntax=gambas]
dim s as string
dim ar as string[] 'este es el array
dim n as integer
s=file.load("~/configuracion") 'cargas el fichero en una variable
n=instr(s,"Link encap:") 'obtienes la posicion
s=left(s,n) 'extraes todo lo que va antes de esa cadena
ar=split(s,gb.newline) 'almacenas en un array esas líneas[/code]

Con eso ya tienes el array con el contenido del fichero hasta Link encap una línea en cada elemento.

Saludos.


