LiveCode Forums.

Code: Select all

put "Bob Smith" into line 7 of field "Data"

Code: Select all

on mouseUp
  set the opaque of me to false
  
  local theCardName
  put "Entries" into theCardName
  put the label of me after theCardName
  
  ## It is always a good idea to put field contents into variables,
  ## since the accesstime of variables is MUCH faster than for fields!
  ## May not be important in small scripts like this one, but anyway :-)
  put fld "HorsesName" into tHorsie
  put fld "RidersName" into tRider
  
  if tHorsie = empty OR tRider = empty then
    answer "Please enter all informations!"
    exit mouseup
  end if
  ## Done!
  ## Avoiding "else" whereever possible makes scripts much more readable!
  
  ## All infos are present we can continue:
  ## 1. Prepare the complete new entry line for later use, whereever we need to insert it
  put field "BridleNumber" & tab & tHorsie & tab & tRider into tEntry
  
  ## First we need some more info like the NUMBER of the entries already made,
  ## since if we want to shuffle 7 lines up or down we need to know if we have enough
  ## lines to do so, know what I mean?
  
  ## Store field into variable!
  put field "Entries" of card "Entries5" into tTable
  put the num of lines of tTable into numoftablelines
  
  ## 2. Check if tRider is already in your table
  ## I created a function that will return all duplicte entries from a field
  ## or empty if no doublettes were found
  ## We pass the riders name and the field where this should be looked for
  put fDoublettes(tRider,tTable) into tDoublettes
  put the num of lines of tDoublettes into tDoublettes_numoflines
  
  ## No double entry so far:
  if tDoublettes = empty then
    put tEntry & CR after field "Entries" of card "Entries5"
    
    ## Done for this time, so time to say good-bye:
    exit mouseup
  end if
  
  ## Entry found!
  ## Now we need to check WHERE to insert the new entry!
  ## Only one doublete:
  if tDoublettes_numoflines = 1 then
    set itemdel to TAB
    
    ## We fetch the line number of that entry:
    put item 2 of tDoublettes into tLine_number
    
    ## Are there enough lines to skip 7 lines?
    if (tLine_number + 7) <= numoftablelines then
      put tEntry & CR after line (tLine_number + 7) of field "Entries" of card "Entries5"
    else
      
      ## I do not know what you would do in this case????
      ## I wou.ld simply put the entry after the other entries:
      put tEntry & CR after field "Entries" of card "Entries5"
    end if
    
    ## Done for this time, so time to say good-bye:
    exit mouseup
  end if
  
  ## OJK, now there are more than 1 doublettes in the table, but I leave the rest up to you.
  ## As you see, the logis for this is not too trivial!
  
  ## Good luck :-)
end mouseUp


function fDoublettes tWhat,tWhere
  
  ## Go through all line and check. if found collct and return these lines AND the numbers of the lines!!!!!
## repeat for each is insanely fast, but we have no counter there like in "repeat with i = x to y", 
## so we make our own which is still much faster than "repeat with..."!
  put 0 into tLine
  repeat fore each line i in tWhere

## Increment "custom" counter
    add 1 to tLine
    put empty into retvalue
    
    ## Is tWhat in tWhere?
    if i contains tWhat then
      
      ## Yes, then collect the line and its number
      put i & TAB & tLine & CR after retvalue
    end if
  end repeat
  
  ## Get rid of trailing CR
  delete char -1 of retvalue
  return retvalue
end fDoublettes

Code: Select all

function fDoublettes tWhat,tWhere 

  ## Go through all line and check. if found collct and return these lines AND the numbers of the lines!!!!! 
## repeat for each is insanely fast, but we have no counter there like in "repeat with i = x to y", 
## so we make our own which is still much faster than "repeat with..."! 
  put empty into retvalue 
  put 0 into tLine 
  repeat fore each line i in tWhere 

## Increment "custom" counter 
    add 1 to tLine 
    
    ## Is tWhat in tWhere? 
    if i contains tWhat then 
      
      ## Yes, then collect the line and its number 
      put i & TAB & tLine & CR after retvalue 
    end if 
  end repeat 
  
  ## Get rid of trailing CR 
  delete char -1 of retvalue 
  return retvalue 
end fDoublettes

Code: Select all

...
 ## We fetch the line number of that entry: 
    put item 2 of tDoublettes into tLine_number 

   #############################
   ANSWER tLine_Number
   ## Then check what you see in the dialog!
   ## This will give us a first hint, maybe ;-)
   ## Don't forget to remove these lines later!
   #############################
    
    ## Are there enough lines to skip 7 lines? 
    if (tLine_number + 7) <= numoftablelines then 
      put tEntry & CR after line (tLine_number + 7) of field "Entries" of card "Entries5" 
    else
...