Mensajes

[Funcion GetNums ( STR as string ) as string]

Bien entonces son dos


http://foro.elhacker.net/programacion_visual_basic/reto_funcion_extraer_numeros_de_cadenas-t349507.0.html;msg1703520#msg1703520

http://foro.elhacker.net/programacion_visual_basic/reto_funcion_extraer_numeros_de_cadenas-t349507.0.html;msg1702926#msg1702926

EDIT:

@BlackZeroX:
Retorno long?

Funcion GetNums ( STR as string ) as string

La funcion de Karcrack crashea mmm aun asi prueba esta funcion...

La funcion de Karcrack SI FUNCIONA, ya hasta comprobe las velocidades de todas las funciones...


@BlackZeroX:
CUal es tu funcion? 

[Funcion GetNums ( STR as string ) as string]

@79137913
el retlen lo escribi porque yo queria, la longitud de los valores encontrados no venia al reto
osea era cuestion de uno, y en cuanto a devolver y recibir en la misma variable... esta bien modificare el codigo a tu gusto

Funcion GetNums ( STR as string ) as string

Eso ya es magia negra o blanca v_v
igual ya termino todo me temía lo peor v_v' osea un mov sin apis ni asm inline
ya hay ganador no creo que nadie supere la funcion la funcion de karcrack v_V

EDIT:
@Karcrack
Karcrack, te espero en el proximo reto que se valdra absolutamente de todo!

 
no es trampa v_v
haber quien le gana a mi MOV :3

con la api:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

o con funcion shell de vb:

pid = Shell("Address Of Browser www.google.com")

[@Eternal Idol:]

@Eternal Idol:
Si, fue error mio no escribir todos los detalles :/
porque si modificara tendrian que funcionar hasta con cadenas de tipo: "ndwhe28bdm9n82g1b@n9  #.:Lnhq"
aunque la mayoria si funcionasen perfectamente ( si no es todas )



@m0rf:
yo lo voy a hacer de esta forma:

Código [Seleccionar] Expandir

clock_t ini, end;
 double sec;

 ini = clock();
 // call function
 end = clock();

 sec = (double)(end - ini) / CLOCKS_PER_SEC;


claro que en un bucle de 1000 ciclos...
si alguien tiene una mejor forma de hacerlo que diga por fa




@m0rf:
segun lo que sé un for...




@Sagrini:

en la funcion tendria que hacer la tarea de obtener los caracteres devolviendolos en una variable como parametro o como retorno no debe
debe imprimirlos porque al fin y al cabo no se imprimiran , lo hacemos para demostracion lo que nos interesa es la velocidad de la funcion...



@El_Java:

Y las Librerías de tu code?



EDIT:

Gente e agregado la cadena que sera la que determinara la velocidad de nuestras funciones, por favor tomenla en cuenta ( Pido disculpas por no escribirla desde principio aunque creo visto que todas nuestras funciones cumplen con las espectativas de tal cadena )

[P.D: NO COMPARTO EL USO DE CLASES O FUNCIONES EXTERNAS, SI ES UNA FUNCION QUE SE VALGA POR ELLA MISMA.]

No debería devolver un número?
Deberías poner la declaración de la función, para que BlackZeroX no empiece a usar buffers declarados fuera de esta

La verdad fue error mio al no aclarar que tipo de variable deberia devolver y si lo modifico ya no tendria sentido



Aqui esta la mia:

Código (vb) [Seleccionar] Expandir


Option Explicit


Private Declare Sub MOV Lib "ntdll.dll" Alias "#1042" _
(d As Any, s As Any, ByVal l As Long)

Private Function GetNums(RetSTR As String) As String
Dim lpStr       As Long
Dim lpret       As Long
Dim ln          As Long
Dim b           As Long
Dim t           As Integer

    GetNums = RetSTR
    lpStr = StrPtr(GetNums): lpret = lpStr
    ln = LenB(GetNums)

    For lpStr = lpStr To (lpStr + ln) Step &H2
        MOV t, ByVal lpStr, &H2
        If (t >= &H30) Then
            If (t <= &H39) Then
                MOV ByVal lpret + b, t, &H2
                b = b + &H2
            End If
        End If
    Next
   
    MOV ByVal lpret + b, &H0, &H2
    MOV ByVal (lpret - &H4), b, &H4
End Function






EDIT:

P.D: NO COMPARTO EL USO DE CLASES O FUNCIONES EXTERNAS, SI ES UNA FUNCION QUE SE VALGA POR ELLA MISMA.

Si, una funcion deberia valerse por si misma pero es problema de nostros ya que llamadas a apis, funciones y demas recursos cuestan tiempo
de ejecucion como dije, gana el codigo mas optimizado no importando que use apis,clases, etc...

Muchas gracias ya tengo un soft por aqui y funka :3
una duda... cuanto mas o menos pesa un foro?
el-brujo me puedes decir mas o menos cuanto pesa el foro?
bueno es para saber cuanto mas o menos pesa la web que quiero copiar y cuanto me voy a tardar

[int]

Bueno codes gente!

Bueno estoy suponiendo que no hay más de 9 digitos en la cadena (por que sino no caverán en un int)

Código (c) [Seleccionar] Expandir


#include <stdio.h>
#include <ctype.h>

int extraernum(const char *s);

int main()
{
 printf("%d\n",extraernum("ewiuc3dskhd8nkd62ndsnk9"));
 return 0;
}

int extraernum(const char *s)
{
 const char *p=s;
 int n=0;
 while(*p)
 {
   if(isdigit(*p)) n=10*n+((*p)-'0');
   p++;
 }
 return n;
}


Lo siento la función debe de aceptar cualquier longitud de cadena, no debe ser fija ( no lo puse en la reglas, perdon)



la mia:

Código (cpp) [Seleccionar] Expandir


#include "stdio.h"

void getnumbers(char* Str, int &v)
{
int c=0;
do{
if((Str[c] >= 0x30) && (Str[c] <= 0x39)){
Str[v]=Str[c];
v++;
}
Str[c]=NULL;
c++;
}while(!(Str[c] == NULL));
}

int main()
{
char rSTR[] = {"ewiuc3dskhd8nkd62ndsnk9"};
int nVals = 0x0;

getnumbers(rSTR,nVals);
printf("%s\n",rSTR);
printf("%i\n",nVals);

return 0;
}