Autor
|
Tema: Encontrar una palabra dentro de un texto (Leído 1,845 veces)
|
Hendrix
|
Weno, ya se que esto es facilito, pero no lo se hacer (se que es kon una instruccion, pero no se kual)...
Weno, supongamos que dentro de la variable texto esta este texto:
the Hendrix Power
Oka, supongamos que no konozko el "Space" de la variable texto, y yo quiero enkontrar dentro de este Texto la palabra Hendrix....
Komo se hace para que la variable resultado contenga la posicion de la palabra Hendrix???? y que luego la parabra Hendrix pueda cambiarse por otra palabra????
Weno, Muchas gracias....
Salu2
Hendrix
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
A ver, primero querias buscar una palabra. Para hacer eso podes usar un For: 'Teniendo en cuenta que Text1 es donde vamos a buscar la palabra que esta escrita en el Text2
Dim i as Long
For i = 1 To Len(Text1) If Mid(Text1, i, Len(Text2)) = Text2 Then MsgBox Mid(Text1, i, Len(Text2)) & " - " & i End If Next i
'La posicion de la palabra que encontraste seria la variable i, y la longitud es igual a la del Text2...
Tambien habias preguntado como reemplazar una palabra, para eso usas la instruccion Replace: Text1 = Replace(Text1, Text2, Text3)
'Text1 es donde vamos a reemplazar la palabra 'Text2 es la palabra que queremos reemplazar 'Text3 es la palabra que se va a poner en lugar de la del Text2
Bueno espero que se entienda y que te sirva. Un saluod.-
|
|
|
En línea
|
|
|
|
Hendrix
|
Cojonudo!!!! Muchas gracias!!!! Salu2 Hendrix
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
.Slasher-K.
Desconectado
Mensajes: 79
|
' Reemplaza Space por HendriX ' sData = Replace$(sData, "Space", "HendriX")
o Function ReplaceStr(ByVal Text As String, ByVal Find As String, ByVal NewStr As String) As String Dim lPos&
lPos = InStr(1, Text, Find)
If lPos Then Mid(Text, lPos, Len(Find)) = NewStr ReplaceStr = Text End If End Function
En el caso de TextBox Dim lPos&, sFind$
sFind = "Space" lPos = Instr(1, txtData, sFind)
If lPos Then txtData.SelStart = lPos txtData.SelLength = Len(sFind) End If
|
|
« Última modificación: 6 Marzo 2006, 00:16 am por .Slasher-K. »
|
En línea
|
|
|
|
Hendrix
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Buscar caracter dentro de un string y evitar recorte de palabra
Programación Visual Basic
|
fx700
|
0
|
2,810
|
28 Octubre 2011, 23:39 pm
por fx700
|
|
|
[Solucionado][Duda] eliminar doble palabra incluyendo la primera en un texto...
Scripting
|
.:UND3R:.
|
8
|
8,015
|
3 Enero 2012, 06:12 am
por .:UND3R:.
|
|
|
Batch. Encontrar palabra en frase
Scripting
|
Stealt
|
4
|
5,286
|
30 Agosto 2013, 07:29 am
por Eleкtro
|
|
|
Encontrar palabra en .txt y crear variable
Scripting
|
erikcatala
|
5
|
3,589
|
5 Agosto 2016, 18:15 pm
por Eleкtro
|
|
|
Como comparar un string con una palabra dentro de un documeto de texto
Programación C/C++
|
lordluisiv
|
6
|
3,805
|
5 Abril 2019, 11:53 am
por lordluisiv
|
|