82.209.206.129, из Экселя экспорт можешь сделать в текстовый с любым разделителем ?
Можешь.
Все. Какие проблемы.
Буду дома - выложу пример. Здесь нет HiAsm
------------ Дoбавленo в 16.50:
user_asm писал(а): Может как-то можно сделать так:
Запускаю прогу.
Импортирую в таблицу из файла CSV с разделителями.
Сохраняю то что появилось в таблице в БД нажатием какой-либо кнопки.
вот тебе кнопочка.
Add(MainForm,2953706,154,147) { } Add(StringTable,12189238,245,56) { Left=285 Top=60 Point(Strings) } Add(ArrayEnum,13636741,259,147) { link(onItem,14606948:doReplace,[]) link(onEndEnum,13169361:doEvent1,[(307,160)(307,195)]) link(Array,12189238:Strings,[]) } Add(Replace,14606948,308,147) { SubStr=";" DestStr="," link(onReplace,10743666:doString,[]) } Add(Button,9310050,147,98) { Left=175 Top=90 link(onClick,8668812:doEvent1,[]) } Add(Hub,8668812,210,98) { OutCount=3 link(onEvent1,3382187:doOpen,[]) link(onEvent2,1694048:doData,[]) link(onEvent3,13636741:doEnum,[(244,118)(244,153)]) } Add(DoData,1694048,364,105) { Data=String(BEGIN TRANSACTION;) link(onEventData,4516976:doWork1,[(424,111)]) } Add(DoData,3876436,364,189) { Data=String(COMMIT;) link(onEventData,4516976:doWork3,[(424,195)]) } Add(FormatStr,10743666,364,147) { Mask="INSERT INTO <имя таблицы> VALUES(%1) ;" link(onFString,4516976:doWork2,[]) } Add(SQLite_Exec,8905781,448,147) { link(dbHandle,3382187:dbHandle,[]) } Add(HubEx,4516976,420,140) { link(onEvent,8905781:doExec,[]) } Add(SQLite_DB,3382187,448,98) { } Add(Hub,13169361,322,189) { link(onEvent1,3876436:doData,[]) link(onEvent2,3382187:doClose,[(437,202)(437,111)]) } Add(InfoTip,5163434,287,7) { Info=#13:Примерно так.|20:В FormatStr изменить|18:строку SQL-запроса|15:под свои нужды.|0:| Font=[MS Sans Serif,8,1,0,1] Width=169 Height=74 Margin=10 }
|