Считывание с txt и запись в ado

@Samrisbe · Регистрация: 28.01.2011

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

Добро всем!

в тхт файле у меня порядка 1000 строк с шапкой, вот в таком виде:

PHP
1
2
3
Сумма      Ф.И.О.                Адрес -кв                        № платежа             Дата      
300          Абрамович          Весенняя 2/2-15               23125                    11.11.2014
150          Кац                    Гагарина 32-18                  1284                    11.11.2014

считываю и заношу в переменные так:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Form1->ADOQuery1->RecNo=a;
str->LoadFromFile(ExtractFilePath(Application->ExeName)+"reestr\\Реестр.txt");
AnsiString kv="",fam="",adr="",sum="",Pn,Pdd=""; // Day переменная для выдергивания даты в шапку после разноски реестра
int i=0;
for(int m=0;m<str->Count;m++)     
{
i=0;
kv="";fam="";adr="";sum="";Pn="";Pdd="";
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]==(int)' ') break;
  else sum+=str->Strings[m].c_str()[i];
  }
  for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]!=(int)' ') break;
  }
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]==(int)' ') break;
  else fam+=str->Strings[m].c_str()[i];
  }
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]!=(int)' ') break;
  }
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]==(int)'/') adr+="-";
  else
  {
  if((int)str->Strings[m].c_str()[i]==(int)'-') break;
  else adr+=str->Strings[m].c_str()[i];
  }
  }
i++;
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]==(int)' ') break;
  else kv+=str->Strings[m].c_str()[i];
  }
 
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]!=(int)' ') break;
  }
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]==(int)' ') break;
  else Pn+=str->Strings[m].c_str()[i];
  }
 
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]!=(int)' ') break;
  }
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]==(int)' ') break;
  else Pdd+=str->Strings[m].c_str()[i];
  }

проблема в том что иногда первую строку считывает а потом теряет...
Хочу по новой этот код переделать, очень грузит систему

@D1973 · 28.11.2014, 07:36

А файл хоть как-то структурирован? Я имею в виду тот момент, как расположены поля в файле.
Например, поле сумма занимает позиции с 1 по 15
поле ФИО - с 16 по 50
и т.д.
Или, может быть, поля разделены не пробелами, а табуляцией?
ничего такого в файле не наблюдается? Или полный хаос?

@D1973 · 28.11.2014, 08:55

Вот так попробуй...

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  struct _sAbonent {String Summ, FIO, Address, nPlat, Dt;} Abn;
  TStringList *One = new TStringList;
  TStringList *Two = new TStringList;
  One->LoadFromFile("111.txt");
  for(int i = 1; i < One->Count; i++)
   {
     if(One->Strings[i].Trim().Length() != 0)
      {
        Two->CommaText = One->Strings[i];
        Abn.Summ = Two->Strings[0];
        Abn.FIO = Two->Strings[1];
        Abn.Address = Two->Strings[2] + " " + Two->Strings[3];
        StringReplace(Abn.Address, "/", "-", TReplaceFlags() << rfReplaceAll);
        Abn.nPlat = Two->Strings[4];
        Abn.Dt = Two->Strings[5];
//Вот тут что-то с данными делаешь, в БД добавляешь или что-то еще
//Я для примера в Мемо вывел
        Memo1->Lines->Add(Abn.Summ);
        Memo1->Lines->Add(Abn.FIO);
        Memo1->Lines->Add(Abn.Address);
        Memo1->Lines->Add(Abn.nPlat);
        Memo1->Lines->Add(Abn.Dt);
        Memo1->Lines->Add("&&&&&&&&&&&&&&&");
//----------------------------------------
      }
   }
  delete One;
  delete Two;
}

@D1973 · 28.11.2014, 08:58

Уточнение: вместо 14-й и 15-й строк пишем

C++
1
Abn.Address = StringReplace(Two->Strings[2] + " " + Two->Strings[3], "/", "-", TReplaceFlags() << rfReplaceAll);

@SatanaXIII · 28.11.2014, 09:53

Samrisbe, программисты-старообрядцы считают, что, если к коде какой-то кусок полностью повторяется пятьсот раз подряд, то его стоит вынести в функцию. По крайней мере подумать об этом. Ну или на крайний случай просто сочинить хокку из этих строк.

Сообщение от Samrisbe

проблема в том что иногда первую строку считывает а потом теряет...
Хочу по новой этот код переделать, очень грузит систему

Значит надо переделывать.
И очень хорошо, что вы к этому пришли.

Вообще алгоритм ужасающий. Как я понял, нужно просто распарсить строки, и положить каждый элемент каждой строки в отдельную переменную, да?
Почему бы тогда не использовать старый индейский подход с двумя стринглистами? В первый заносится весь текст, разбитый построчно. Организуется цикл по его строкам. А во второй каждый раз новая строка из первого. Таким образом каждый элемент внутреннего стринглиста будет содержать одно слово строки. И никаких сотен циклов.

Сообщение от D1973

поля разделены не пробелами, а табуляцией?

Вот это самый важный вопрос. Если там табуляция, то весь алгоритм пишется на коленке за десять минут.
Если там пробелы, тогда худо.

P.S. str обычно это строка типа String.

@D1973 · 28.11.2014, 11:20

Сообщение от SatanaXIII

Если там пробелы, тогда худо.

Вот тогда и срабатывает "старый индейский подход..." (см. выше)

@SatanaXIII · 28.11.2014, 11:26

D1973, не. Была б табуляция, то элементы внутреннего стринглиста разделились бы так:

300

Абрамович

Весенняя 2/2-15

23125

11.11.2014

Красота.
Но, если там просто пробелы, то получим:

