Интерпретация строк текстового файла в числа и их модификация

@GROMOZEKA82 · Регистрация: 23.05.2013

Студворк — интернет-сервис помощи студентам

в файле в ASCll лежат числа от 0-1030, по 1 числу в строке
в каждой строке 4 символа, и он имеет такой вид

Кликните здесь для просмотра всего текста

0001
0005
0009
0013
0017
0097
0101
0105
0109
0113
0117
0121
0125
0129

необходимо брать от туда числа подряд, и по очереди их умножать то на 0,325 то на 1,5 и выводить их в Label1 и Label2 соответственно
т.е.

Кликните здесь для просмотра всего текста

0001*1.5>Label2
0005*0,325>Label1
0009*1.5>Label2
0013*0,325>Label1
0017*1.5>Label2
0097*0,325>Label1
0101*1.5>Label2
0105*0,325>Label1
0109*1.5>Label2
0113*0,325>Label1
0117*1.5>Label2
0121*0,325>Label1
0125*1.5>Label2
0129**0,325>Label1

я написал код, но он даже файл считать не может

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
TStringList *list = new TStringList;
//list->LoadFromFile("file.txt");
//List->LoadFromFile('C:\FILE.TXT');
//st.LoadFromFile('c:\file.txt');
int j = list->Count; //êîëè÷åñòâî ñòðîê
for (int i = 0; i<j; i++)
   {
 
     j=j*0.325
    Label->Caption = IntToStr(j);
   }

@demon_7 · 31.01.2015, 13:11

GROMOZEKA82, как бе

C++
1
List->LoadFromFile("C:\FILE.TXT");

@GROMOZEKA82 · 31.01.2015, 13:15 **[ТС]**

[C++ Error] Unit1.cpp(18): E2141 Declaration syntax error

@gunslinger · 31.01.2015, 13:28

Двойной (обратный) слеш.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
TForm1 *Form1;
TStringList *list = new TStringList;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  list->LoadFromFile("E:\\file.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  static int i = 0;
  if (i < list->Count)
    Label1->Caption = Trim(list->Strings[i]).ToIntDef(0) * 1.5;
  else
    Tag = 1;
  if (i+1 < list->Count)
    Label2->Caption = Trim(list->Strings[i+1]).ToIntDef(0) * 0.325;
  else
    Tag = 1;
  if (Tag == 1)
    ShowMessage("Достигнут конец файла.");
  i += 2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete list;
}

@GROMOZEKA82 · 31.01.2015, 13:49 **[ТС]**

gunslinger, а можете проект скинуть, у меня почему то ваш код ругается

Добавлено через 10 минут

Кликните здесь для просмотра всего текста

[C++ Error] Unit1.cpp(24): E2316 '_fastcall TForm1::Button1Click(TObject *)' is not a member of 'TForm1'
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'Д' (0xc4)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'о' (0xee)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'с' (0xf1)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'т' (0xf2)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'и' (0xe8)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'г' (0xe3)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'н' (0xed)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'у' (0xf3)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'т' (0xf2)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'к' (0xea)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'о' (0xee)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'н' (0xed)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'е' (0xe5)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'ц' (0xf6)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'ф' (0xf4)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'а' (0xe0)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'й' (0xe9)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'л' (0xeb)
[C++ Error] Unit1.cpp(35): E2206 Illegal character 'а' (0xe0)
[C++ Error] Unit1.cpp(40): E2316 '_fastcall TForm1::FormClose(TObject *,TCloseAction &)' is not a member of 'TForm1'

@gunslinger · 31.01.2015, 13:56

Ты хоть кнопку на форму поместил?
Кликни потом по ней 2 раза и в void __fastcall TForm1::Button1Click(TObject *Sender)
помести код

C++
1
2
3
4
5
6
7
8
9
10
11
12
  static int i = 0;
  if (i < list->Count)
    Label1->Caption = Trim(list->Strings[i]).ToIntDef(0) * 1.5;
  else
    Tag = 1;
  if (i+1 < list->Count)
    Label2->Caption = Trim(list->Strings[i+1]).ToIntDef(0) * 0.325;
  else
    Tag = 1;
  if (Tag == 1)
    ShowMessage("Достигнут конец файла.");
  i += 2;

чтобы стало как 4-ом посте.
Кликни на событии формы OnClose и в обработчик помести код

C++
1
delete list;

Аналогично для OnCreate.
Насчет символов - хз какой у тебя билдер, попробуй

C++
1
ShowMessage(L"Достигнут конец файла.");

вместо

C++
1
ShowMessage("Достигнут конец файла.");

Подобные вопросы заставляют меня впадать в ступор.
Давно пора создать раздел "Билдер для ~~самых маленьких~~ начинающих".

@GROMOZEKA82 · 31.01.2015, 14:16 **[ТС]**

спасибо, разобрался
мой билдер кириллицу не знал)

Новые блоги и статьи Все статьи Все блоги /
Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .

@GROMOZEKA82 0 / 0 / 1 Регистрация: 23.05.2013 Сообщений: 98
	31.01.2015, 13:15 [ТС]
	[C++ Error] Unit1.cpp(18): E2141 Declaration syntax error 0

@GROMOZEKA82 0 / 0 / 1 Регистрация: 23.05.2013 Сообщений: 98
	31.01.2015, 13:49 [ТС]
	gunslinger, а можете проект скинуть, у меня почему то ваш код ругается Добавлено через 10 минут Кликните здесь для просмотра всего текста [C++ Error] Unit1.cpp(24): E2316 '_fastcall TForm1::Button1Click(TObject )' is not a member of 'TForm1' [C++ Error] Unit1.cpp(35): E2206 Illegal character 'Д' (0xc4) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'о' (0xee) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'с' (0xf1) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'т' (0xf2) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'и' (0xe8) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'г' (0xe3) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'н' (0xed) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'у' (0xf3) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'т' (0xf2) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'к' (0xea) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'о' (0xee) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'н' (0xed) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'е' (0xe5) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'ц' (0xf6) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'ф' (0xf4) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'а' (0xe0) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'й' (0xe9) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'л' (0xeb) [C++ Error] Unit1.cpp(35): E2206 Illegal character 'а' (0xe0) [C++ Error] Unit1.cpp(40): E2316 '_fastcall TForm1::FormClose(TObject ,TCloseAction &)' is not a member of 'TForm1' 0

@GROMOZEKA82 0 / 0 / 1 Регистрация: 23.05.2013 Сообщений: 98
	31.01.2015, 14:16 [ТС]
	спасибо, разобрался мой билдер кириллицу не знал) 0

Интерпретация строк текстового файла в числа и их модификация

Решение