Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
NOMBRE,EDAD,FECHA
MARIO,30,24/12/2002
MARIA,90,24/12/2001
PEDRO,10,24/12/2004Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Environ("temp") & ";" _
& "Extended Properties=""text;HDR=Yes;FMT=Delimited(;)"";Persist Security Info=False"
Set oRS = oConn.Execute("select * from datos.csv")
Dim ofield As ADODB.Field
Do Until oRS.EOF
For Each ofield In oRS.Fields
Debug.Print "Field Name = " & ofield.Name & " Field Value = " & ofield.Value
Next ofield
oRS.MoveNext
LoopField 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/2004select EDAD from datos.csv where NOMBRE='MARIO'
10 HOLA.
15 PILA PIC XX.
20 DESBORDAMIENTO PIC X.
20 AMIGOS PIC X.
15 WHATSUP PIC XX. 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).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).
05 LOL PIC 9(9).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).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).#!/bin/bash
awk 'BEGIN {
i=0;
j=0;
ant_l=99;
} {
campo=$4;
if ($0 ~ /REDEFINES/) {
lvl=$1;
if (lvl < ant_l) {
ant_l=lvl
}
if ($1 > ant_l) {
arr[j]=arr[j-1]"\n";
} else {
for (x=0; x < (i-1); x++) {
arr[j]=arr[j] arrbase[x]"\n";
}
}
arr[j]=arr[j] $0"\n";
j++;
} else if ($1 > ant_l) {
arr[j-1]=arr[j-1] $0"\n";
} else {
arrbase[i]=$0;
++i;
}
}
END {
for (x=0; x<i; x++){
print arrbase[x]
}
for (x=0; x<j; x++){
print arr[x]
}
}' "$1"
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).
http://msdn.microsoft.com/en-us/library/aa263420(v=vs.60).aspx
