Creating a custom formula

[Anonymous]

I want to create a custom formula, and it is not working. I press CTRL M and enter my formula code below (which I got from another source, and it should be correct) then click OK.

After that when I go to my script and enter this new function, and  it does not understand it. it is underlined as incorrect. How do I make the script recognize it?  What am I missing?

Function levenshtein( a, b )
Dim i,j,cost,d,min1,min2,min3

' Avoid calculations where there there are empty words
If Len( a ) = 0 Then levenshtein = Len( b 😞 Exit Function
If Len( b ) = 0 Then levenshtein = Len( a 😞 Exit Function

' Array initialization   
ReDim d( Len( a ), Len( b ) )

For i = 0 To Len( a 😞 d( i, 0 ) = i: Next
For j = 0 To Len( b 😞 d( 0, j ) = j: Next

' Actual calculation
For i = 1 To Len( a )
  For j = 1 To Len( b )
  If Mid(a, i, 1) = Mid(b, j, 1) Then cost = 0 Else cost = 1 End If
 
  ' Since min() function is not a part of VBScript, we'll "emulate" it below
  min1 = ( d( i - 1, j ) + 1 )
  min2 = ( d( i, j - 1 ) + 1 )
  min3 = ( d( i - 1, j - 1 ) + cost )
 
  If min1 <= min2 And min1 <= min3 Then
  d( i, j ) = min1
  ElseIf min2 <= min1 And min2 <= min3 Then
  d( i, j ) = min2
  Else
  d( i, j ) = min3
  End If
  Next
Next

levenshtein = d( Len( a ), Len( b ) )
End Function

[swuehl]

Seems to work for me if I use something like

LOAD	levenshtein('Stefan','Steffen') as Test

Autogenerate 1;

[Anonymous]

It is still treating the script as an error:

[Anonymous]

Perhaps the problem is that I am using Personal Edition and one of my settings needs to change

[swuehl]

Have you tried to run the script?

[settu_periasamy]

Hi,

Can you just click the 'Check' Button in the 'Edit Module' and try that?