Autor
|
Tema: remplazar una sola palabra de un texto o archivo (Leído 2,137 veces)
|
ELGRANSOLRAC
Desconectado
Mensajes: 91
|
Hola a todos:
Tengo una aplicacion que busta una cadena de texto y la remplaza por otra,yo lo que quiero es que en el texto si hay varias cadenas repetidas solo remplace la primera cadena que encuentre. Espero haberme explicado bien gracias
|
|
|
En línea
|
|
|
|
~~
|
Utiliza replace
|
|
|
En línea
|
|
|
|
ELGRANSOLRAC
Desconectado
Mensajes: 91
|
me remplaza todas las cadenas iguales cuando encuentra 5102 me lo remplaza pero yo solo quiero que me remplace ese no todos los 5102 que encuentre quiero que se pare cuando remplace el primero este es mi codigo: Private Sub cmdReplace_Click() If txtReplace.Text = "" Then MsgBox "Please enter a replace string.", vbExclamation, "Find and Replace" ElseIf txtFind = "" Then MsgBox "Please enter a search string.", vbExclamation, "Find and Replace" Else rtfText.Text = FastReplace(rtfText.Text, txtFind.Text, txtReplace.Text) End If End Sub
Modulo
Public Function FastReplace(SSrch$, SFind$, SRepl$) As String
Dim Src() As Byte, Dst() As Byte, R() As Byte, F() As Byte Dim LenF&, LenR&, LenDst&, i&, j&, OutPos&
Const ChunkSize& = 4096
If SSrch = "" Or SFind = "" Then Exit Function
Src = SSrch: F = SFind: R = SRepl LenF = UBound(F): LenR = UBound(R) LenDst = ChunkSize: ReDim Dst(0 To LenDst - 1) For i = 0 To UBound(Src) Step 2
For j = 0 To LenF Step 2 If Src(i + j) <> F(j) Then Exit For Next j
If j > LenF Then 'Found
For j = 0 To LenR Step 2 If OutPos >= LenDst Then LenDst = LenDst + ChunkSize ReDim Preserve Dst(0 To LenDst) End If Dst(OutPos) = R(j): OutPos = OutPos + 2 Next j
i = i + LenF - 1
Else
If OutPos >= LenDst Then LenDst = LenDst + ChunkSize ReDim Preserve Dst(0 To LenDst) End If
Dst(OutPos) = Src(i): OutPos = OutPos + 2
End If Next i ReDim Preserve Dst(0 To OutPos - 2): SSrch = Dst FastReplace = SSrch$ End Function
gracias
|
|
|
En línea
|
|
|
|
Freeze.
|
Private Sub Command1_Click() Text2.Text = Replace(Text1.Text, "hola", "", , 1) End Sub
El text1 contiene= "hola hola como como" Y como veras al final de replace hay un 1 que quiere decir que remplazara el primero que encuentre... PD: ¿Ves todo el code que tienes?
|
|
|
En línea
|
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
[BATCH] Remplazar archivo del sistema.
Scripting
|
Dany3j
|
0
|
1,922
|
29 Febrero 2012, 16:18 pm
por Dany3j
|
|
|
hacer un programa que cuente cuantos caracteres hay en una palabra(1 sola vez)?
Java
|
Starkdkcr
|
2
|
3,708
|
2 Marzo 2013, 03:15 am
por leogtz
|
|
|
Reempazar solo una palabra a la vez de un texto vb.net
.NET (C#, VB.NET, ASP)
|
SNSN
|
4
|
3,240
|
26 Octubre 2016, 03:25 am
por P4nd3m0n1um
|
|
|
Bat para remplazar un texto
Scripting
|
hazoli
|
0
|
1,800
|
4 Mayo 2018, 00:54 am
por hazoli
|
|
|
Solicitud de codigo para copiar un archivo y remplazar el nombre
Scripting
|
JokerGaming
|
2
|
2,834
|
9 Marzo 2019, 01:30 am
por JokerGaming
|
|