Найти сумму в текстовом файле

Semenov_AA

Привет народ! У меня вот такая проблемка...есть текстовый файл .txt---------------\сумма\---------\---------\-----------3333333333\250.10\2009.07.29\17.05.09\2222222223333333333\234.10\2009.07.29\17.05.09\2222222223333333333\234.10\2009.07.29\17.05.09\2222222223333333333\222\2009.07.29\17.05.09\2222222223333333333\20.10\2009.07.29\17.05.09\2222222223333333333\250\2009.07.29\17.05.09\2222222223333333333\250.10\2009.07.29\17.05.09\2222222223333333333\250.10\2009.07.29\17.05.09\222222222...надо найти сумму. Помогите пожалуйста)
7 ответов

Semenov_AA

надо найти сумму.
Ну, берите калькулятор и находите. Этому еще в школе учат.


Semenov_AA

Сумма всегда идёт второй колонкой? Читай построчно файл, выкусывай по заданным разделителям второе "слово" (посмотри ту же функцию ExtractWord из RxLib доступной в исходниках), преобразовывай в нужный тип из строки, и запоминай в переменной, которую будешь инкрементировать в цикле. В чём сложность-то?


Semenov_AA

Semenov_AA,
<b>procedure</b> TForm1.FormCreate(Sender: TObject);
<b>var</b>
 strList: TStringList;
 i: integer;
 Score: real;
 SubStr: <b>string</b>;

<b>begin</b>
 Score := <b>0</b>;
 DecimalSeparator := '.';

 strList := TStringList.Create;
 <b>try</b>
 strList.LoadFromFile(ExtractFileDir(Application.ExeName) + '\1.txt');
 <b>for</b> i := <b>0</b> <b>to</b> strList.Count - <b>1</b> <b>do</b>
 <b>begin</b>
 SubStr := Copy( strList[i], Pos('\', strList[i]) + <b>1</b>, length(strList[i]) );
 Score := Score + StrToFloat( Copy(SubStr, <b>1</b>, Pos('\', SubStr) - <b>1</b> ) );
 <b>end</b>;

 showmessage( FloatToStr(Score) );
 <b>finally</b>
 strList.Free;
 <b>end</b>;
<b>end</b>;


Semenov_AA

Ну, берите калькулятор и находите. Этому еще в школе учат.
Ну уж! У вас в шкле были калькуляторы? Не верю (с) Мы таких слов не знали . Нас учили считать в уме и в столбик.


Semenov_AA

OracleLover большое спасибо! Удачи успехов вам)


Semenov_AA

3333333333\250.10\2009.07.29\17.05.09\222222222
3333333333 а это что стринг? ))----www.hramin.jino-net.ru


Semenov_AA

Gator пишет:> Ну уж! У вас в шкле были калькуляторы? Не верю (с)> Мы таких слов не знали . Нас учили считать в уме и в столбик.Ну у вас и детство было...