[FUNCION] Recortar cadenas DeleteString7913

  • 0 Respuestas
  • 4220 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 712
  • Actividad:
    10%
  • Country: 00
  • Reputación 7913
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email

[FUNCION] Recortar cadenas DeleteString7913

  • 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) You are not allowed to view links. Register or Login
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!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                   You are not allowed to view links. Register or Login