Re: tabstops fld

[yves COPPE]

Title: Re: tabstops fld

Hello,

I' have a fld with columns (tabstop property).
I'd like to pick the text of one column.
There is a XFCN from Rinaldi

put extractitems(fld "myFld","2",tab) into txtofColumn2

Is it possible to write a script that goes even fast ?
Is there a syntax in transcript ?

Thanks

So, with the help of a few emails to the user.list and good answers from the readers, here is the final script to extract differents columns of a tab fld :

function extractItem pFieldName, pItemNumber,delim
  local tempLine, tempItem,vListofItems,vListToReturn
   repeat for each line tempLine in pFieldName
     put "" into vListofItems
     repeat for each item tempItem in pItemNumber
      set itemDelimiter to delim
      put item tempItem of tempLine &delim after vListofItems
      set itemDelimiter to ","
    end repeat
    delete last char of vListofItems
    put vListofItems& return after vListToReturn
  end repeat
  set itemDelimiter to ","
  delete last char of vListToReturn
  return vListToReturn
end extractItem

Sample :

put extractitem(fld 1,"1,2,6",TAB) into anyVar

it extracts from fld 1 a tab-tab-return variable (=anyvar) with only the columns 1,2,6

and it works fine and fast

For a fld of 50 lines with 10 columns, I reach on a PowerMac G4 800 MHZ the same speed in Revolution (counted in ticks) as with the external of Rinaldi in Hypercard.

I haven't tried it yet on an iMac G3 400. I'll try it later and tell you.

Thanks to all who helped me�

--

Salutations.

Yves COPPE

Email : [EMAIL PROTECTED]