elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Temas
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
1  Programación / Programación Visual Basic / [DUDA] Error en ADO al poner un WHERE en la consulta en: 2 Febrero 2015, 05:09 am
Tengo un fichero csv con la siguiente información:

Código:
NOMBRE,EDAD,FECHA
MARIO,30,24/12/2002
MARIA,90,24/12/2001
PEDRO,10,24/12/2004

Y quiero hacer una consulta de la siguiente manera:

Código
  1. Dim oConn As New ADODB.Connection
  2. Dim oRS As New ADODB.Recordset
  3.  
  4. oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
  5. & "Data Source=" & Environ("temp") & ";" _
  6. & "Extended Properties=""text;HDR=Yes;FMT=Delimited(;)"";Persist Security Info=False"
  7.  
  8. Set oRS = oConn.Execute("select * from datos.csv")
  9. Dim ofield As ADODB.Field
  10.  
  11. Do Until oRS.EOF
  12.    For Each ofield In oRS.Fields
  13.        Debug.Print "Field Name = " & ofield.Name & " Field Value = " & ofield.Value
  14.    Next ofield
  15.    oRS.MoveNext
  16. Loop

Esto devuelve:
Código:
Field Name = NOMBRE Field Value = MARIO
Field Name = EDAD Field Value = 30
Field Name = FECHA Field Value = 24/12/2002
Field Name = NOMBRE Field Value = MARIA
Field Name = EDAD Field Value = 90
Field Name = FECHA Field Value = 24/12/2001
Field Name = NOMBRE Field Value = PEDRO
Field Name = EDAD Field Value = 10
Field Name = FECHA Field Value = 24/12/2004

Pero si intento hacer una consulta del tipo:
Código
  1. SELECT EDAD FROM datos.csv WHERE NOMBRE='MARIO'

Me devuelve esto:



¿Qué se me está escapando?
Muchas gracias.

DoEvents! :P
2  Programación / Scripting / [DUDA] [awk] Reemplazar los bloques de texto en todas las combinaciones en: 9 Octubre 2014, 08:52 am
Hola chicos, a ver si alguno me puede ayudar.

Estoy tratando de dividir unas variables COBOL para cada nivel redefine usando awk.

Hay que ver la lectura: http://programacioneinformaticafacil.blogspot.com.es/2011/07/cobol-redefines.html

Me explico:

  • El primera palabra de la línea es el número que indica el nivel.
  • Todos las variables de la líneas siguientes que tengan un nivel inferior, formarán un grupo de variables.
Ejemplo:

Código:
10 HOLA.
    15 PILA PIC XX.
        20 DESBORDAMIENTO PIC X.
        20 AMIGOS PIC X.
    15 WHATSUP PIC XX.

  • La segunda palabra de la línea es el nombre del bloque de variables.
  • Un redefines funciona de la siguiente manera:
    REDEFINES NOMBRE_VAR significa que el bloque de variables de NOMBRE_VAR podría ser sustituido por el siguiente grupo de variables.

Estoy tratando de conseguir todas las posibles combinaciones de sustituciones redefines.

Basta de teoría, veamos un ejemplo, con este input:

Código:
01 SUBSCRIBERS.
    05 TYPE-OF-NAME PIC X.
    05 FILLER PIC X(100).
    05 HELLO REDEFINES FILLER.
      10 HELLO1 PIC X(50).
      10 HELLO2 PIC X(25).
      10 HELLO3 PIC X(25).
    05 STACK REDEFINES FILLER.
      10 STACK1 PIC X(90).
      10 DERE2 PIC 9(10)
         20 DELE3 REDEFINES DERE2.
             25 DELE34 PIC X(10).
    05 LOL PIC 9(9).

Devolvería estos diferentes outputs:

output 1:

Código:
01 SUBSCRIBERS.
    05 TYPE-OF-NAME PIC X.
    05 FILLER PIC X(100).
    05 LOL PIC 9(9).

output 2:

