[Solucionado] parametro variable, o cambio xd

[CAR3S?]

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...

Código (vb) [Seleccionar] Expandir


sData = "-Viernes-21/10/2011"
inicio = 1
fin = Len(sData) - 10
cancer = Replace(sData, Mid(sData, inicio, fin), "")
MsgBox cancer 'me dara la fecha

[Sanlegas]

Algo rápido y eficaz 

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

Dim A As String
A = "Este es un 345 aaa 661 ejemplo"
MsgBox A
DeleteString A, "45", "66"
MsgBox A

[Psyke1]

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!

[Sanlegas]

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!

Lo hize especialmente con sub  , de todas formas es un ejemplo...

[Psyke1]

Estoy ciego, mis disculpas...

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_visual_basic/reto_recortar_cadena-t342479.0.html;msg1676307#msg1676307

DoEvents!

[CAR3S?]

Sip, estaba dormido...

http://foro.elhacker.net/programacion_visual_basic/reto_recortar_cadena-t342479.0.html;msg1676428#msg1676428