Topic: Items in list

[debgun]

Is there a way to figure out how many items are in a list?  I'm trying to use a counter that will loop through code until the "end of list".  Here is what I've got so far.

Code: [Select]

(setq colnum 5)
(For colnum to "end of list"
((eq (nth colnum Header) (vla-get-tagstring att))
(vla-put-textstring att (nth colnum data)))
(setq colnum (1+ colnum))
Thanks!

[T.Willey]

Command: (length '(1 2 3))
3

You can also use ' foreach '.

Code: [Select]

(foreach n list
    (... do something to n )
)


[CAB]

Don't understand exactly what you are doing but like Tim suggested use the foreach

Code: [Select]

(setq HeaderList '("A" "B" "C"))
(setq colnum 5)
(Foreach Header HeaderList
  (if (eq Header (vla-get-tagstring att))
    (vla-put-textstring att (nth colnum data)))
  )
  (setq colnum (1+ colnum))
)

[CAB]

Using the while
Using an index

Code: [Select]

(setq HeaderList '("A" "B" "C"))
(setq colnum 5) ; count up from 5, must be > 5 in the list
(while (setq Header (nth colnum HeaderList))
  (if (eq Header (vla-get-tagstring att))
    (vla-put-textstring att (nth colnum data)))
  )
  (setq colnum (1+ colnum))
)
Using an offset index

Code: [Select]

(setq HeaderList '("A" "B" "C"))
(setq colnum 5) ; count up from 0
(while (setq Header (nth (- 5 colnum) HeaderList))
  (if (eq Header (vla-get-tagstring att))
    (vla-put-textstring att (nth colnum data)))
  )
  (setq colnum (1+ colnum))
)

[Lee Mac]

One more, 'mapcar' with counter:

Code: [Select]

(setq i -1)
(mapcar
  (function
    (lambda (x) (setq i (1+ i))
      (if (eq x (vla-get-TagString att))
        (vla-put-TextString att (nth i data))))) HeaderList)


[debgun]

Thank you for all your help!