VB中字符串转换为变量名的问题？？？？？？

[VB_zh]

zzz = 100
MsgBox StringCalc.Eval("zzz >= 50") 的值为假，怎样才能为真呢？

因为 zzz >= 50 的值本来是真，但在上式中因为有引号，
所以把zzz看作字符去比较，而不是变量名，

"zzz >= 50"是从别的文件中读来的字符串，所以引号去不掉的。

MsgBox StringCalc.Eval("zzz >= 50")式子中不去掉引号，
怎样做才能让程序把zzz看作变量名而不是字符串去做比较。
是在VB中做的。

[chinsonlin073]

MsgBox StringCalc.Eval("zzz>= 50")

-->改为:

MsgBox StringCalc.Eval("" & zzz & " >= 50")

[chinsonlin073]

不明白

[benyfeifei]

zzz的数据是从别的文件中读来的，是变量，不能确定
---------------------
这个变量与你在程序里定义的zzz变量是什么关系？先把这个确定，然后再找方法。

[VB_zh]

to chinsonlin073()
语法错误

[VB_zh]

to benyfeifei（狒狒）
zzz >= 50是从文件中读来的字符串，也是变的，也许是zzz <> 50，zzz <= 300什么的
我想让"zzz >= 50"中的zzz去取从另一文件中读来的数据作比较，例如：
读来zzz=100
100 >= 50
读来zzz=10
10 >= 50

[benyfeifei]

不管比较的方式怎么变，只要“zzz >= 50字符串中“zzz”是一个确定的字符串，就能使用替换的方法。

[ruhong]

MsgBox StringCalc.Eval(iif(zzz>=50,true,false))

[zzyong00]

你用的是scriptcontrol吧，eval里的变量zzz和你在程序中的zzz不是同一个变量，你永远得不到你想要的结果!

[zq972]

Dim StringCalc As New ScriptControl
Dim codestr As String
StringCalc.Language = "VBScript"
StringCalc.Reset
codestr = "sub test() " & vbCrLf & _
"dim zzz " & vbCrLf & _
"zzz=100 " & vbCrLf & _
"msgbox zzz>50 " & vbCrLf & _
"end sub"
StringCalc.AddCode codestr
StringCalc.Run "test"

Set StringCalc = Nothing

[VB_zh]

用的是scriptcontrol,真的就没有办法了吗？

[VB_zh]

用的是scriptcontrol，
我想要 StringCalc.Eval("zzz >= 50") 的值为真，只zzz>50 的值为真没有用的，
另外zzz的数据也是从别的文件中读来的，直接写成 "zzz=100 "不行的，
无论如何先谢谢 zq972 答复我的问题

[yangao]

把zq972那句改改不就行了

Dim lngValue As Long
lngValue = 50

Dim StringCalc As New ScriptControl
Dim codestr As String

StringCalc.Language = "VBScript"
StringCalc.Reset
codestr = "sub test() " & vbCrLf & _
"dim zzz " & vbCrLf & _
"zzz= " & lngValue & vbCrLf & _
"msgbox zzz>50 " & vbCrLf & _
"end sub"
StringCalc.AddCode codestr
StringCalc.Run "test"

Set StringCalc = Nothing

[yangao]

lngValue = 100

[VB_zh]

msgbox zzz>50的值为真了
MsgBox 的值还是假，
我程序中必须用到StringCalc.Eval("zzz >= 50")，只有zzz>50 不行的

[VB_zh]

msgbox zzz>50的值为真了
MsgBox StringCalc.Eval("zzz >= 50") 的值还是假，
我程序中必须用到StringCalc.Eval("zzz >= 50")，只有zzz>50 不行的

[yuanjian_530]

把读出来的字符串，
先通过判断“=”去撮变量名跟值，
然后再做比较，这样就可以了。

[yuanjian_530]

刚刚没注意看，
楼主，你读出来的字符串，
到底是变量名ZZZ是确定的，还是“=”是确定的，
要是知道哪个是确定的，就用哪个去区分并提取相应的值。

[Dunzip]

MsgBox StringCalc.Eval("zzz >= 50")
换为：
MsgBox StringCalc.Eval(Replace("zzz >= 50", "zzz", zzz))

[VB_zh]

zzz是确定的，各位能说详细点吗？

[benyfeifei]

用读出来的数据替换这个确定的“zzz”字符串，然后使用scriptcontrol脚本控件就可以了。