easier way to adress varibles with eval?

[Danyfirex]

I'm using 3.3.14.1

I really do not see any useful use for assign. even I've  never used before.

Saludos

[iamtheky]

being able to use special characters in a variable name could have uses, had i known i was able to do that prior to it being removed

[Danyfirex]

I really do not think any useful to do with assign. I just think who needs a variable with this name 1+4%^.^:)=100 :S

Saludos

[guinness]

being able to use special characters in a variable name could have uses, had i known i was able to do that prior to it being removed

What is wrong with Scripting.Dictionary?

[iamtheky]

Nothing, I was just thinking of potential uses.  And still trying to find a dependency that I dont believe exists.  Based on all the examples I have been through I would think that the help for Eval should not reference Assign at all, and only suggest that the variable pass an IsDeclared check prior to Eval.

Edited August 31, 2015 by boththose

[guinness]

I don't agree.

[iamtheky]

I know, but you dont have any examples.  Has this been explored somewhere I can read?

So scripting.dictionary would require stringreplace, whereas assign would require evals.  Is there any notable speed difference, has this been explored somewhere as well?

Edit:  It is super fast in initial comparisons...does this hit a wall somewhere?  If you are on something after 3.3.10.2 you may need to use a normal character.

expandcollapse popup

assign("ni" & Chr(241) & "a" , "girl" , 1)

$string = ""
For $i = 0 to 5000
    $string &= "boy and " & "ni" & Chr(241) & "a" & @CRLF
Next


$timer = TimerInit()
$test1 = stringreplace($string , "ni" & Chr(241) & "a" , "girl")
$stop = TimerDiff($timer)
msgbox(0, 'test1' , 1 / $stop)
;~ msgbox(0, 'test1' , $test1)

$timer = TimerInit()
$test2 = _Translate($string)
$stop = TimerDiff($timer)
msgbox(0, 'test2' , 1 / $stop)
;~ msgbox(0, 'test2' , $test2)


$timer = TimerInit()
$test3 = stringregexpreplace($string , "ni" & Chr(241) & "a" , "girl")
$stop = TimerDiff($timer)
msgbox(0, 'test3' , 1 / $stop)
;~ msgbox(0, 'test3' , $test3)



Func _Translate($str)
$sOut = ""
$aString = stringregexp($str, "(\D+?)\s" , 3)

    For $i = 0 to ubound($aString) - 1
        $sOut &= IsDeclared($aString[$i]) ? eval($aString[$i]) & " " : $aString[$i] & " "
    Next

return stringtrimright($sOut , 1)

EndFunc

 

Edited August 31, 2015 by boththose

[guinness]

We both know me showing you an example isn't going to change your mind, so I really don't want to waste my time (again).