https://foro.gambas-es.org/viewtopic.php?f=1&t=4231&p=23969#p23969
-----------------------------------
Shell
Viernes, 14 Noviembre 2014, 19:51

Re: Buscando Coincidencias En Una Palabra
-----------------------------------
Hice esto:

[code linenumbers=false syntax=gambas]
Public Sub Main()
  
 Dim posletra As New Integer[]
   
 encontrar_coincidencias4("esternocleidomastoideo", "e", posletra, 1)
 Mostrar_Array(posletra) 
   
End

Public Sub Mostrar_Array(lista As Integer[])
  
  Dim elemento As Integer
  
  For Each elemento In lista
    Print elemento
  Next
  
End

Public Sub encontrar_coincidencias4(s As String, l As String, alista As Integer[], pos As Integer) 
  
  pos = InStr(s, l, pos)
  If pos <> 0 Then
    alista.Add(pos)
    encontrar_coincidencias4(s, l, alista, (pos + 1))
  Else
    Return
  Endif
  
End

[/code]

¿ Qué opináis ?.


Saludos


