Zeus IDE

Code: Select all

    FieldXX
    FieldXX
    FieldXX
    FieldXX
    FieldXX
    FieldXX
    FieldXX
    FieldXX
    FieldXX
    FieldXX
    FieldXX

Code: Select all

    Field00
    Field01
    Field02
    Field03
    Field04
    Field05
    Field06
    Field07
    Field08
    Field09
    Field10

Code: Select all

--
--        Name: Numbers Macro
--
--      Author: Jussi Jumppanen
--
--    Language: Lua Macro
--
-- Description: This simple Lua macro will replace a column marked area
--              into a series of incremental numbers. To use the macro
--              column mark a range of lines and then run the macro.
--
--  How To Run: All Zeus macros can be run using the macro execute menu
--              item or they can be bound to the keyboard or they can
--              be attached to the macro drop down or popup menus.
--
function key_macro()
  -- macro only works for read/write documents.
  if (is_read_only() == 1) or (is_document() == 0) then
    message("This macro can only be used with a writable document.")
    beep()
    return
  end

  -- macro only works for marked documents
  if is_marked() == 0 then
    message("This macro needs a column marked area.")
    beep()
    return
  end

  -- the initial value
  local initial_value = "0"

  -- ask for a user supplied decimal number
  local value = user_input("Decimal Value:", initial_value)

  if string.len(value) == 0 then
    message("Operation cancelled by user!")
    return
  end

  -- get the marked text details
  local top   = get_marked_top()
  local range = get_marked_bottom() - top + 1

  -- disable screen updates
  screen_update_disable()

  -- delete the marked area
  MarkDeleteEx()

  -- convert the number to a character
  local offset = string.format("%d", value)

  -- maximum number
  local max_number = range - 1 + offset

  -- the maximum length
  local max_length = string.len(string.format("%s", max_number)) - 1

  -- comment the lines selected
  for i = 0, range - 1, 1 do
    -- build the number
    local number = string.format("%s", i + offset)

    -- save the current cursor
    cursor_save()

    for k = string.len(number), max_length, 1 do
      -- write out the padding
      write("0")
    end

    -- write out the number
    write(number)

    -- restore cursor
    cursor_restore()

    -- move to the next line
    MoveLineDown()
  end

  -- restore screen updates
  screen_update_enable()
end

key_macro() -- run the macro