• Registered: 2014-02-14
  • Posts: 10,294

Re: Импорт из csv

не сразу понял,  что речь идет о переносе строк, перед импортом можно заменять знак | на настоящий знак переноса строки #13#10

s:= ReplaceStr(s, '|', #13#10);
Dmitry.
  • Registered: 2014-03-21
  • Posts: 193

Re: Импорт из csv

Дмитрий спасибо, ещё немножко поступил и получилось. Все заработало даже лучше, чем в лучших домах Парижа и Лондона. :-)

  • Registered: 2015-11-08
  • Posts: 4

Re: Импорт из csv

DriveSoft wrote:

не сразу понял,  что речь идет о переносе строк, перед импортом можно заменять знак | на настоящий знак переноса строки #13#10

s:= ReplaceStr(s, '|', #13#10);

Так в итоге как должна выглядеть конструкция mad

for i := 0 to c do

begin
            
arrStr := SplitString(sl[i], ';');

if arrStr[0] <> '' then arrStr[0] := ''''+ ReplaceStr(arrStr[0], '''', '''''') + ''''
else arrStr[0] := 'NULL';

так, чтобы импортировались данные, содержащие переносы строк?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Импорт из csv

obzerfer
Попробуйте так

if arrStr[0] <> '' then 
begin
    arrStr[0]:= ReplaceStr(arrStr[0], '|', #13#10);
    arrStr[0] := ''''+ ReplaceStr(arrStr[0], '''', '''''') + '''';
end    else 
    arrStr[0] := 'NULL';
Dmitry.