LiveCode Forums.

Code: Select all

on mouseUp
  put fld 1 into tValues
  put getMatches(tValues,"equal") into fld "equals"
  put getMatches(tValues,"divisor","500,1000,1500") into fld "divisors"
  put getMatches(tValues,"multiples","2500") into fld "multiples"
end mouseUp

function getMatches pValues,pType,pDivisors
  switch pType -- "equal","divisor"
    case "equal"
      repeat for each line l in pValues
        put word 1 of l & comma after tMatches[word 2 of l]
      end repeat
      break
    case "divisor"
      repeat for each line l in pValues
        repeat for each item i in pDivisors
          if word 2 of l mod i = 0 then
            put word 1 of l & comma after tMatches[i]
          end if
        end repeat
      end repeat
      break
    case "multiples"
      repeat for each line l in pValues
        repeat for each item i in pDivisors
          if word 2 of l mod i = 0 then
            put word 1 of l & comma after tMatches[i]
          else
            put word 1 of l & comma after tMatches["none"]
          end if
        end repeat
      end repeat
      break
  end switch
  combine tMatches by cr and tab
  return tMatches
end getMatches

Code: Select all

on mouseUp
   put field dataP into yourData
   sort yourData numeric
   repeat with y = 1 to the number of lines of yourData
         if line y of yourData = line (y + 1) of yourData then put y & "=" & (y + 1) & "," after equalList
   if line y of yourData <> line (y + 1) of yourData then put cr after equalList
   end repeat
   answer equalList
end mouseUp

Code: Select all

on mouseUp
   put "10,20,30,30,30,40,50,50,60," into yourData
   replace "," with cr in yourData
    repeat with y = 1 to the number of lines of yourData
      put line y of yourData into tNum
      put y & "=" after line tNum of equalList
      end repeat
   filter equalList without empty
   put the itemdel into tOID
   set the itemdel to "="
   put empty into equalList2
   repeat for each line tLine in equalList
      if the num of items of tLine = 1 then next repeat
      put char 1 to -2 of tLine & cr after equalList2
   end repeat
   delete char -1 of equalList2
   answer equalList2
end mouseUp

Code: Select all

on mouseUp
   put field addProd into Prod
   put field addTir into Tir
   put Prod into theDataA["ColProd"]
   put Tir into theDataA["ColTir"]
   put  1 into theLineNo
   dispatch "AddData" to group "listProd" with theDataA, theLineNo
end mouseUp 

Code: Select all

on mouseUp 
   put the dgText of group "listProd" into quantTir
   repeat with y=1 to the number of lines of quantTir
      delete word 1to 2 of line y of quantTir
   end repeat
   sort quantTir numeric
   repeat with z = 1 to the number of lines of quantTir
      if line z of quantTir = line z+1 of quantTir then put z & cr & z+1 & cr into field qt1
   end repeat
end mouseUp

Code: Select all

on mouseUp
  put fld 1 into tList
  put empty into tArray
  repeat for each line i in tList
    put item 1 of i into tContent
    put item 2 of i into tKey
    put tContent & "," after tArray[tKey]
  end repeat
  ## ->  tArray:
  ## 2000[p1,p2,]
  ## 3000[p3,]
  ## 4000[p4,]

  ## Now we extract the content and display the KEYS and the CONTENT of the array!
  ## You may want to remove the trailing COMMAS ;-)
  repeat for each key tKey2 in tArray
    put tKey2 & ":" && tArray[tKey2] & CR after tNewList
  end repeat
  put tNewList into fld 2
  ## 2000: p1,p2,
  ## 3000: p3,
  ## 4000: p4,
end mouseUp

Code: Select all

put the dgText of group "listProd" into tList

Code: Select all

put fld qt4 into tList

Code: Select all

repeat for each key tKey2 in tArray
          put tKey2 into fld qp1
      put tArray[tKey2] & CR after tNewList
     end repeat
   
   repeat with newL = 1 to the number of lines in tNewlist
put line newL of tNewlist & cr after transList
put transList into fld "proP[newL]"
end repeat