Here is my code:
Private Function identifier(ByVal token As String) As Double
'The function that replaces the variable with its value
Try
For i As Byte = 1 To var_name.Count
'Might be a little confusing if you don't know the whole code
'the only thing that needs attention is that if a condition is met
'evaluate() is recalled which then recalls identifier() and an infinite loop might occur
If token.ToLower = var_name(i).ToString Then Return evaluate(var_value(i))
Next
Catch ex As StackOverflowException
'The exception is not actually caught
End Try
End Function


Sign In
Create Account


Back to top









