Data commit

Task/Text-processing-Max-licenses-in-use/Vedit-macro-language/text-processing-max-licenses-in-use.vedit

@@ -0,0 +1,27 @@
+File_Open("|(PATH_ONLY)\data\mlijobs.txt", BROWSE)
+
+#1 = 0          // Number of licenses active
+#2 = 0          // Max number of active licenses found
+
+Repeat(ALL) {
+    Search("|{OUT,IN}|W@", ADVANCE+ERRBREAK)
+    if (Match_Item == 1) {                      // "OUT"
+        #1++
+        if (#1 > #2) {                          // new high value
+            #2 = #1
+            Reg_Empty(10)                       // empty the time list
+        }
+        if (#1 == #2) {                         // same as high value
+            Reg_Copy(10, 1, APPEND)             // store time
+        }
+    } else {                                    // "IN"
+        #1--
+    }
+}
+
+Message("Maximum simultaneous license use is ")
+Num_Type(#2, LEFT+NOCR)
+Message(" at the following times:\n")
+Reg_Type(10)
+
+Buf_Quit(OK)