[已解决]谢谢 赋值问题

王王

赋值  dim   $E2=59
程序读得  $var=E2  然后需要对应读取$E2 （若$var=F6则对应读取前边赋值过的 $F6）

怎么实现把 $E2的值 59  赋给 $var

风行者

$E2=59
$var=$E2

王王

[quote]$E2=59
$var=$E2


E2是不确定的 是前边程序随机取到的 也可能是 F9  A3 E7 T6等等  是需要在这个随机数出来后 再去找前边对应赋好值的常量$F9 $A3  $E7  $T6   然后把这个对应常量的值 再赋给$var

cutyourchicken

高深，不知道你说什么

3mile

Assign('E2',59)
$VAR='E2'
MsgBox(0,0,Eval($VAR))

www378660084

$E2=0x59
$59=0x1

$var=0xE2

$r=eval(hex($var,2))
$r=eval(hex($r,2))
MsgBox(0,"",$r)

王王

3mile 发表于 2010-11-24 16:49

E2是变量$var的值（这个值不是唯一）  
$E2是常量（上边变量$var的任何一个值（**）  都有一个常量$（**）对应
怎么用$var这个变量的值 （**） 找到对应的 $（**）这个常量的值 并输出。

8722073

都看不懂，咋办？

3mile

回复 7# 王王
如果还是看不懂，就没有办法了。

#include <array.au3>
Local $array[5][2]=[['E2',59],['F9',60],['A3',61],['E7',62],['T6',63]]
_ARRAYDISPLAY($array)
For $I=0 To UBound($array)-1
        If Not IsDeclared($array[$I][0]) Then Assign($array[$I][0],$array[$I][1])
Next

Dim $Var='E2'
$Var=Eval($Var)
MsgBox(0,'$var的值＝',$VAR)

Dim $Var='F9'
$Var=Eval($Var)
MsgBox(0,'$var的值＝',$VAR)

www378660084

你需要的就一个eval,$var=e2这句好像有问题,E2不是数字,按我理解,你应该是想数字指来指去,所以加了个十六进制转换.eval("1")=$1,你理解这个就行了

王王

回复  王王
如果还是看不懂，就没有办法了。
3mile 发表于 2010-11-24 20:47

    恩 谢谢   就是需要 $Var=Eval($Var) 这个  前边一直没转过弯来  套用你的整段后 问题解决

王王

你需要的就一个eval,$var=e2这句好像有问题,E2不是数字,按我理解,你应该是想数字指来指去,所以加了个十六进 ...
www378660084 发表于 2010-11-25 05:28

     谢谢  就是卡在这个问题  现在解决了