Report with List.

procedure( vimaldevlpr_compare()
let((out, in1, in2, str, x, inList)
out=outfile("report.rpt")
in1=infile("report1.rpt")
in2=infile("report2.rpt")
while(gets(str, in1)
when(str
x = car(parseString(str ",\n"))
inList = cons(x, inList)
)
)
close(in1)
while(gets(str, in2)
when(str
x = car(parseString(str ",\n"))
foreach(y inList
when(x == y
fprintf(out,"\n%L", x)
)
)
)
)
close(out)
close(in2)
))

Thanks for the reply sir

I have an another doubt  can you please help me.

here it check for one list i want to check multiple fiels in different list  i have attached the code

procedure( vimaldevlpr_compare()
let((out, in1, in2, str, x, v,  inList, inList1)
out=outfile("report.rpt")
in1=infile("report1.rpt")
in2=infile("report2.rpt")
while(gets(str, in1)
when(str
x = car(parseString(str ",\n"))

v = cdr(parseString(str ",\n"))
inList = cons(x, inList)

inList1 = cons(v, inList)
)
)
close(in1)
while(gets(str, in2)
when(str
x = car(parseString(str ",\n"))

v = cdr(parseString(str ",\n"))
foreach(y inList

foreach(m inList1
if(x == y && v ==m then

print("True")

else
fprintf(out,"\n%L,%s", x, "False")

)
)
)
)
)
close(out)

For example"

Report 1:                                                                                               Report 2:

Ref des                   Symname                                           Ref des                      Sym name

abc                           123                                                       abc                              123

bcd                           444                                                        bcd                              555

ddd                           555                                                        ddd                             666

Result:

Ref des                  Symname

bcd                          False

ddd                          False

As like this methods i have to do  can please guide me how to do.

I would personally use a hash table for this. With this you can store a refdes vs symname. The check with report 2 is then also esier:

procedure( vimaldevlpr_compare()
    let( (out, in1, in2, str, x, v,  data)
    out=outfile("report.rpt")
    in1=infile("report1.rpt")
    in2=infile("report2.rpt")
    data = makeTable("data")
    while(gets(str, in1)
        when(str
            x = car(parseString(str ",\n"))
            v = cdr(parseString(str ",\n"))
            data[x] = v
        )
    )
    close(in1)
    while(gets(str, in2)
        when(str
            x = car(parseString(str ",\n"))
            v = cdr(parseString(str ",\n"))
            if(data[x]
            then
                ;refdes present, check for correct sym name
                if(data[x] == v
                then
                    print("True")
                else
                    fprintf(out,"\n%L,%s: %s - %s", x, "False", data[x], v)
                )
            else
                ;refdes unknown
                fprintf(out,"\n%L,%s", x, "Unknown")
            )
        )
    )
    close(out)
)
)

Bram

Thank you For your reply Bram

It comes for me E- *Error*fprintf/sprintf: format spec: incompatible with data- "Format is "\n%L,%s: %s - %s', argument #3 is (\"\\\"RESC1608X58NA\\\"\")"

please say how to clear this

Thank you For your reply Bram

It comes for me E- *Error*fprintf/sprintf: format spec: incompatible with data- "Format is "\n%L,%s: %s - %s', argument #3 is (\"\\\"RESC1608X58NA\\\"\")"

please say how to clear this

An example report file would be handy to have.

The issue that i see is that cdr() returns a list, printing a list with %s does not work.

Change the lines with cdr() to this:

v = cadr(parseString(str ",\n"))

This will return the 2nd element of the parsed string, hopefully that is the field which you are looking for.

If the report is more complex then it is better to use a regular expression to extract the information you need.

Thanks a lot..