из мемо в таблицу

[yuran111]

 ADOTable1.Open;
 
          for k:=1 to mmo1.Lines.Count div 5+1  do
        for d:=0 to 4 do
 
               begin
               ADOTable1.Insert;
         ADOTable1.Fields[d].AsString := mmo1.Lines.Strings[k*5+d];
          ADOTable1.Post;
          end;

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

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

[D-mon]

Определи колличесво строк в Мемо, потом циклом загони все строки в стринговую переменную, а потом вставляй в базу (главное что бы длина Мемо не превышала длану поля в БД)

[Gulik]

а DBMemo не подходит для этого?

[yuran111]

вообщем думал это просто должно быть, я из html получаю таблицу где каждая строка такого вида

<td>284281</td>

<td> контакт </td>

<td>3</td>

<td>39550</td>

<td>Гомель</td>


</tr>

<tr>

<td>286367</td>

<td> Датчик </td>

<td> 10 </td>

<td>34760</td>

<td>Брест </td>

</tr>
<tr>
ну потом получаю строку потом ее в поле мемо, в грид, в файл csv - перегнал и в текстовый, но мне удобней и быстрей оказалось в акцессе, таблицу подключаю и базу через DAO, а как в ту таблицу это перегнать не знаю - подскажите - может прямо из html как-то?

[rdama]

Ну напиши парсер html страницы. Или возьми готовый. Точно через DAO? Давно уже не встречал. В основном ADO везде применяется.

[yuran111]

284281

контакт

3

39550

Гомель

286367

датчик

6

34760

Брест

в таком виде в объекте мемо в проге вижу данные - они однотипные через пять строк, как их перегнать в таблицу акцесс, подключенную через ADO? в таблице 5 полей. надо первую строку в первое поле, вторую во второе..... пятую в пятое поле таблицы, потом шестую строку в первое поле, седьмую во второе и так далее. у меня циклом получается так, что как только записало в таблицу первое поле - происходит переход на новую запись и второе поле записывает уже в новую запись - получается "ступеньками". как бы сделать чтоб не переходило на новую запись в таблице акцесса, пока пять полей не заполнится? ну может понятно теперь?кто знает?

[Serge_Bliznykov]

хм, а мне казалось, что ответ очевиден...
значит так, общий подход такой.
Читаете построчно и формируете данные для записи (НЕ ДОБАВЛЯЕТЕ в таблицу, а только ПОДГОТАВЛИВАЕТЕ данные к вставке). Как это сделать - можно по разному. Можно в переменные сохранять. Я бы лично формировал строку SQL запроса (с Insert)...
на момент достижения значения последнего поля - записываете все накопленные данные в таблицу. повторяете цикл...

[evg_m]

n:=0;
while n<memo1.lines.count do begin
  ADO.Insert;
  ado.fieldbyname['field1'].asstring:=memo1.lines.string[n+0];
  ado.fieldbyname['field2'].asstring:=memo1.lines.string[n+1];
.....
  ado.post;
  n:=n+5; // и теоретически осталась проблема последней неполной группы (есть только 1,2,3,4 из пяти требуемых строк)
end;

for j:=0 to memo.linex.count div 5 do  begin // может быть надо +- что-то
............
  ado.fieldbyname['field1'].asstring:=memo1.lines.string[ j*5 +0 ];
  ado.fieldbyname['field2'].asstring:=memo1.lines.string[ j*5 +1 ];
................
end;

[yuran111]

спасибо теперь понятно
а как это применить подскажите http://connectionstrings.com/html-table
как практически с сайта каког-нибудь этим таблицу вытянуть можете показать? отсюда например http://cat.konfiskat.by/catalog_hard.php
может проще все можно?

[yuran111]

ADOTable1.Open;

        
          for k:=1 to mmo1.lines.count div 4+1 do  begin 

ADOTable1.Insert;
  ADOTable1.fieldbyname('поле1').asstring:=mmo1.lines.strings[ k*4 +0 ];
  ADOTable1.fieldbyname('поле2').asstring:=mmo1.lines.strings[ k*4 +1 ];
  ADOTable1.fieldbyname('поле3').asstring:=mmo1.lines.strings[ k*4 +2 ];
  ADOTable1.fieldbyname('поле4').asstring:=mmo1.lines.strings[ k*4 +3 ];
  ADOTable1.Post;

end;

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