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