buenas
estoy intentando eliminar una palabra que se como empieza, y se como termina.
hice una mezcla de mid con left y replace, pero a estas horas ya no me da la cabeza.
La palabra empieza con - y termina con -
Como nose que hacer, intente atravez de un LEN - 10 (10 caracteres son "fijos"), y el resultado del len-10 , enrealidad, ya no me acuerdo que hice
supongo que esta facil, si lo arreglo lo pongo.creo que ya estoy durmiendo
solucionado:
Como se que los 10 ultimos caracteres son los que me sirven, todo lo primero lo borro...
sData = "-Viernes-21/10/2011"
inicio = 1
fin = Len(sData) - 10
cancer = Replace(sData, Mid(sData, inicio, fin), "")
MsgBox cancer 'me dara la fecha
Algo rápido y eficaz :xD
Public Sub DeleteString(ByRef Str As String, ByRef Begin As String, ByRef EndS As String)
Dim P As Long
Dim P2 As Long
P = InStr(1, Str, Begin)
P2 = InStr(P, Str, EndS)
If (Not (CBool(P)) Or Not (CBool(P2))) Then
Exit Sub
End If
Str = Mid(Str, 1, P - 1) & Mid(Str, P2 + Len(EndS), Len(Str))
End Sub
Uso:
Dim A As String
A = "Este es un 345 aaa 661 ejemplo"
MsgBox A
DeleteString A, "45", "66"
MsgBox A
Tu código tiene un error, la función no devuelve nada, revísalo.
Mira qué interesante, voy a hacer un reto de esto.
DoEvents! :P
Cita de: Psyke1 en 21 Octubre 2011, 10:05 AM
Tu código tiene un error, la función no devuelve nada, revísalo.
Mira qué interesante, voy a hacer un reto de esto.
DoEvents! :P
Lo hize especialmente con sub :P, de todas formas es un ejemplo...
Estoy ciego, mis disculpas... :-[
http://foro.elhacker.net/programacion_visual_basic/reto_recortar_cadena-t342479.0.html;msg1676307#msg1676307
DoEvents! :P
Sip, estaba dormido...
http://foro.elhacker.net/programacion_visual_basic/reto_recortar_cadena-t342479.0.html;msg1676428#msg1676428