evaluate如何突破255字符限制

青城山苦丁茶 · 发表于 2011-3-10 21:01

本帖最后由爱疯于 2011-10-21 12:45 编辑

evaluate可得出一表达式的值，可有255字符的限制，怎么办？有两种方法：

[hide ]

Sub test1() '方法一
Dim str1
With CreateObject("MSScriptControl.ScriptControl")
.Language = "vbscript"
str1 = "200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200" '一任意长度的表达式
MsgBox .Eval(str1)
End With
End Sub

复制代码

Sub test2() '方法二
'先在工具中引用“ Microsoft Access x.0 Object Library”即可使用 Eval（）函数
Dim str1
str1 = "200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200 + 200"
MsgBox Eval(str1)
End Sub

复制代码

[/hide]

mn860429 · 发表于 2011-3-10 21:06

看看{:091:}

FnG · 发表于 2011-3-10 21:37

学习学习{:091:}

kkk70512 · 发表于 2011-3-11 11:35

haoevaluate可得出一表达式的值，可有255字符的限制，怎么办？ [修改] 还可输入 80 个字符

sunjing-zxl · 发表于 2011-3-11 11:50

我来学习一下

豆丁 · 发表于 2011-3-11 14:06

本帖最后由爱疯于 2011-11-3 09:36 编辑

[hide]
还是有32,767 个字符串限制
Sub aaa()
With CreateObject("MSScriptControl.ScriptControl")
.Language = "jscript"
MsgBox .Eval(WorksheetFunction.Rept("+1+1", 1000))
End With
End Sub
[/hide
]

leolee82 · 发表于 2011-3-11 15:07

分成两个小于255的

gin · 发表于 2011-3-19 15:44

看看

AACHENZ · 发表于 2011-3-21 13:27

遇到这种情况，正需要解决。。

吕?布 · 发表于 2011-3-21 14:53

谢谢分享

		自动登录	找回密码
密码			注册

[分享] evaluate如何突破255字符限制

评分