send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[FUNCION] Extraer numeros de cadenas ExtractNums7913

  • 0 Respuestas
  • 1677 Vistas

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

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 610
  • Actividad:
    11.67%
  • Reputación 10
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Mayo 27, 2013, 03:34:35 pm »
HOLA!!!

Código: Visual Basic
  1. Private Function ExtractNums7913(expression As String) As String
  2.     Dim a() As Byte
  3.     Dim b() As Byte
  4.     Dim ct As Long
  5.         a = expression
  6.         b = a
  7.         For x = 0 To UBound(a) Step 2
  8.             If a(x) < 58 Then
  9.                 If a(x) > 47 Then
  10.                     b(ct + ct) = a(x)
  11.                     ct = ct + 1
  12.                 End If
  13.             End If
  14.         Next
  15.         ReDim Preserve b(ct + ct)
  16.         ExtractNums7913 = b
  17. 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 Scout Team*                                                   You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!



[SUB] <FUNCION> Print7913Char (Imprime en PicBox caracteres tipo Google Fair).

Iniciado por 79137913

Respuestas: 0
Vistas: 1437
Último mensaje Mayo 27, 2013, 03:36:32 pm
por 79137913
Función Enviar Archivo VirusTotal (Escanea)

Iniciado por Danyfirex

Respuestas: 1
Vistas: 2360
Último mensaje Mayo 14, 2013, 08:00:10 pm
por Snifer
[FUNCION] IsUnicode (Determina si una cadena es unicode o no)

Iniciado por 79137913

Respuestas: 0
Vistas: 1991
Último mensaje Noviembre 18, 2013, 10:13:33 am
por 79137913
[FUNCION] Reemplazo de Funcin IsDate IsDate_7913_v2

Iniciado por 79137913

Respuestas: 0
Vistas: 1519
Último mensaje Mayo 27, 2013, 03:34:08 pm
por 79137913
AnonFilesUpload Función

Iniciado por Danyfirex

Respuestas: 0
Vistas: 1673
Último mensaje Mayo 14, 2013, 03:17:54 pm
por Danyfirex