Mensajes

[DoEvents¡!]

Gracias Leo 
Pero pongo el modificador "/i" y no me funciona...
Advierto que programo en VB...
Mira pruebo mis Expr Reg aqui : http://regexpal.com/

Muchas gracias¡! 

DoEvents¡!

[DoEvents¡!]

* 50% Programar                            
* 20% Redes Sociales                        
* 25% Foros                                        
* 5% Pag. Web de contenido adulto (+18) 

DoEvents¡!

[DoEvents¡!]

Hola, a ver si me podeis ayudar...
Es muy sencillo lo que pido...
Tengo esto:

Código [Seleccionar] Expandir

(hola)
Esto me saca todos los "hola" del texto, pero como seria para que no hiciera distincion entre mayusculas y minusculas?¿
Es decir que me sacara tambien :

Hola
hOla
hoLa
...

Gracias  

Pd: Utilizo VB...

DoEvents¡!

[Array]

Ahora que me doy cuenta al leerlo otra vez...
Esa funcion solo te sacaria un resultado, es decir, si en txt tienes mas veces la palabra a buscar solo sacaria el primero que encuentro...  
Pero bueno, teniendo eso como base no te resultara muy dificil modificarlo a tu gusto...
Solo tienes que ir guardando resultados e un Array o en una Collection...
Intentalo, si no postea y te hecho una mano!  

DoEvents¡!

[DoEvents¡!]

Dulces Lunas!¡.

Que me mueroooooo!!!
jajajajajajajajajjajajajajaj

DoEvents¡!

[DoEvents¡!]

Me dieron voz temporalmente, ahora no puedo entrar, me logueo pero no tengo voz y me sigue tirando "Error de servicio ¬¬"

Raro , acabo de solucionar el problema a dos

Yo uno de ellos...
Tambien tuve problemillas, pero ahora me va bien...

DoEvents¡!

[DoEvents¡!]

Bufff...
Entonces deberias explicarte mejor, te entendi mal...

Es asi:

Código (vb) [Seleccionar] Expandir


Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)

DoEvents¡!

me sige borrando todo :'(

Algo tienes que estar haciendo mal, lo pruebo y me funciona sin problemas...
Puedes utilizar el ejemplo de mi amigo BlackZer0X que te lo hace todo ya...

DoEvents¡!

[DoEvents¡!]

Bufff...
Esos paletos no defacearon nada, sacaron la pass del msn a un admin y cambiaron el dominio y el index...
Encima no habia razon para hacer algo asi...
Yo formaba parte de ese foro tambien, a ver si se arregla pronto...

DoEvents¡!

ADVERTENCIA:
No entreeis en el foro ni os logeeis que os pillan las cookies y os cambian las pass... (lo digo por experiancia...)

[DoEvents¡!]

Bufff...
Entonces deberias explicarte mejor, te entendi mal...

Es asi:

Código (vb) [Seleccionar] Expandir


Data = Replace$(Data, Text1.Text, "funciona", , , vbTextCompare)

DoEvents¡!

[DoEvents¡!]

Creo que con algo asi bastaria, si te he entendido bien:

Código (vb) [Seleccionar] Expandir

Public Function Get_String_And_Chars(ByVal sTextToAnalyze As String, ByVal sWord As String, ByVal lCharsToAdd As Long) As String
   Dim bvLenWord       As Byte
   Dim lPosition       As Long
   
   bvLenWord = Len(sWord)
   lPosition = InStr(sTextToAnalyze, sWord)
   
   If lPosition > 0 Then
       Get_String_And_Chars = Mid$(sTextToAnalyze, lPosition, bvLenWord + lCharsToAdd)
   End If
End Function

Ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Debug.Print Get_String_And_Chars("Esto solo es un ejemplo 123 para que veas que funciona... :P", "ejemplo", 4)
End Sub

Devuelve:

ejemplo 123

DoEvents¡!