Трака се за 10 мин.

като се има вида, в който се записва диалога на кю, а именно:


[ R | 0001 | 0260 | 0000 | 1085474874 ]
:ала-бала?
[ S | 0001 | 0270 | 0000 | 1085474889 ]
:тинтири-минтири :)
където с R е белязан реда, който си получил, а с S - който си изпратил.

Хедъра е еднакъв - последното е секунди от началото на съществуването на кюто, а отдолу (един или повече редове) е самия текст. Хвърля се в една таблица като се пишат десет реда код:

Set rst = New ADODB.Recordset

rst.Open "forma", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Set rstok = New ADODB.Recordset

rstok.Open "forma_ok", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rst.MoveFirst

Do While Not rst.EOF

      xx = Left(rst!field1, 1)

      If xx = "[" Then

               head = rst!field1

       Else

               rstok.AddNew

               rstok!head = head

               rstok!body = rst!field1

              rstok.Update

       End If

       rst.MoveNext

Loop

rst.Close

rstok.Close

Съдържаниет е скрито
Влезте за да го видите

Редактирано от Smile на 24.09.04 16:58.