Código:
01 SUBSCRIBERS.
    05 TYPE-OF-NAME PIC X.
    05 HELLO REDEFINES FILLER.
      10 HELLO1 PIC X(50).
      10 HELLO2 PIC X(25).
      10 HELLO3 PIC X(25).
    05 LOL PIC 9(9).

output 3:

Código:
01 SUBSCRIBERS.
    05 TYPE-OF-NAME PIC X.
    05 STACK REDEFINES FILLER.
      10 STACK1 PIC X(90).
      10 DERE2 PIC 9(10)
    05 LOL PIC 9(9).

output 4:

Código:
01 SUBSCRIBERS.
    05 TYPE-OF-NAME PIC X.
    05 STACK REDEFINES FILLER.
      10 STACK1 PIC X(90).
      20 DELE3 REDEFINES DERE2.
             25 DELE34 PIC X(10).
    05 LOL PIC 9(9).


Yo lo he intentado de la siguiente manera:

Código
  1. #!/bin/bash
  2.  
  3. awk 'BEGIN {
  4.  i=0;
  5.  j=0;
  6.  ant_l=99;
  7. } {
  8.  
  9.  campo=$4;
  10.  
  11.  if ($0 ~ /REDEFINES/) {
  12.    lvl=$1;
  13.    if (lvl < ant_l) {
  14.      ant_l=lvl
  15.    }
  16.    if ($1 > ant_l) {
  17.      arr[j]=arr[j-1]"\n";
  18.    } else {
  19.      for (x=0; x < (i-1); x++) {
  20.        arr[j]=arr[j] arrbase[x]"\n";
  21.      }
  22.    }
  23.    arr[j]=arr[j] $0"\n";
  24.    j++;
  25.  } else if ($1 > ant_l) {
  26.    arr[j-1]=arr[j-1] $0"\n";
  27.  } else {
  28.    arrbase[i]=$0;
  29.    ++i;
  30.  }
  31. }
  32.  
  33. END {
  34.  for (x=0; x<i; x++){
  35.    print arrbase[x]
  36.  }
  37.  for (x=0; x<j; x++){
  38.    print arr[x]
  39.  }
  40. }' "$1"
  41.  

Y este es el resultado:


Código:
01 SUBSCRIBERS.
  05 TYPE-OF-NAME PIC X.
  05 FILLER PIC X(100).
  05 LOL PIC 9(9).

01 SUBSCRIBERS.
  05 TYPE-OF-NAME PIC X.
  05 HELLO REDEFINES FILLER.
    10 HELLO1 PIC X(50).
    10 HELLO2 PIC X(25).
    10 HELLO3 PIC X(25).

01 SUBSCRIBERS.
  05 TYPE-OF-NAME PIC X.
  05 STACK REDEFINES FILLER.
    10 STACK1 PIC X(90).
    10 DERE2 PIC 9(10)

01 SUBSCRIBERS.
  05 TYPE-OF-NAME PIC X.
  05 STACK REDEFINES FILLER.
    10 STACK1 PIC X(90).
    10 DERE2 PIC 9(10)

      20 DELE3 REDEFINES DERE2.
        25 DELE34 PIC X(10).

Obviamente, el algoritmo está mal planteado, y no devuelve el resultado esperado.
¿Algún awk hacker en la sala?  :rolleyes:
O al menos alguna pista para desarrollar el algortimo.

Gracias.
DoEvents! :P
3  Programación / PHP / ¿Crear vistas temporales en php+mysqli ? en: 21 Febrero 2013, 22:02 pm
Hola a todos, planteo una duda que yo creo que es bastante simple. He buscado, pero todavía no he encontrado una solución.

Tengo un sistema de usuarios en el cual se repite mucho una subconsulta, la cual varía según una opción que elige.
Quería saber si hay alguna forma de guardar el resultado para no tener que perder tiempo y repetir código.

Estuve buscando información y las vistas hacen lo que necesito. El problema es que son generales puesto que afectan a toda mi base de datos y quedan guardadas, así que después las tendría que borrar. :'(

Busco la manera de hacer algo así como una vista temporal individual para cada usuario.

