LiveCode Forums.

Code: Select all

on open_sock
Transfer file bla bla
sql_select
end open_sock

on sql_select
select bla bla bla
calculate something
show_message
end sql_select

on show_message
answer bla bla bla
end show_message

Code: Select all

####### SECTION 1

 put t_array["vBestellnummer"] into tNames
 put s_array["vSendungsnummern"] into tIds

#Example  t_array["vBestellnummer"] 
#AU123
#AU456
#AU789

#Example s_array["vSendungsnummern"]
# AU123 A123
# AU456 B456

   set itemdel to TAB
   
   ## Loop through all NAME pairs
   repeat for each line tLine in tNames
      put item 1 of tLine & TAB into tItem
      put lineoffset(tItem,tIds) into tOffset
      
      ## No match, modify this line if you want to add an empty ITEM 
      ## to the current NAME line or whatever you want to do in that case
      
      if tOffset = 0 then
         put tab into item 2 of line tOffset of tIds
         put tLine & TAB & item 2 of line tOffset of tIds & CR after v_order
         
         next repeat
         
      else
         
         ## repeat for each is READ only, so we just create a new list form the resulting data:
         put tLine & TAB & item 2 of line tOffset of tIds & CR after v_order # [b]<- This is the Target for section 1[/b]
         
      end if
   end repeat

delete char -1 of v_order
   
######### RESULT:
# AU123 A123
# AU456 B456

######################################## Next Section: Match if DHL, DPD...
####### SECTION 2

#Example  t_array["vVersandart2"]
#AU123 DHL
#AU456 DPD
#AU789 GLS

#Example v_order (result from the 1st section)
# AU123 DHL123
# AU456 DHL456



put v_order into tNames
   put t_array["vVersandart2"] into tIds
   set itemdel to TAB
   
   ## Loop through all NAME pairs
   repeat for each line tLine in tNames
      put item 1 of tLine & TAB into tItem
      put lineoffset(tItem,tIds) into tOffset
      
      ## No match, modify this line if you want to add an empty ITEM 
      ## to the current NAME line or whatever you want to do in that case
      
      if tOffset = 0 then
         
         next repeat
         
      else
         
         ## repeat for each is READ only, so we just create a new list form the resulting data:
         put tLine & TAB & item 2 of line tOffset of tIds & CR after v_order2 # [b]<- This is the Target for section 2[/b]
         
         
         
         
         
      end if
   end repeat

   delete char -1 of v_order2
   
   ######### RESULT:
# AU123 A123 DHL
# AU456 B456 DPD


######################################## Next Section: Match if paid
####### SECTION 3


#Example  t_array["paid"]
#AU123 yes
#AU456 no
#AU789 no

#Example v_order2 (result from the 2st section)
# AU123 DHL123 A123
# AU456 DHL456 B456



#   (..) with v_order3, v_order4, v_order5, v_order6

Code: Select all

...
repeat for each line tLine in tNames
     ## Do your stuff here...
     ## ...
     wait 0 with messages
end repeat
...