Версия 5.44 Регулярные выражения - 2

string P[2];
int D;
string Text = "14.000";
//Text = "13.700";
//Text = "13.650";
//Text = "6.100.000";
//Text = "6.250.000";
//Text = "11.000.000";

D=regexsearch(2, #P[0], Text, "\.");
loop(D)
{
while(regexreplace(1, #Text, Text, "0$", "")==1){sleep(1);}
regexreplace(1, #Text, Text, "\.$", "");
}
if(D==1)Text=Text+"k";
if(D==2)Text=Text+"m";
messagebox(Text);