Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Contar Coicidencias De Un Patron En Un String
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Contar Coicidencias De Un Patron En Un String 
 
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.
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
última edición por v3ctor el Martes, 09 Junio 2015, 21:30; editado 1 vez 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Contar Coicidencias De Un Patron En Un String 
 
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

 



 
última edición por vuott el Martes, 09 Junio 2015, 23:51; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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.

cadena = "La ciudad llamada parana, es una ciudad de 50000 habitantes, la ciudad mas grande del estado"
print cadena.count("ciudad")
 


Pero eso no quiere decir que no la podamos implementar en gambas.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Contar Coicidencias De Un Patron En Un String 
 
Hace tiempo subí, como parte del programa siesta, creo, mi versión:

Public Function subStrCount(cadena As String, subcadena As String) As Integer
' Devuelve el número de veces que aparece una subcadena dentro de otra
  Dim i, ret As Integer
  Repeat
      i = InStr(cadena, subcadena, i + Len(subcadena))
      If i > 0 Then
          ret += 1
      Endif
  Until i = 0
  Return ret
End
 

 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Contar Coicidencias De Un Patron En Un String 
 
Otra opción: el comando grep:


Citar:
cat /var/log/messages|grep hola | wc -l


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
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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.

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
 


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
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Contar Coicidencias De Un Patron En Un String 
 
En este caso sabemos que existe una coincidencia al menos.

Public Function ContarPalabras2(cad As String, pal As String) As Integer
  
  Dim p As String
  Dim cuenta As Integer
  
  If InStr(cad, pal) >= 1 Then
    For Each p In Split(cad, " ")
      If p = pal Then cuenta += 1
    Next
  Endif
  Return cuenta
  
End
 

 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Miercoles, 10 Junio 2015, 11:05; editado 1 vez 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Contar Coicidencias De Un Patron En Un String 
 
Julio:
Citar:
cat /var/log/messages|grep hola | wc -l
Esto nos contará las veces que se repite la palabre "hola" en el archivo " /var/log/messages".


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
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Contar Coicidencias De Un Patron En Un String 
 
gracias por sus aportes, use este código basado en lo que propuso vuott


Do
i = String.InStr(ResultadoX2!texto, txtFiltro.Text, i + 1)
If i > 0 Then Inc iPalabras
Loop Until i = 0


resultado en acción

5555_1433941849_839596 :
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Contar Coicidencias De Un Patron En Un String 
 
Buenas.
Yo uso esto:
iVeces = (Len(sCadena) - (Len(Replace(sCadena, sCadena_buscar, "")))) / Len(sCadena_buscar)
 


Me ahorro los bucles  

Saludos.
 



 
última edición por angelhjose el Sabado, 13 Junio 2015, 11:30; editado 1 vez 
angelhjose - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Recorrer O Contar En Archivo De Configuracion tomas General 4 Jueves, 04 Noviembre 2010, 12:11 Ver último mensaje
tomas
No hay nuevos mensajes Contar Archivos De Un FileView Shell General 0 Lunes, 28 Enero 2013, 00:24 Ver último mensaje
Shell
No hay nuevos mensajes Contador En Timer Vigilar Y Contar Cambi... codificador General 5 Jueves, 28 Marzo 2013, 23:57 Ver último mensaje
codificador
No hay nuevos mensajes Contar, Agrupar, Ordenar Shell Bases de Datos 7 Sabado, 23 May 2015, 10:39 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No 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



  

 

cron