一个计算问题请教大家：在线等

[gymxyl]

<%
Function ReadAllTextFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("f:\wenjian\data3.txt", ForReading)
ReadAllTextFile = f.ReadAll
End Function
c=ReadAllTextFile
Response.Write c
%>
以上读取了文件“data.txt”中的数据，内容是：a=1,b=2(也就是Response.Write 写出的内容）
现在我想利用一下这两个数据计算c，c＝a＋b
该如何写程序？

[-神仙-]

1、用正则解析
2\
exs=explit(ReadAllTextFile,",")
ex1=explit(exs(0),"=")
ex2=explit(exs(1),"=")
a=ex1(1)
b=ex2(1)
c=a+b

[gymxyl]

请大家指点，急！

[超级大笨狼]

vbscript

那你比较幸运

不仅支持eval
还支持
execute("a=1+1")

而且是前后台都支持。

[gymxyl]

没太看懂。
具体我这个程序该怎么写，能示范一下吗？
不是直接赋值，而是读取别的文件中的值用于vbscript中的计算。

[gymxyl]

还有没有别的途径？谢谢！
还有：上面问题字母c用重了，应该是计算d＝a＋b；

[叮咚叮咚叮叮咚]

别 的途径?~
js不是很熟悉,里面的eval函数不知道用在这里是否合适

[gymxyl]

我用的是vbscript

[tjhuhao]

<%
Dim c,strA,strB,strX,strY
c="a=22,b=33443"
strA = Mid(c,1,InStr(c,",")-1) 'a=22
strB = Mid(c,InStr(c,",")+1) 'b=33443
strX = Mid(strA,InStr(strA,"=")+1) '22
strY= Mid(strB,InStr(strB,"=")+1) '33443
Response.Write Cdbl(strX)*CDbl(strY)'Result
%>
c在这里直接赋了一个字符串，你可以用你写的function从文件里面读出字符串。