Espero haberme explicado bien.
Gracias.
4  Programación / Bases de Datos / [mySQL] ¿Simplificar esta consulta? en: 15 Febrero 2013, 01:58 am
Tengo la siguiente tabla y consulta: Ver en SqlFiddle.
Ahí extraigo todos los ids de los elementos que tienen cm_min y cm_max dentro del rango ingresado, en este caso 13 y 66.

¿Se os ocurre alguna forma de simplificar esta consulta?

Gracias.
DoEvents! :P
5  Sistemas Operativos / GNU/Linux / Problema con la velocidad de subida en Ubuntu 12.10 en: 7 Febrero 2013, 02:06 am
Tengo una velocidad de descarga normal, pero cuando intento subir archivos va como una tortuga (es casi nula).
Después fui a Windows y subo archivos a una velocidad normal.
Hice un test en:
Código:
http://www.speedtest.net/
Y me devolvió:
Código:
Upload test error
Iba a subir una captura... ¡pero no puedo! :-\ :xD
¿Qué pasa aquí? :-\

Aprovecho para preguntar otra duda:
Tengo el CPU al 35% de normal. Me puse a mirar los procesos y las webs con flash y el compiz consumen una autentica barbaridad.

Agradecería cualquier ayuda.
DoEvents! :P
6  Programación / Programación Visual Basic / [RETO] Project Euler 4 en: 2 Febrero 2013, 17:22 pm
Un número palíndromo es aquel que se lee igual si lo damos la vuelta, ejemplos:
Código:
98789
121
345543

El palíndromo más grande de la multiplicación de dos números de dos cifras es:
Código:
9009 = 91 X 99

¿Cuál sería el palíndromo más grande de la multiplicación de dos números de TRES cifras?



Normas del reto:

1.-NO es válido precargar valores.

2.-Estructura de la función:
Código
  1. Public Function PE4_Psyke1(Optional Byval lCifras As Long = 3) As Double

3.-La función debe de ser válida para todas las cifras que se le pasen por el argumento.

4.-El resultado correcto es:
Código:
906609

Reto original:
Código:
http://projecteuler.net/problem=4

DoEvents! :P
7  Programación / Programación Visual Basic / [RETO] Project Euler 3 en: 31 Enero 2013, 13:12 pm
Los factores primos de 13195 son 5, 7, 13 and 29.
¿Cual es el factor primo más grande del numero 600851475143?

Debe devolver el número:
Código:
6857

Código:
http://projecteuler.net/problem=3

Estructura:
Código
  1. Public Function ProyectEuler3(Optional ByVal lNumber As Double = 600851475143) As Double

DoEvents! :P
8  Media / Diseño Gráfico / Consejos para capturar pantalla en diferentes dispositivos en: 25 Enero 2013, 09:14 am
Pues resulta que quiero hacer algo similar a esto:






¿Cómo podría sacar capturas de pantallas de una web desde diferentes dispositivos? :huh:
Quiero sustituir esas imágenes por unas de mi página. :)

Agradezco cualquier ayuda. ;)
Gracias.

DoEvents! :P
9  Programación / Programación Visual Basic / [RETO] Project Euler 2 en: 24 Enero 2013, 19:05 pm
Generar algoritmo que devuelva la suma de los números pares de la serie de Fibonacci menores a 4000000.

Info:
Código:
http://projecteuler.net/problem=2
http://es.wikipedia.org/wiki/Sucesi%C3%B3n_de_Fibonacci

La función es correcta si devuelve:
Código:
4613732

Estructura a seguir:
Código
  1. Private Function NOMBREFUNCION(Optional lLimit As Long = 4000000) As Long

DoEvents! :P
10  Programación / Programación Visual Basic / [RETO] Project Euler 1 en: 23 Enero 2013, 12:15 pm
¿Qué os parece si hacemos todos los retos de Proyect Euler ?
Después se podría poner una chincheta con todos los ejercicios guardados. :)

¿Empezamos por el 1?
Código:
http://projecteuler.net/problem=1

DoEvents! :P
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines