buenas,
pregunto por si acaso, necesito contar las coincidencias de un patrón en una cadena x
ejemplo:
"La ciudad llamada parana, es una ciudad de 50000 habitantes, la ciudad mas grande del estado"
como ven la cadena tiene tres coicidencias si el patrón es ciudad.
mi pregunta es si hay algún comando para esto o tendré que codificar?
Nota: seria interesante que al comando replace se le agregara un contador interno de coincidencias y se pudiera leer.
Contar Coicidencias De Un Patron En Un String
Objetivo: Contar Coicidencias De Un Patron En Un String
última edición por v3ctor el Martes, 09 Junio 2015, 21:30; editado 1 vez
última edición por v3ctor el Martes, 09 Junio 2015, 21:30; editado 1 vez
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
última edición por vuott el Martes, 09 Junio 2015, 23:51; editado 1 vez
Una (entre muchas) posibilidad es esta:
Public Sub Main()
Dim s As String
Dim i As Integer
Dim ii As New Integer[]
' La nuestra cadena:
s = "España Francia Portugal Rumanía Italia España Portugal Rumanía España Italia Francia España Rumanía"
' La palabra que tenemos que buscar es "España":
Do
i = String.InStr(s, "España", i + 1)
If i > 0 Then ii.Push(i)
Loop Until i = 0
Print "La palabra fue encontrada "; ii.Count;; "veces, en las posiciones:"
For i = 0 To ii.Max
Print ii[i]
Next
End
Dim s As String
Dim i As Integer
Dim ii As New Integer[]
' La nuestra cadena:
s = "España Francia Portugal Rumanía Italia España Portugal Rumanía España Italia Francia España Rumanía"
' La palabra que tenemos que buscar es "España":
Do
i = String.InStr(s, "España", i + 1)
If i > 0 Then ii.Push(i)
Loop Until i = 0
Print "La palabra fue encontrada "; ii.Count;; "veces, en las posiciones:"
For i = 0 To ii.Max
Print ii[i]
Next
End
última edición por vuott el Martes, 09 Junio 2015, 23:51; editado 1 vez
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
v3ctor:
No tienen por que existir todas las funciones que queramos. Aunque dicho sea , la verdad es que es una función muy habitual.
En Python existe.
Pero eso no quiere decir que no la podamos implementar en gambas.
Saludos
No tienen por que existir todas las funciones que queramos. Aunque dicho sea , la verdad es que es una función muy habitual.
En Python existe.
cadena = "La ciudad llamada parana, es una ciudad de 50000 habitantes, la ciudad mas grande del estado"
print cadena.count("ciudad")
print cadena.count("ciudad")
Pero eso no quiere decir que no la podamos implementar en gambas.
Saludos
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
Hace tiempo subí, como parte del programa siesta, creo, mi versión:
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
Otra opción: el comando grep:
Esto nos contará las veces que se repite la palabre "hola" en el archivo " /var/log/messages".
fuente:
http://cnslinux.blogspot.com.es/200...un-archivo.html
Nota:
De hecho el ide de gambas usa ese comando para cuando hacemos búsquedas en los proyectos
Citar:
Esto nos contará las veces que se repite la palabre "hola" en el archivo " /var/log/messages".
fuente:
http://cnslinux.blogspot.com.es/200...un-archivo.html
Nota:
De hecho el ide de gambas usa ese comando para cuando hacemos búsquedas en los proyectos
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
Hola!.
Yo hice está función preliminar. Pero la lógica de la variable booleana, me resulta extraña.
Digo que me resulta extraña ya que la condición es que tengo que poner encontrada a True al comienzo del código.
Para que el bucle se ejecute como mínimo una vez. Por lo tanto si sabemos que el bucle
se va a ejecutar como mínimo una vez, sera una opción mejor el bucle Repeat. (que tanto lo tengo olvidado).
El ejemplo es funcional, pero esa variable boolena puesta a True al comienzo "forzosamente" no me acaba de gustar del todo.
¿ Qué opináis ?.
Saludos
Yo hice está función preliminar. Pero la lógica de la variable booleana, me resulta extraña.
Public Function ContarPalabras(cad As String, pal As String) As Integer
Dim pos As Integer
Dim encontrada As Boolean
Dim cuenta As Integer
encontrada = True
Do While encontrada And pos < Len(cad)
pos = InStr(cad, pal, pos)
If pos <> 0 Then
cuenta += 1
pos += 1
encontrada = True
Else
encontrada = False
Endif
Loop
Return cuenta
End
Dim pos As Integer
Dim encontrada As Boolean
Dim cuenta As Integer
encontrada = True
Do While encontrada And pos < Len(cad)
pos = InStr(cad, pal, pos)
If pos <> 0 Then
cuenta += 1
pos += 1
encontrada = True
Else
encontrada = False
Endif
Loop
Return cuenta
End
Digo que me resulta extraña ya que la condición es que tengo que poner encontrada a True al comienzo del código.
Para que el bucle se ejecute como mínimo una vez. Por lo tanto si sabemos que el bucle
se va a ejecutar como mínimo una vez, sera una opción mejor el bucle Repeat. (que tanto lo tengo olvidado).
El ejemplo es funcional, pero esa variable boolena puesta a True al comienzo "forzosamente" no me acaba de gustar del todo.
¿ Qué opináis ?.
Saludos
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
última edición por Shell el Miercoles, 10 Junio 2015, 11:05; editado 1 vez
En este caso sabemos que existe una coincidencia al menos.
última edición por Shell el Miercoles, 10 Junio 2015, 11:05; editado 1 vez
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
Julio:
wc -l cuenta líneas (de ahí la l) si la palabra aparece dos veces en la misma línea, no será correcto...
Por otra parte es lo mismo, pero más simple:
grep "hola" /var/log/messages|wc -l
Citar:
wc -l cuenta líneas (de ahí la l) si la palabra aparece dos veces en la misma línea, no será correcto...
Por otra parte es lo mismo, pero más simple:
grep "hola" /var/log/messages|wc -l
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
Objetivo: Re: Contar Coicidencias De Un Patron En Un String
última edición por angelhjose el Sabado, 13 Junio 2015, 11:30; editado 1 vez
Buenas.
Yo uso esto:
Me ahorro los bucles
Saludos.
Yo uso esto:
Me ahorro los bucles
Saludos.
última edición por angelhjose el Sabado, 13 Junio 2015, 11:30; editado 1 vez
Página 1 de 2
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.6457s (PHP: -86% SQL: 186%)
Consultas SQL: 48 - Debug off - GZIP Activado