Abbreviations, automatic: Difference between revisions
Content added Content deleted
({{header|VBA}}) |
|||
Line 1,443: | Line 1,443: | ||
=={{header|VBA}}== |
=={{header|VBA}}== |
||
Function : |
Function : |
||
<lang |
<lang vb>Function MinimalLenght(strLine As String) As Integer |
||
Dim myVar As Variant, I As Integer, Flag As Boolean, myColl As Collection, Count As Integer |
Dim myVar As Variant, I As Integer, Flag As Boolean, myColl As Collection, Count As Integer |
||
myVar = Split(strLine, " ") |
myVar = Split(strLine, " ") |
||
Line 1,463: | Line 1,463: | ||
End Function</lang> |
End Function</lang> |
||
To call it : |
To call it : |
||
<lang |
<lang vb>Sub Main_Abbr_Auto() |
||
Dim Nb As Integer, s As String, Result() As String, c As Integer |
Dim Nb As Integer, s As String, Result() As String, c As Integer |
||
Nb = FreeFile |
Nb = FreeFile |