用于计算四则混合运算表达式的递归函数

sR = sExp.SubString(pos 1, posR - pos - 1);
if(sExp.IsDelimiter("/", pos) && sR == "0")
return("error：除数为零，无意义！");
sExp = (posL == 0? String(""): sExp.SubString(1, posL))
(sExp.IsDelimiter("*", pos)?
(sL.ToDouble() * sR.ToDouble()):
(sL.ToDouble() / sR.ToDouble()))
sExp.SubString(posR, sExp.Length());
}
if(IsMinus)
sExp = String("-") sExp;
// 经过上面的系列处理，sExp中的运算符号只剩下 和-了
// 以下处理不带括号表达式中的 -序列
IsMinus = false; // 加数或减数的符号
while(sExp.LastDelimiter(" -")) // 存在 或-
{
for(pos=2; !sExp.IsDelimiter(" -", pos)
&& pos <= sExp.Length(); pos ); // 第一个 或-
// pos不从1而从2开始搜索，是为了应对首操作数为负的情况
if(pos == sExp.Length())
return("error：尾字符是 -运算符, 公式错！");
if(pos > sExp.Length())
return(sExp); // sExp是个简单的负数，不必计算
Minus1:
for(posR=pos 1; !sExp.IsDelimiter(" -", posR)
&& posR <= sExp.Length(); posR );
if(posR == sExp.Length())
return("error：尾字符是 -运算符, 公式错！");
if(sExp.SubString(pos, 2) == " -"
|| sExp.SubString(pos, 2) == "--") // 加数或减数为负
{
sExp.Delete(pos 1, 1);
IsMinus = !IsMinus;
goto Minus1;
}
// 此处跳转在正常情况下最多只会执行一次
sL = sExp.SubString(1, pos - 1);
sR = sExp.SubString(pos 1, posR - pos - 1);
sExp = String(sExp.IsDelimiter(" ", pos)?
(sL.ToDouble() sR.ToDouble() * (IsMinus? -1: 1)):
(sL.ToDouble() - sR.ToDouble() * (IsMinus? -1: 1)))
sExp.SubString(posR, sExp.Length());
}
return(sExp);
}