View source for VBA Code

==(GENERAL) Transform author name abbreviation to TDWG standard==
Access query (in Excell use Substitute instead of Replace): <br/>
standardAuthor: Replace(Replace(Replace(Replace([Author],". ","."),".ex",". ex"),".in",". in"),".&",". &")

==(SPECIFY) Identify autonyms==
Access VBA in query: isAutonym: IIf(findOccurancesCount([CanonicalName],[Name])>1,True,False)<br/>
VBA Function: [https://stackoverflow.com/questions/14286505/how-to-find-the-number-of-occurrences-of-a-substring-within-a-string-vb-net Source]<br/>
   Function findOccurancesCount(baseString, subString) As Integer<br/>
      baseString = Nz(baseString, " ")<br/>
      subString = Nz(subString, " ")<br/>
      occurancesCount = 0<br/>
      i = 1<br/>
      Do<br/>
          foundPosition = InStr(i, baseString, subString) 'searching from i position<br/>
          If foundPosition > 0 Then                       'substring is found at foundPosition index<br/>
              occurancesCount = occurancesCount + 1       'count this occurance<br/>
              i = foundPosition + 1                       'searching from i+1 on the next cycle<br/>
          End If<br/>
      Loop While foundPosition <> 0<br/>
      findOccurancesCount = occurancesCount<br/>
   End Function<br/>


==(SPECIFY) Derive canonical name from FullName==
Access-VBA in query: <br/>
canonicalName: IIf(InStr(Nz([fullname]),":")>0,Mid([Fullname],InStr([fullname],":")+2),[Fullname])