Data commit

Task/Abbreviations-automatic/VBA/abbreviations-automatic-1.vba

@@ -0,0 +1,19 @@
+Function MinimalLenght(strLine As String) As Integer
+Dim myVar As Variant, I As Integer, Flag As Boolean, myColl As Collection, Count As Integer
+   myVar = Split(strLine, " ")
+   Count = 0
+   Do
+      Set myColl = New Collection
+      Count = Count + 1
+      On Error Resume Next
+      Do
+         myColl.Add Left$(myVar(I), Count), Left$(myVar(I), Count)
+         I = I + 1
+      Loop While Err.Number = 0 And I <= UBound(myVar)
+      Flag = Err.Number = 0
+      On Error GoTo 0
+      I = 0
+      Set myColl = Nothing
+   Loop While Not Flag
+   MinimalLenght = Count
+End Function

Task/Abbreviations-automatic/VBA/abbreviations-automatic-2.vba

@@ -0,0 +1,16 @@
+Sub Main_Abbr_Auto()
+Dim Nb As Integer, s As String, Result() As String, c As Integer
+   Nb = FreeFile
+   Open "C:\Users\" & Environ("Username") & "\Desktop\Abbreviations_Auto.txt" For Input As #Nb
+      While Not EOF(Nb)
+         Line Input #Nb, s
+         If InStr(s, "þ") > 0 Then s = Right(s, Len(s) - 2)
+         If s <> vbNullString Then
+            ReDim Preserve Result(c)
+            Result(c) = Left$(MinimalLenght(s) & "    ", 4) & s
+            Debug.Print Result(c)
+            c = c + 1
+         End If
+      Wend
+   Close #Nb
+End Sub