Underc0de

Programación General => Visual Basic => Mensaje iniciado por: 79137913 en Mayo 27, 2013, 03:33:43 PM

Título: [FUNCION] Recortar cadenas DeleteString7913
Publicado por: 79137913 en Mayo 27, 2013, 03:33:43 PM
HOLA!!!

(quita x caracteres en x posicion de una cadena)

Aca mi codigo:
Con primera letra POS 0:
Código (vb) [Seleccionar]
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!!!