С++ Builder - Чтение файла :(

[Davlet M]

Возникла проблема на пути написания программы, необходимо произвести чтение из файла данных, внешняя программа создает файл типа:
.125463к .556684к
.789445к .224514к
.584112к .124896к

Мне нужно получать значения первого столбца для одной величины, а значения второго столбца для второй величины. размер числа может быть разным, поэтому записывать определенные позиции символов не получается. Пожалуйста, помогите!

[Sazary]

Что именно является значением? Только число или число с буквой 'к'? Или еще и точку нужно взять?

В общем, используя средства Билдера вот так можно (за значение берет только число). Значения помещаются в 2 мемо.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *list = new TStringList;
int i,a,b;
AnsiString tmp1,tmp2;

list->LoadFromFile("test.txt");
for(i=0; i<list->Count; i++)
 {
  tmp1 = list->Strings[i];
  a = tmp1.Pos(".");
  b = tmp1.Pos("к");
  tmp2 = tmp1.SubString(a+1,b-a-1);
  Memo1->Lines->Add(tmp2);

  tmp1 = list->Strings[i].SubString(b+1,tmp1.Length());
  a = tmp1.Pos(".");
  b = tmp1.Pos("к");
  tmp2 = tmp1.SubString(a+1,b-a-1);
  Memo2->Lines->Add(tmp2);
 }
delete list;
}

[Davlet M]

Спасибо, нужно только числа, попробую применить в своей программе.

что-то у меня не получается... может из-за того, что я не совсем точно привел формат файла..

там сначала 7 строк какой-то дребидени, их нужно пропустить, а потом вот так:

.150000Е+02 .704942Е+02
.151500Е+02 .698727Е+02

Как мне скорректировать код, который был написан до этого?

[Sazary]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *list = new TStringList;
int i,a,b;
AnsiString tmp1,tmp2;

list->LoadFromFile("test.txt");
for(i=7; i<list->Count; i++)
 {
  tmp1 = list->Strings[i];
  a = tmp1.Pos(".");
  b = tmp1.Pos(" ");
  tmp2 = tmp1.SubString(a+1,b-a-1);
  Memo1->Lines->Add(tmp2);

  tmp1 = list->Strings[i].SubString(b+1,tmp1.Length());
  a = tmp1.Pos(".");
  tmp2 = tmp1.SubString(a+1,tmp1.Length());
  Memo2->Lines->Add(tmp2);
 }
delete list;
}

Вы лучше разберитесь в коде, тогда сможете изменить как вам нужно.

[Davlet M]

Я принцип понял, но тут некоторые вещи мне не знакомы, не совсем понятны 3 строки, начиная от a=tmp1.Pos("."); до memo1, потом непонятно после Мемо1 и до Мемо2, если не трудно поясните, я просто совсем недавно программирую.

[Sazary]

tmp1 = list->Strings[i];   //  tmp1 = i-я строка из list
  a = tmp1.Pos(".");        //  a = позиция первой найденной точки
  b = tmp1.Pos(" ");       // b = позиция первого пробела
  tmp2 = tmp1.SubString(a+1,b-a-1);  // tmp2 = подстрока из tmp1
            // с (a+1)-ого символа длинной в (b-a-1)
  Memo1->Lines->Add(tmp2);   // добавляем в Memo1 строку tmp2

  tmp1 = list->Strings[i].SubString(b+1,tmp1.Length()); // берем оставшуюся часть строки (без первого числа)
  a = tmp1.Pos(".");
  tmp2 = tmp1.SubString(a+1,tmp1.Length());
  Memo2->Lines->Add(tmp2);

Используются стандартные методы для AnsiString-строк.

[Davlet M]

спасибо, а можно использовать вместо Мемо заполнение флоат массива, применив СтрТуФлоат?

[Sazary]

Конечно можно. В мемо я для примера помещал.