Soundex

つまんないネタですが、毎回 Evaluate 使って書くの面倒なのでメモがてら残しておきます。

@Soundex を LotusScript で呼び出すだけのファンクションです。呼び出すときは result$ = Soundex("Lotus Notes") みたいにすればいいだけです。

Function Soundex(source As String) As String
    Dim tmp As Variant
    macro$ = "@Soundex(""" & source & """)"
    tmp = Evaluate(macro$)
    Soundex = tmp(0)
End Function