How to add a string in this case

[BK]

Hello.

I want to output the final result in the same structure as the source below.

Is there any way?

Macro Macro4

Code:

Copy      Help

str cell_org
int i nRows
ExcelSheet es.Init(""); nRows=es.NumRows
for i 2 nRows+1
,es.GetCell(cell_org 1 i)

,,str numlist=
,,;23144646
,,;23145713
,,;23140581
,,;23144850
,,;23145630
,,;23144847
,,;23142419
,,;23145838
,,;23145856
,,;23145854
,,;23144845
,,;23145624
,,;23145842
,,;23145622
,,;23144842
,,;23144838
,,;23145814
,,;23144837
,,;23145609
,,;23144836

,out cell_org


;=============
;I want result value
;=============
str Reseult=
,;23144646 Apple
,;23145713 Apple
,;23140581 Apple
,;23144850 Apple
,;23145630 Apple
,;23144847 Apple
,;23142419 Apple
,;23145838 Apple
,;23145856 Apple
,;23145854 Apple
,;23144845 Mango
,;23145624 Mango
,;23145842 Mango
,;23145622 Mango
,;23144842 Mango
,;23144838 Mango
,;23145814 Mango
,;23144837 Mango
,;23145609 Mango
,;23144836 Mango
out Reseult

[Kevin]

Code:

Copy      Help

str numlist=
;23144646
;23145713
;23140581
;23144850
;23145630
;23144847
;23142419
;23145838
;23145856
;23145854
;23144845
;23145624
;23145842
;23145622
;23144842
;23144838
;23145814
;23144837
;23145609
;23144836

ARRAY(str) results numlists
numlists=numlist
str cell_org
int i nRows
ExcelSheet es.Init(""); nRows=es.NumRows
for i 2 nRows+1
,es.GetCell(_s 1 i)
,cell_org.formata("[]%s" _s)
for i 0 numlists.len
,if i<10
,,_s.getl(cell_org 1)
,,results[].format("%s %s" numlists[i] _s)
,else
,,_s.getl(cell_org 2)
,,results[].format("%s %s" numlists[i] _s)
out results;; results in ARRAY form
;;;if you want string uncomment the two lines below and comment out  the line above
;str Reseult=results
;out Reseult.trim

[BK]

Problem has been resolved with your help.
Thank you very much!!!