[RETO] Recortar cadena.

[Psyke1]

Código (vb) [Seleccionar] Expandir

Public Function DeleteString(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) As String

Ej:

Código [Seleccionar] Expandir

Hola hoy estoy cansado

Código [Seleccionar] Expandir

Call Recortar(s, 4, 4)

Código [Seleccionar] Expandir

Hola estoy cansado

Vale todo el más rápido gana.

DoEvents!

[Sanlegas]

Código (vb) [Seleccionar] Expandir

Public Function DeleteString_TV1(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long)
DeleteString = Replace$(sString, Mid(sString, PosComienzo, Longitud), vbNullString)
End Function

Salu2

[79137913]

HOLA!!!

Esto es la funcion inversa a un mid :S

Aca mi codigo:
Con primera letra POS 0:

Código (vb) [Seleccionar] Expandir

Public Function DeleteString7913(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) As String
    DeleteString7913 = LeftB$(sString, PosComienzo + PosComienzo) & RightB$(sString, LenB(sString) - (PosComienzo + PosComienzo + Longitud + Longitud))
End Function


GRACIAS POR LEER!!!

[Elemental Code]

a = PosComienzo + PosComienzo

a = PosComienzo *2

[79137913]

HOLA!!!

@Elemental:
Sumar x valores iguales es mas rapido que multiplicar por x


GRACIAS POR LEER!!!

[BlackZeroX]

Se supone que el primer indice de un caracter es el 1 no el 0... respecto a la string claro...

Ej:
Hola hoy estoy cansado

Código [Seleccionar] Expandir

Call Recortar(s, 4, 4)

Código [Seleccionar] Expandir

Holy estoy cansado

Vale todo el más rápido gana.

Dulces Lunas!¡.

[79137913]

HOLA!!!

Se supone que el primer indice de un caracter es el 1 no el 0... respecto a la string claro...

Ej:
Hola hoy estoy cansado

Código [Seleccionar] Expandir

Call Recortar(s, 4, 4)

Código [Seleccionar] Expandir

Holy estoy cansado

Vale todo el más rápido gana.

Dulces Lunas!¡.

Respetando el enunciado y ejemplos...

La primera letra es Pos = 0

GRACIAS POR LEER!!!

[CAR3S?]

 

Funcion -> Eliminar pedazo de cadena, con su INICIO (VARIABLE) y su fin (VARIABLE)

Código (vb) [Seleccionar] Expandir

Function nico(ByVal testo As String, ByVal posini As Long, ByVal posfin As Long)
final = Replace$(testo, (Mid(testo, posini, posfin)), "")
MsgBox final


Uso:

Código (vb) [Seleccionar] Expandir



sData = "-Viernes-21/10/2011"
   
   inicio = 1 'Desde la primera letra hasta.......
   fin = Len(sData) - 10 'Contamos los caracteres y le sacamos 10, que son los unicos que quiero dejar. Si sabemos que empieza en la primera letra, y que los ultimos 10 caracteres quiero dejar, sacara todo y dejara solo los ultimos 10 XD

nico (sData), inicio, fin


offffffffffffffffffff: creo que no entendi la consigna XD, pero me di cuenta que...

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

[BlackZeroX]

Vale todo el más rápido gana.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal pDst As Any, ByVal pSrc As Any, ByVal ByteLen As Long)
Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Long)
Private Declare Sub PutMem2 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Integer)
Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal RetVal As Long)

Public Function DeleteString_BZX(ByVal sString As String, ByVal lPosIni As Long, ByVal lSize As Long) As String
Dim lLnb    As Long
Dim lpStr   As Long

    If ((lSize Or lPosIni) And &H80000000) Then Exit Function
    lLnb = LenB(sString)
    if (lLnb = &H0) then exit function
    lSize = (lSize + lSize)
    lPosIni = (lPosIni + lPosIni)

    If (lPosIni >= lLnb) Then Exit Function
    lpStr = (lPosIni + lSize)

    If (lpStr > lLnb) Then
        lSize = (lLnb - lPosIni)
    End If

    GetMem4 VarPtr(sString), VarPtr(lpStr)
   
    If (lSize > &H0) Then
        lLnb = (lLnb - lSize)
        If (lLnb > lPosIni) Then
            RtlMoveMemory (lPosIni + lpStr), ((lPosIni + lpStr) + lSize), (lLnb - lPosIni)
            'MidB$(sString, (lPosIni + 1), (lLnb - lPosIni)) = MidB$(sString, (lPosIni + lSize + 1), (lLnb - lPosIni))
        End If
    End If

    PutMem2 ByVal (lpStr + lLnb), &H0
    PutMem4 ByVal (lpStr - &H4), lLnb
    PutMem4 VarPtr(DeleteString_BZX), lpStr
    PutMem4 VarPtr(sString), &H0
End Function



Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
    Debug.Print DeleteString_BZX("BlackZeroX", -1, 4), Len(DeleteString_BZX("BlackZeroX", -1, 4))
    Debug.Print DeleteString_BZX("BlackZeroX", 9, 4), Len(DeleteString_BZX("BlackZeroX", 9, 4))
    Debug.Print DeleteString_BZX("BlackZeroX", 0, -4), Len(DeleteString_BZX("BlackZeroX", 0, -4))
    Debug.Print DeleteString_BZX("BlackZeroX", 1, 4), Len(DeleteString_BZX("BlackZeroX", 1, 4))
    Debug.Print DeleteString_BZX("BlackZeroX", 0, 4), Len(DeleteString_BZX("BlackZeroX", 0, 4))
    Debug.Print DeleteString_BZX("BlackZeroX", 0, 400), Len(DeleteString_BZX("BlackZeroX", 0, 400))
End Sub



Temibles Lunas!¡.

[Psyke1]

Más tarde publico la mía.


DoEvents!