Data commit

Task/Abbreviations-simple/VBScript/abbreviations-simple.vb

@@ -0,0 +1,88 @@
+option explicit
+
+function iif(c,t,f) if c then iif=t else iif=f end if: end function
+function usrin(pr)  wscript.stdout.write vbcrlf &pr &": ":usrin= wscript.stdin.readline:end function
+
+sub do_abbrev
+  dim j, sm,n,n0,a
+  for each j in m
+    sm=trim(lcase(j.submatches(0)))
+    n0=iif (j.submatches(1)="",1,  j.submatches(1))
+    n=1
+    do
+      a=left(sm,n)
+      if not d.exists(a)  then
+        d.add a,sm
+      else
+        if len(a)=len(sm) then
+           d(a)=sm
+        elseif len(d(a))>len(a) then
+          d(a)=null
+        end if
+      end if
+      n=n+1
+    loop until n>len(sm)
+  next
+end sub
+'output sorted
+
+sub display
+  dim d2,k,j,kk,mm
+  set d2=createobject("Scripting.dictionary")
+  for each k in d
+      kk=d(k)
+    if not isnull(kk) then
+     if not d2.exists(kk) then
+       d2.add kk,k
+     else
+       d2(kk)= d2(kk) & " " & k
+     end if
+     end if
+  next
+  for each j in m
+    mm=trim(lcase(j.submatches(0)))
+    wscript.echo left(mm&space(15),15),d2(mm)
+  next
+  wscript.echo
+  set d2=nothing
+end sub
+
+sub test
+  wscript.echo vbcrlf&"test:"
+  dim a,i,k,s1
+  do
+    s1= lcase(usrin("Command?"))
+    if trim(s1)="" then wscript.quit
+    a=split(trim(s1)," ")
+    for i=0 to ubound(a)
+      if a(i)<>"" then
+        wscript.stdout.write iif (d.exists(a(i)), ucase(d(a(i)))," **ERROR**")& " "
+      end if
+    next
+  loop
+end sub
+
+'main program
+dim s:s=_
+   "add 1  alter 3  backup 2  bottom 1  Cappend 2  change 1  Schange  Cinsert 2  Clast 3 "&_
+   "compress 4 copy 2 count 3 Coverlay 3 cursor 3  delete 3 Cdelete 2  down 1  duplicate "&_
+   "3 xEdit 1 expand 3 extract 3  find 1 Nfind 2 Nfindup 6 NfUP 3 Cfind 2 findUP 3 fUP 2 "&_
+   "forward 2  get  help 1 hexType 4  input 1 powerInput 3  join 1 split 2 spltJOIN load "&_
+   "locate 1 Clocate 2 lowerCase 3 upperCase 3 Lprefix 2  macro  merge 2 modify 3 move 2 "&_
+   "msg  next 1 overlay 1 parse preserve 4 purge 3 put putD query 1 quit  read recover 3 "&_
+   "refresh renum 3 repeat 3 replace 1 Creplace 2 reset 3 restore 4 rgtLEFT right 2 left "&_
+   "2  save  set  shift 2  si  sort  sos  stack 3 status 4 top  transfer 3  type 1  up 1 "
+dim m,d
+
+'use regexp to separate input
+with new regexp
+ .pattern="([a-z]+?)\s+(\d?)"
+ .global=true
+ .ignorecase=true
+ set m=.execute(s)
+end with
+
+set d=createobject("Scripting.dictionary")
+do_abbrev
+'display
+test