https://foro.gambas-es.org/viewtopic.php?f=1&t=4312
-----------------------------------
Shell
Martes, 23 Diciembre 2014, 20:05

Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
Hola!.

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.
[quote]
xucjckd
odldmjd
animales_salvajes
lobo
leon
cocodrilo
animales_salvajes
cxcxcx
gxcxcz
tewew
efdfdr
animales_domesticos
gato
perro
canario
animales_domesticos
rxvxv
exsfs
excxsyr
wefvcvdrd
[/quote]

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.
[code linenumbers=false syntax=gambas]
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
[/code]

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


-----------------------------------
vuott
Martes, 23 Diciembre 2014, 23:56

Re: Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
...una posible alternativa:    [img]http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/lipsrsealed.gif[/img]
[code linenumbers=false syntax=gambas]Public Sub Main()

  Dim archivo As String

   archivo = File.Load("texto_animales.txt")

' Functioni Scan() nos spei pleni confidantes:
   Print Scan(archivo, "*animales_domesticos\n*animales_domesticos*")[1]

 End[/code]


-----------------------------------
Shell
Miercoles, 24 Diciembre 2014, 12:36

Re: Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
Vuott:

Que bien. Cuanto lo has reducido. :!: 

Me parece que necesitamos ejercitar este tipo funciones. Nos vendría muy bien deberes sobre esto.
No lo digo solo con la función Scan, otro ejemplo es Format. Las funciones que trabajamos con cadenas
deberíamos conocerlas al 101%

En el caso de Scan hay una división por medio. Que es el carácter de final de linea.
Esto es claramente, un problema de desconocerla.

Saludos


-----------------------------------
Kly
Miercoles, 24 Diciembre 2014, 15:31

Re: Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
Vaya .  :mricy:


-----------------------------------
Shell
Miercoles, 24 Diciembre 2014, 15:49

Re: Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
[quote user="Kly" post="24522"]Vaya polvo.  :mricy:[/quote]

Hay que estar elegante para la celebración.  :roll:


-----------------------------------
vuott
Miercoles, 24 Diciembre 2014, 16:44

Re: Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
[quote user="Shell" post="24523"]

Hay que estar elegante para la celebración.[/quote]

[img]http://redbaiters.com/toto_gold_naples.gif[/img]


-----------------------------------
Shell
Miercoles, 24 Diciembre 2014, 17:51

Re: Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
Vuott:

Mucho más guapo que Totó. :-D

http://cinestonia.blogspot.com.es/2012/02/el-oro-de-napoles-1954-vittorio-de-sica.html

Saludos


-----------------------------------
Kly
Miercoles, 24 Diciembre 2014, 21:30

Re: Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
[quote user="Shell" post="24525"]Vuott:

Mucho más guapo que Totó. :-D

http://cinestonia.blogspot.com.es/2012/02/el-oro-de-napoles-1954-vittorio-de-sica.html

Saludos[/quote]

Si, di que si. Por supuesto. :mrgreen:


-----------------------------------
vuott
Jueves, 25 Diciembre 2014, 01:09

Re: Buscar Una Parte Que Nos Interese De Un Archivo De Texto
-----------------------------------
[quote user="Shell" post="24525"]
Mucho más guapo que Totó.

[/quote]

Un super-listillo, como Python !    :grin: 

[img]http://upload.wikimedia.org/wikipedia/it/8/82/Tot%C3%B2_Sceicco_1950_2.JPG[/img]


