MASPC 1/MASPC_1.iso/CursoWordI/ABUSCA.DXR/00069.ls

Text File | 1998-07-20 | 806 b | 23 lines

on ProcessT2 firstMember, source
  set CurrLine to 0
  set currMember to the number of member firstMember
  set total to the number of lines in field source
  repeat with i = 1 to total
    set aux to line i of field source
    if chars(aux, 1, 2) = "TT" then
      if the type of member currMember = #field then
        set nLin to the number of lines in field currMember
        if nLin > 1 then
          set the text of field currMember to line 1 to nLin - 1 of field currMember
        end if
      end if
      set currMember to currMember + 1
      set currMemberName to chars(aux, 1, 5)
      set the name of member currMember to currMemberName
      set the text of field currMemberName to EMPTY
      next repeat
    end if
    put aux & numToChar(13) after field currMemberName
  end repeat
end