[SRC] String Alternativo

  • 0 Respuestas
  • 3853 Vistas

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

Desconectado Yuki

  • *
  • Underc0der
  • Mensajes: 66
  • Actividad:
    0%
  • Reputación 5
    • Ver Perfil

[SRC] String Alternativo

  • en: Marzo 04, 2015, 12:37:42 pm
El codigo de String Alternativo usando la API FillMemory

Código: [Seleccionar]
Option Explicit
Private Declare Sub FillMemory Lib "kernel32.dll" Alias "RtlFillMemory" (Destination As Any, ByVal Length As Long, ByVal Fill As Byte)

Private Function StringAlternativo(ByVal Longitud As Long, ByVal Caracter As Byte) As String
Dim Str As String
Str = Space(Longitud)
FillMemory ByVal Str, Longitud, Caracter
StringAlternativo = Str
End Function
« Última modificación: Marzo 04, 2015, 12:39:30 pm por Yuki »