300

Абрамович

Весенняя

2/2-15

23125

11.11.2014

@D1973 · 28.11.2014, 11:29

Не по теме:

SatanaXIII, твои любимые таблички? :)

Именно это я и учитывал в этой вот строке

C++
1
Abn.Address = Two->Strings[2] + " " + Two->Strings[3];

т.е. адрес составляем из двух строк...

@SatanaXIII · 28.11.2014, 11:31

Не по теме:

Сообщение от D1973

твои любимые таблички?

Не. Мои любимые картинки. :tender: Таблички это так, когда нет картинок. Х)

Сообщение от D1973

Именно это я и учитывал в этой вот строке

В этой строке есть единственный и очень большой косяк. Угадаете? ))

@D1973 · 28.11.2014, 11:36

Или я слишком трепетно отношусь к своим творениям

или угадывалка сломалась...

@SatanaXIII · 28.11.2014, 11:44

D1973, прочитайте внимательно в моих табличках фамилию. Ви думаете можете так просто прийти и распарсить строку с произвольно расставленными пробелами таки?

На самом деле два ключевых слова: магия и числа. Что означает либо численная магия, либо магические числа. И то, и то за гранью разумения точной науки, коей является программирование. И вообще мы все умрем. Спасибо за внимание.

А так ваш код конечно удовлетворяет частному случаю.

Все хорошо.

@D1973 · 28.11.2014, 11:50

Не по теме:

Точно, точно...

Сообщение от SatanaXIII

Ви думаете можете так просто прийти и распарсить строку с произвольно расставленными пробелами таки?

Вот шо бы да, так - нет!

@Samrisbe · 28.11.2014, 11:52 **[ТС]**

Сообщение от D1973

А файл хоть как-то структурирован? Я имею в виду тот момент, как расположены поля в файле.
Например, поле сумма занимает позиции с 1 по 15
поле ФИО - с 16 по 5

вот файл:

@Samrisbe · 28.11.2014, 11:53 **[ТС]**

Сообщение от D1973

Или, может быть, поля разделены не пробелами, а табуляцией?
ничего такого в файле не наблюдается? Или полный хаос?

просто разделены произвольным количеством пробелов.

@SatanaXIII · 28.11.2014, 11:56

P.S. Samrisbe, а вы этот файл создаете изначально или он вам дан откуда-то? Можно сразу прям и второго зайца прихлопнуть.

@Samrisbe · 28.11.2014, 12:02 **[ТС]**

Сообщение от SatanaXIII

P.S. Samrisbe, а вы этот файл создаете изначально или он вам дан откуда-то?

Приходит именно в таком виде и я его немного корректирую я бы даже сказал исправляю орфографические ошибки(на фото файл до корректировки).

@D1973 · 28.11.2014, 12:05

Сообщение от Samrisbe

я его немного корректирую я бы даже сказал исправляю орфографические ошибки

Вручную? Порядка 1000 строк? Жестоко...

@SatanaXIII · 28.11.2014, 12:12

Samrisbe, если вы кстати пишете софт, то надо учесть этот момент. Вдруг поменяется формат столбцов, все дела. Но это только при условии, если вы не планируете в дальнейшем сопровождать эту программу. Лезть руками в код каждый раз, когда изменится один пробел это худо.

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

Не по теме:

Сообщение от D1973

Вручную? Порядка 1000 строк? Жестоко...

У вас на аватарке кот играющий на гуслях. И вы еще говорите о жестокости? Х)))

@D1973 · 28.11.2014, 12:24

Не по теме:

SatanaXIII, жестокость по отношению к коту или к окружающим, кто его слушает?

Samrisbe, Вы в курсе, откуда получается этот файл? Может быть, есть возможность ограничить кавычками потенциально небезопасные поля типа "ФИО" или "Адрес"?

@SatanaXIII · 28.11.2014, 12:28

Не по теме:

D1973, короче понеслась. Сейчас мы научим Samrisbe получать файлы. Х)

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	28.11.2014, 07:36
	А файл хоть как-то структурирован? Я имею в виду тот момент, как расположены поля в файле. Например, поле сумма занимает позиции с 1 по 15 поле ФИО - с 16 по 50 и т.д. Или, может быть, поля разделены не пробелами, а табуляцией? ничего такого в файле не наблюдается? Или полный хаос? 1

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	28.11.2014, 11:36
	Или я слишком трепетно отношусь к своим творениям или угадывалка сломалась... 1

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	28.11.2014, 11:44
	D1973, прочитайте внимательно в моих табличках фамилию. Ви думаете можете так просто прийти и распарсить строку с произвольно расставленными пробелами таки? На самом деле два ключевых слова: магия и числа. Что означает либо численная магия, либо магические числа. И то, и то за гранью разумения точной науки, коей является программирование. И вообще мы все умрем. Спасибо за внимание. А так ваш код конечно удовлетворяет частному случаю. Все хорошо. 2

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	28.11.2014, 11:56
	P.S. Samrisbe, а вы этот файл создаете изначально или он вам дан откуда-то? Можно сразу прям и второго зайца прихлопнуть. 1

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	28.11.2014, 12:24
	Не по теме: SatanaXIII, жестокость по отношению к коту или к окружающим, кто его слушает? Samrisbe, Вы в курсе, откуда получается этот файл? Может быть, есть возможность ограничить кавычками потенциально небезопасные поля типа "ФИО" или "Адрес"? 0

@SatanaXIII
	28.11.2014, 12:28
	Не по теме: D1973, короче понеслась. Сейчас мы научим Samrisbe получать файлы. Х) 0

Считывание с txt и запись в ado

Решение