つまんないネタですが、毎回 Evaluate 使って書くの面倒なのでメモがてら残しておきます。
@Soundex を LotusScript で呼び出すだけのファンクションです。呼び出すときは result$ = Soundex("Lotus Notes") みたいにすればいいだけです。
@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