200分求一个表达式问题

yaotiebing 2004-12-22 12:14:12

Dim lsum As Long

lsum = "100+100"

如何让 lsum 正确的返回200

...全文

229 25 打赏收藏转发到动态举报

写回复

用AI写文章

25 条回复

切换为时间正序

请发表友善的回复…

发表回复

peilianhai 2005-01-06

打赏
举报

'这是我作的加减程序，给你带过来了，可以参考参考
'cal("1+2+3+4+5+6-7-8-9")

Private Function Cal(Content) As Currency
'create by haier99_2000@sohu.com
On Error GoTo Calerr
If Trim(Content & "") & "" = "" Then
Cal = Null
Exit Function
End If
Content = Trim(Content)
If InStr(1, Content, "+", vbTextCompare) = 0 And InStr(1, Content, "-", vbTextCompare) = 0 And Len(Content) > 0 Then
Cal = CCur(Content)
Exit Function
End If
Dim Poss(10) As Integer, AddDec(10) As Boolean, jj, ContentSS, CalI As Integer
jj = 0
Poss(jj) = 1
For CalI = 1 To Len(Content)
ContentSS = Mid(Content, CalI, 1)
Select Case ContentSS
Case "+"
If CalI = 1 Then
Cal = CCur(Content)
Exit Function
End If
jj = jj + 1
Poss(jj) = CalI
AddDec(jj) = True
If Mid(Content, CalI + 1, 1) = "+" Or Mid(Content, CalI + 1, 1) = "-" Then
Content = Left(Content, CalI) & Right(Content, Len(Content) - CalI - 1)
End If
Case "-"
If CalI = 1 Then
Cal = CCur(Content)
Exit Function
End If
jj = jj + 1
Poss(jj) = CalI
AddDec(jj) = False
If Mid(Content, CalI + 1, 1) = "+" Or Mid(Content, CalI + 1, 1) = "-" Then
Content = Left(Content, CalI) & Right(Content, Len(Content) - CalI - 1)
End If
Case "."
If Mid(Content, CalI + 1, 1) = "." Then
Content = Left(Content, CalI) & Right(Content, Len(Content) - CalI - 1)
End If
Case Else
End Select
Next
Cal = 0
Cal = Cal + CCur(Mid(Content, 1, Poss(1) - 1))
If jj >= 2 Then
CalI = 2
Else
CalI = 0
End If
While CalI >= 2 And CalI <= jj
Cal = Cal + CCur(Mid(Content, Poss(CalI - 1), Poss(CalI) - Poss(CalI - 1)))
CalI = CalI + 1
Wend
Cal = Cal + CCur(Mid(Content, Poss(jj), Len(Content) - Poss(jj) + 1))
Exit Function
Calerr:
End
End Function

beyondjay 2004-12-23

打赏
举报

接分

yaotiebing 2004-12-22

打赏
举报

我的意思是想对一个文本表达式求值

pxk 2004-12-22

打赏
举报

他的意思是想对一个文本表达式求值

BearRui 2004-12-22

打赏
举报

lsum = "100+100"

???
怎么long变字符串啦！

pxk 2004-12-22

打赏
举报

自己写个东西把数字分析出来，parser那种。
js倒有个eval
或者用ado.net试试。

Dim lsum As Long
Dim StrSql As string
lsum = "100+100"
StrSql = "select "+ lsum + " as sum"
调用ado.net执行StrSql
lsum = strsql 的执行结果

thooy 2004-12-22

打赏
举报

用substring取值.

OneDotRed 2004-12-22

打赏
举报

呵呵，正则表达式还没有运算的功能哦，这个用正则恐怕不太方便，可以用动态编译试试。

little119 2004-12-22

打赏
举报

O!
支持！

learner01 2004-12-22

打赏
举报

up!

peilianhai 2004-12-22

打赏
举报

举例 "12+34-6+789"
当检测到有“＋”“－”时，判断是否还有“＋”“－”
如果有，就计算12＋34
剩下的字符串为“46－6＋789”
返回继续
当到"40+789"时，就计算这个，计算完成后结束过程
我的这个程序现在只支持+ - ,不支持*/()，
你要是要代码的话，明天我给你带过来，
可以参考一下。

goody9807 2004-12-22

打赏
举报

用截取的字符串的方法如果是有规律的字符串还比较好弄

skylineforever 2004-12-22

打赏
举报

晕！

junguo 2004-12-22

打赏
举报

从其它贴子里拷的解决方法：
调用 int i = (int)Calc("100+100");
就好了！

public static object Calc(string expression)
{
string className = "Calc";
string methodName = "Run";
expression=expression.Replace("/","*1.0/");

// 创建编译器实例。
ICodeCompiler complier = (new CSharpCodeProvider().CreateCompiler());
// 设置编译参数。
CompilerParameters paras = new CompilerParameters();
paras.GenerateExecutable = false;
paras.GenerateInMemory = true;

// 创建动态代码。
StringBuilder classSource = new StringBuilder();
classSource.Append("public class "+ className +"\n");
classSource.Append("{\n");
classSource.Append(" public object " + methodName + "()\n");
classSource.Append(" {\n");
classSource.Append(" return "+ expression + ";\n");
classSource.Append(" }\n");
classSource.Append("}");

//System.Diagnostics.Debug.WriteLine(classSource.ToString());

// 编译代码。
CompilerResults result = complier.CompileAssemblyFromSource(paras, classSource.ToString());

// 获取编译后的程序集。
Assembly assembly = result.CompiledAssembly;

// 动态调用方法。
object eval = assembly.CreateInstance(className);
MethodInfo method = eval.GetType().GetMethod(methodName);
object reobj = method.Invoke(eval, null);
GC.Collect();
return reobj;

}

yaotiebing 2004-12-22