Compare list items in if condition.

Thanks for the reply! I was not sharing the actual code as the logic I use if not that good :)

But here I am sharing my actual code. I am reading 2 files, one line at a time.

From the first file, each line is split by ‘,’ and listed as item1-7.

From second file, each line is split by ‘:’ and listed as item8-7

Item 2 and item9 are numbers that being compared in IF condition – which doesn’t work. Can you please help look into this. Thanks!

procedure(readcsv(ln)
 cline=ln;
 pline=parseString(cline ",")
  i=length(pline)
  printf("Length is %d\n" i)
   item7 = nth(i-1 pline)
   item6 = nth(i-2 pline)
   item5 = nth(i-3 pline)
   item4 = nth(i-4 pline)
   item3 = nth(i-5 pline)
   item2 = nth(i-6 pline)
   item1 = nth(i-7 pline)
 ; printf("ITEM'S 1-7:\n %L\n %L\n %L\n %L\n %L\n %L\n" item1 item2 item3 item4 item5 item6 item7)
port1=infile("codes.csv")
  when(port1
   while(gets(lne port1)
     lne = substring(lne 1 strlen(lne)-1)
    ;printf("LINE: %s\n" ln)
     line=parseString(lne ":")
     len_line=length(line)
     item8=nth(len_line-1 line)
     item9=nth(len_line-2 line)
    ;printf("ITEM'S 8-9:\n %L\n %L\n" item7 item8)
     if( (item2 == item9); if condition is always skipped

       then
       item10 = item8    
       printf("ITEM 10 is:%L\n" item8)
       lista=list(item1 item2 item3 item4 item5 item6 item7 item10)
      else
      item10 = "UNKNOWN"

       lista=list(item1 item2 item3 item4 item5 item6 item7 item10)
     );end if
    );end while
   );end when
printf("LIST ITEM'S:%L\n" lista)
lista
);end proc readcsv openok post

;-----------------------------------
myTable = makeTable("atable1" 0)
port=infile("postout1")
count=0
listN='()
listNew='()
when(port
   while(gets(ln port)
ln = substring(ln 1 strlen(ln)-1)
;   printf("PORT LINE: %s\n" ln)
     listb=readcsv(ln)
     listN = cons(listb listN)
    )
)

Thanks for the reply! I was not sharing the actual code as the logic I use if not that good :)

But here I am sharing my actual code. I am reading 2 files, one line at a time.

From the first file, each line is split by ‘,’ and listed as item1-7.

From second file, each line is split by ‘:’ and listed as item8-7

Item 2 and item9 are numbers that being compared in IF condition – which doesn’t work. Can you please help look into this. Thanks!

procedure(readcsv(ln)
 cline=ln;
 pline=parseString(cline ",")
  i=length(pline)
  printf("Length is %d\n" i)
   item7 = nth(i-1 pline)
   item6 = nth(i-2 pline)
   item5 = nth(i-3 pline)
   item4 = nth(i-4 pline)
   item3 = nth(i-5 pline)
   item2 = nth(i-6 pline)
   item1 = nth(i-7 pline)
 ; printf("ITEM'S 1-7:\n %L\n %L\n %L\n %L\n %L\n %L\n" item1 item2 item3 item4 item5 item6 item7)
port1=infile("codes.csv")
  when(port1
   while(gets(lne port1)
     lne = substring(lne 1 strlen(lne)-1)
    ;printf("LINE: %s\n" ln)
     line=parseString(lne ":")
     len_line=length(line)
     item8=nth(len_line-1 line)
     item9=nth(len_line-2 line)
    ;printf("ITEM'S 8-9:\n %L\n %L\n" item7 item8)
     if( (item2 == item9); if condition is always skipped

       then
       item10 = item8    
       printf("ITEM 10 is:%L\n" item8)
       lista=list(item1 item2 item3 item4 item5 item6 item7 item10)
      else
      item10 = "UNKNOWN"

       lista=list(item1 item2 item3 item4 item5 item6 item7 item10)
     );end if
    );end while
   );end when
printf("LIST ITEM'S:%L\n" lista)
lista
);end proc readcsv openok post

;-----------------------------------
myTable = makeTable("atable1" 0)
port=infile("postout1")
count=0
listN='()
listNew='()
when(port
   while(gets(ln port)
ln = substring(ln 1 strlen(ln)-1)
;   printf("PORT LINE: %s\n" ln)
     listb=readcsv(ln)
     listN = cons(listb listN)
    )
)