Apple Reference & Presentation Library 1993 Spring/ARPL-Spring-93-Partner-Edition.iso/Applications/Networking & Communications/GraceLAN Network Mgr. DEMO/Excel 3.0 Macros/App Counter.mac

Excel Spreadsheet | 1993-03-07 | 10.4 KB | 141 lines | [XLM3/XCEL]

Sheet:
(0, 1)        AppCounter (a)
(0, 2)        command-option-a
(1, 0)        fileName
(1, 2)        Prompt for the app list export file
(2, 0)        fileNum
(2, 2)        Open the text file
(3, 2)        If can't open the file then
(4, 2)          report an error
(5, 2)          and stop
(6, 2)        end
(7, 1)
(8, 0)        appName
(8, 2)        Prompt for app name to count
(9, 1)
(10, 2)        Setup the report
(35, 1)
(36, 0)        appCount
(36, 2)        Initialize the app counter
(37, 0)        currUser
(37, 2)        Initialize the current user
(38, 0)        currZone
(38, 2)        Initialize the current zone
(39, 0)        currApp
(39, 2)        Initialize the app text field
(40, 1)
(41, 0)        lineRead
(41, 2)        read a line from the text file
(42, 2)        if eof or error, skip out of loop
(43, 2)        skip if blank line
(44, 2)        skip if app list heading
(45, 2)        skip if 2nd header line
(46, 1)
(47, 2)        if first char is a tab, then
(48, 0)        pos
(48, 2)        is there a matching app?
(49, 2)        if so then
(50, 2)          place the current user name
(51, 2)          place the current zone
(52, 0)        creat.pos
(54, 0)        tab1.pos
(55, 0)        tab2.pos
(58, 2)          select the next line
(59, 2)          and add 1 to the counter
(60, 2)        end
(61, 2)        else it's a name line
(62, 0)        in.pos
(63, 2)          set current user
(64, 0)        asof.pos
(65, 2)          and the current zone
(66, 2)        end
(67, 1)
(68, 2)        go back for another line
(70, 0)        done
(78, 1)
(79, 1)
(80, 1)
(81, 1)
(82, 1)
(83, 1)
(84, 1)
(85, 1)
(86, 1)
(87, 1)
(88, 1)
(89, 1)
(90, 1)
(91, 1)
(92, 1)
(93, 1)
(94, 1)
(95, 1)
(96, 1)
(97, 1)
(98, 1)
(99, 1)
(100, 1)
(101, 1)
(102, 1)
(103, 1)
(104, 1)
(105, 1)
(106, 1)
(107, 1)
(108, 1)
(109, 1)
(110, 1)
(111, 1)
(112, 1)
(113, 1)
(114, 1)
(115, 1)
(116, 1)
(117, 1)
(118, 1)
(119, 1)
(120, 1)
(121, 1)
(122, 1)
(123, 1)
(124, 1)
(125, 1)
(126, 1)
(127, 1)
(128, 1)
(129, 1)
(130, 1)
(131, 1)
(132, 1)
(133, 1)
(134, 1)
(135, 1)
(136, 1)
(137, 1)
(138, 1)
(139, 1)
(140, 1)
(141, 1)
(142, 1)
(143, 1)
(144, 1)
(145, 1)
(146, 1)
(147, 1)
(148, 1)
(149, 1)
(150, 1)
(151, 1)
(152, 1)
(153, 1)
(154, 1)
(155, 1)
(156, 1)
(157, 1)
(158, 1)
(159, 1)
(160, 1)
(161, 1)
(162, 1)
(163, 1)