AnsiString __fastcall Calc(String sExp)
{
// 計(jì)算不帶變量的四則混合運(yùn)算表達(dá)式(只含數(shù)字、小數(shù)點(diǎn)、+-*/號和括號)
// 正數(shù)不許帶正號
int posL, pos, posR;
// pos->當(dāng)前考慮的運(yùn)算符的位置
// posL->當(dāng)前考慮的運(yùn)算符之前最近的運(yùn)算符的位置
// posL->當(dāng)前考慮的運(yùn)算符之前后近的運(yùn)算符的位置
String sTmp, sL, sR;
// sL->當(dāng)前考慮的運(yùn)算符的左操作數(shù)字符串,sR->當(dāng)前考慮的運(yùn)算符的右操作數(shù)字符串
bool IsMinus; // IsMinus->當(dāng)前*/序列的符號
if(sExp.AnsiPos("error"))
return(sExp);
while(pos = sExp.AnsiPos(" "))
sExp = sExp.Delete(pos, 1); // 去除表達(dá)式中的空格
if(sExp.IsEmpty())
return("0");
while((pos = sExp.AnsiPos("[")) > 0
|| (pos = sExp.AnsiPos("{")) > 0) // 統(tǒng)一左括號為(
sExp = sExp.SubString(1, pos - 1) + "("
+ sExp.SubString(pos + 1, sExp.Length());
while((pos = sExp.AnsiPos("]")) > 0
|| (pos = sExp.AnsiPos("}")) > 0) // 統(tǒng)一右括號為)
sExp = sExp.SubString(1, pos - 1) + ")"
+ sExp.SubString(pos+1, sExp.Length());
// 處理括號:遞歸計(jì)算括號中的表達(dá)式,最后消去括號
while(posL=sExp.LastDelimiter("(")) // 最里層(
{
sTmp = sExp.SubString(posL + 1, sExp.Length());
posR = sTmp.AnsiPos(")"); // 最里層)
if(posR == 0)
return("error:沒有配對的), 公式錯(cuò)!");
sExp = sExp.SubString(1, posL - 1)
+ Calc(sTmp.SubString(1, posR - 1))
+ sTmp.SubString(posR + 1, sTmp.Length());
}
// 以下處理不帶括號表達(dá)式中的*/序列
IsMinus = false; // IsMinus->當(dāng)前*/序列的符號
while(sExp.LastDelimiter("*/")) // 存在*或/
{
for(pos = 1; !sExp.IsDelimiter("*/", pos)
&& pos <= sExp.Length(); pos++); // 第一個(gè)*或/
if(pos == 1 || pos == sExp.Length())
return("error:首或尾字符是*/運(yùn)算符, 公式錯(cuò)!");
posL = sExp.SubString(1, pos - 1).LastDelimiter("+-");
// posL->第一個(gè)*/之前的第一個(gè)+-
Minus0:
for(posR = pos + 1; !sExp.IsDelimiter("+-*/", posR)
&& posR <= sExp.Length(); posR++);
// posR->第一個(gè)*/之后的第一個(gè)+-*/運(yùn)算符
if(posR == sExp.Length())
return("error:尾字符是+-*/運(yùn)算符, 公式錯(cuò)!");
if(sExp.SubString(pos, 2) == "*-"
|| sExp.SubString(pos, 2) == "/-") // 乘數(shù)或除數(shù)為負(fù)
{
sExp.Delete(pos+1, 1);
IsMinus = !IsMinus;
goto Minus0;
}
sL = sExp.SubString(posL + 1, pos - posL - 1);
sR = sExp.SubString(pos + 1, posR - pos - 1);
if(sExp.IsDelimiter("/", pos) && sR == "0")
return("error:除數(shù)為零,無意義!");
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;
// 經(jīng)過上面的系列處理,sExp中的運(yùn)算符號只剩下+和-了
// 以下處理不帶括號表達(dá)式中的+-序列
IsMinus = false; // 加數(shù)或減數(shù)的符號
while(sExp.LastDelimiter("+-")) // 存在+或-
{
for(pos=2; !sExp.IsDelimiter("+-", pos)
&& pos <= sExp.Length(); pos++); // 第一個(gè)+或-
AnsiString __fastcall Calc(String sExp)
{
// 計(jì)算不帶變量的四則混合運(yùn)算表達(dá)式(只含數(shù)字、小數(shù)點(diǎn)、+-*/號和括號)
// 正數(shù)不許帶正號
int posL, pos, posR;
// pos->當(dāng)前考慮的運(yùn)算符的位置
// posL->當(dāng)前考慮的運(yùn)算符之前最近的運(yùn)算符的位置
// posL->當(dāng)前考慮的運(yùn)算符之前后近的運(yùn)算符的位置
String sTmp, sL, sR;
// sL->當(dāng)前考慮的運(yùn)算符的左操作數(shù)字符串,sR->當(dāng)前考慮的運(yùn)算符的右操作數(shù)字符串
bool IsMinus; // IsMinus->當(dāng)前*/序列的符號
if(sExp.AnsiPos("error"))
return(sExp);
while(pos = sExp.AnsiPos(" "))
sExp = sExp.Delete(pos, 1); // 去除表達(dá)式中的空格
if(sExp.IsEmpty())
return("0");
while((pos = sExp.AnsiPos("[")) > 0
|| (pos = sExp.AnsiPos("{")) > 0) // 統(tǒng)一左括號為(
sExp = sExp.SubString(1, pos - 1) + "("
+ sExp.SubString(pos + 1, sExp.Length());
while((pos = sExp.AnsiPos("]")) > 0
|| (pos = sExp.AnsiPos("}")) > 0) // 統(tǒng)一右括號為)
sExp = sExp.SubString(1, pos - 1) + ")"
+ sExp.SubString(pos+1, sExp.Length());
// 處理括號:遞歸計(jì)算括號中的表達(dá)式,最后消去括號
while(posL=sExp.LastDelimiter("(")) // 最里層(
{
sTmp = sExp.SubString(posL + 1, sExp.Length());
posR = sTmp.AnsiPos(")"); // 最里層)
if(posR == 0)
return("error:沒有配對的), 公式錯(cuò)!");
sExp = sExp.SubString(1, posL - 1)
+ Calc(sTmp.SubString(1, posR - 1))
+ sTmp.SubString(posR + 1, sTmp.Length());
}
// 以下處理不帶括號表達(dá)式中的*/序列
IsMinus = false; // IsMinus->當(dāng)前*/序列的符號
while(sExp.LastDelimiter("*/")) // 存在*或/
{
for(pos = 1; !sExp.IsDelimiter("*/", pos)
&& pos <= sExp.Length(); pos++); // 第一個(gè)*或/
if(pos == 1 || pos == sExp.Length())
return("error:首或尾字符是*/運(yùn)算符, 公式錯(cuò)!");
posL = sExp.SubString(1, pos - 1).LastDelimiter("+-");
// posL->第一個(gè)*/之前的第一個(gè)+-
Minus0:
for(posR = pos + 1; !sExp.IsDelimiter("+-*/", posR)
&& posR <= sExp.Length(); posR++);
// posR->第一個(gè)*/之后的第一個(gè)+-*/運(yùn)算符
if(posR == sExp.Length())
return("error:尾字符是+-*/運(yùn)算符, 公式錯(cuò)!");
if(sExp.SubString(pos, 2) == "*-"
|| sExp.SubString(pos, 2) == "/-") // 乘數(shù)或除數(shù)為負(fù)
{
sExp.Delete(pos+1, 1);
IsMinus = !IsMinus;
goto Minus0;
}
sL = sExp.SubString(posL + 1, pos - posL - 1);
sR = sExp.SubString(pos + 1, posR - pos - 1);
if(sExp.IsDelimiter("/", pos) && sR == "0")
return("error:除數(shù)為零,無意義!");
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;
// 經(jīng)過上面的系列處理,sExp中的運(yùn)算符號只剩下+和-了
// 以下處理不帶括號表達(dá)式中的+-序列
IsMinus = false; // 加數(shù)或減數(shù)的符號
while(sExp.LastDelimiter("+-")) // 存在+或-
{
for(pos=2; !sExp.IsDelimiter("+-", pos)
&& pos <= sExp.Length(); pos++); // 第一個(gè)+或-