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

 

 


Tema destacado: Top 20 herramientas Hacking más populares de 2020


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 128
1  Programación / Programación Visual Basic / Re: [DUDA] Error en ADO al poner un WHERE en la consulta en: 2 Febrero 2015, 16:42 pm
Hola MCKSys:)

Aún compilado me da el mismo error...



¿Alguna idea?
Si quito el where funciona perfecto.
Esto es muy raro...  :-\

DoEvents! :P
2  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
3  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
4  Programación / Programación Visual Basic / Re: [AYUDA] CopyMem Array VarTypes en: 8 Junio 2013, 19:19 pm
Mírate esto:

Código:
http://msdn.microsoft.com/en-us/library/aa263420(v=vs.60).aspx

DoEvents! :P
5  Programación / Programación Visual Basic / Re: Función Enviar Archivo VirusTotal (Escanea) en: 26 Mayo 2013, 02:46 am
Estaría guay que parsearas el JSON y devolvieras un objeto con las propiedades del mismo.

DoEvents! :P
6  Programación / Programación Visual Basic / Re: [APORTE] RC4 ASM en linea en: 14 Abril 2013, 17:06 pm
Culpa mía que no leí bien el post.  :-[

DoEvents! :P
7  Programación / Programación Visual Basic / Re: Manejo de Ventana Externa en: 14 Abril 2013, 13:46 pm
¿Estás seguro de que sacas bien el handle de la ventana? ¿cómo lo sacaste?

Una vez te asegures de que es el handle, si no funciona puedes:
  • Opción sencilla: hacer repetir la instrucción de ocultar
  • Opción compleja: hookear las llamadas a las apis del programa.

Suerte. ;)

DoEvents! :P
8  Programación / Programación Visual Basic / Re: [APORTE] RC4 ASM en linea en: 14 Abril 2013, 13:31 pm
Estaría guay que pusieras comentado el código en ensamblador.

DoEvents! :P
9  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.
10  Programación / Bases de Datos / Re: [mySQL] ¿Simplificar esta consulta? en: 15 Febrero 2013, 21:34 pm
Hola chicos, gracias por responder.
Resulta que repasando el esquema que tengo me di cuenta de que lo que necesito es otra cosa diferente.  ;-) :¬¬

Dados dos valores v1 y v2:
Sacar la fila anterior más pequeña y posterior más grande, y todas las filas que tengan el rango entre v1 y v2.

No parece muy difícil.  :)
Esta vez, creo que me expliqué bien y todo.  :rolleyes:

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