El ejemplo no es que este centrado en este texto, me ha valido para cosas más interesantes.
El principio es el mismo.
La idea principal es que cierta parte del texto se encuentran entre dos palabras que se repiten, son los que nos indican
los limites donde se encuentra la parte que nos interesa. En este caso tenemos la ayuda de que existen esos divisores.
El contenido del archivo es una tontería. Es solo para que se pueda realizar el ejemplo.
Citar:
Tenemos los dos divisores animales_domesticos. Entre ellos está el contenido que nos interesa mostrar o extraer.
Voy a mostraros el código de como lo he hecho. Si se puede mejorar, ya sabéis, comentar.
Public Sub Main()
' Solo debemos presentar los nombres de los animales domésticos
' En este ejemplo tenemos una serie de animales que están dentro de dos palabras que se repiten
' animales_domesticos
' animal1
' animal2
' ...
' animales_domesticos
Dim archivo As String
Dim c As Integer
Dim mostrar As Boolean
Dim linea As String
archivo = File.Load("texto_animales.txt")
For Each linea In Split(archivo, "\n")
If linea = "animales_domesticos" Then
c += 1
mostrar = True
Endif
If mostrar Then
If c < 2 And linea <> "animales_domesticos" Then
Print linea
Else If c = 2 Then
Break
Endif
Endif
Next
End
' Solo debemos presentar los nombres de los animales domésticos
' En este ejemplo tenemos una serie de animales que están dentro de dos palabras que se repiten
' animales_domesticos
' animal1
' animal2
' ...
' animales_domesticos
Dim archivo As String
Dim c As Integer
Dim mostrar As Boolean
Dim linea As String
archivo = File.Load("texto_animales.txt")
For Each linea In Split(archivo, "\n")
If linea = "animales_domesticos" Then
c += 1
mostrar = True
Endif
If mostrar Then
If c < 2 And linea <> "animales_domesticos" Then
Print linea
Else If c = 2 Then
Break
Endif
Endif
Next
End
Para lograrlo he tenido que usar una variable booleana, un acumulador y sentencias condicionales
Si usamos un código como este y añadimos las expresiones regulares, puede resultar muy interesante su aplicación.
Naturalmente si tenéis que corregir algún termino o palabra que he usado en este texto, también se agradece.
Saludos
