ossiejhmoore

Untitled

Oct 12th, 2017
342
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.72 KB | None | 0 0
  1. THIS OUTPUT IS GENERATED BY THE SCRIPT BELOW...
  2.  
  3. ============== OUTPUT ============
  4.  
  5. 16:44:23,516 INFO ===== before ====
  6. 16:44:23,516 INFO R<'id'=1,'type'=1,'name'='item 1'>
  7. 16:44:23,516 INFO R<'id'=2,'type'=2,'name'='item 2'>
  8. 16:44:23,516 INFO R<'id'=3,'type'=0,'name'='item 3'>
  9. 16:44:23,516 INFO R<'id'=4,'type'=1,'name'='item 4'>
  10. 16:44:23,516 INFO R<'id'=5,'type'=2,'name'='item 5'>
  11. 16:44:23,516 INFO R<'id'=6,'type'=0,'name'='item 6'>
  12. 16:44:23,516 INFO R<'id'=7,'type'=1,'name'='item 7'>
  13. 16:44:23,516 INFO R<'id'=8,'type'=2,'name'='item 8'>
  14. 16:44:23,516 INFO R<'id'=9,'type'=0,'name'='item 9'>
  15. 16:44:23,531 INFO R<'id'=10,'type'=1,'name'='item 10'>
  16. 16:44:23,531 INFO ===== after ====
  17. 16:44:23,531 INFO R<'id'=1,'type'=1,'name'='item 1'>
  18. 16:44:23,531 INFO R<'id'=3,'type'=0,'name'='item 3'>
  19. 16:44:23,531 INFO R<'id'=4,'type'=1,'name'='item 4'>
  20. 16:44:23,531 INFO R<'id'=6,'type'=0,'name'='item 6'>
  21. 16:44:23,531 INFO R<'id'=7,'type'=1,'name'='item 7'>
  22. 16:44:23,531 INFO R<'id'=9,'type'=0,'name'='item 9'>
  23. 16:44:23,531 INFO R<'id'=10,'type'=1,'name'='item 10'>
  24.  
  25. ======================= SCRIPT SOURCE ===================
  26. List names
  27. RecArray data
  28. Record rec
  29. Integer i
  30. Integer type
  31.  
  32. names = { "id", "type", "name" }
  33. data = RecArray.Create(names)
  34.  
  35. for i = 1 to 10
  36. type = i % 3
  37. RecArray.AddRecord( data , { i, type, Str.Format("item %1", i) } )
  38. end
  39.  
  40. echo("===== before ====")
  41. for rec in data
  42. echo(rec)
  43. end
  44.  
  45.  
  46. //work from the end to the begining so the index
  47. //value of a given record does not change as you
  48. //drop records...
  49. for i = Length(data) downto 1
  50. rec = data[i]
  51. if (rec.type == 2)
  52. RecArray.DropRecord(data, i)
  53. end
  54. end
  55.  
  56. echo("===== after ====")
  57. for rec in data
  58. echo(rec)
  59. end
Advertisement
Add Comment
Please, Sign In to add comment