Foro de elhacker.net

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

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

Estoy ciego, mis disculpas... :-[

DoEvents! :P

Sip, estaba dormido...

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