Как обработать txt c разделителем и убрать лишнее

[Kerby666]

Добрый день! Есть файл txt c данными такого вида:
15;432156;name1;13,30;;;;12345;;;
26;323257;name2;27,67;;56;;;56;;
Мне нужно подготовить файл для экспорта в бд, убрав все лишнее, т.е. все данные в строке после 4-го разделителя, например. Получится должно так:
15;432156;name1;13,30;
26;323257;name2;27,67;
И сохранить результат в файл txt. Можно в исходный файл, можно в новый. Спасибо!

[spirit-ua]

Как вариант:
1. Загнать файл в StringList (LoadFromFile)
2. Пройтись по каждой строке функцией StringReplace (StringReplace('26;323257;name2;27, 67;;56;;;56;;',';;',';',[rfReplaceAll] ) ; )
3. Перезаписать файл из StringList (SaveToFile)

[Kerby666]

Сообщение от spirit-ua

Как вариант:
1. Загнать файл в StringList (LoadFromFile)
2. Пройтись по каждой строке функцией StringReplace (StringReplace('26;323257;name2;27, 67;;56;;;56;;',';;',';',[rfReplaceAll] ) ; )
3. Перезаписать файл из StringList (SaveToFile)

Если я правильно понял, то этим я заменю все ;; на ; А мне нужно удалить все после 4-ой точки с запятой. Это же совсем не то получается.
Я себе это представляю так:
нужно пробежать по строке, считая по пути количество разделителей, когда счетчик будет равным четырем, очистить строку с этой позиции до конца строки. Вот как это написать на delphi?

[Serge_Bliznykov]

тоже мне, "бином Ньютона"...

ловите код:

var i, psx : integer;
  s, stemp : string;
begin
  s := '15;432156;name1;13,30;;;;12345;;;';

  stemp := s;
  psx := 0;
  i := 0;
  while (Pos(';', stemp)>0) and (i<4) do begin
    psx := psx + Pos(';', stemp);
    stemp := copy(stemp, Pos(';', stemp)+1, length(stemp));
    inc(i);
    ShowMessage(IntToStr(i)+' '+IntToStr(psx)+' stemp = '+stemp);
  end;

  if (i=4) then
     s := Copy(s, 1, psx) // в s нужный нам результат
  else
     Тут ваши действия, если в строке нет нужно количества точек с запятой...

p.s. ещё эту же задачу можно решить банальным циклом по всем символам строки с подсчётом точек с запятой.
а ещё, эту же задачу можно решить через использование PosEx (я, в принципе, в своём примере моделировал именно поведение функции PosEx)

[Kerby666]

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

тоже мне, "бином Ньютона"...

ловите код:

var i, psx : integer;
  s, stemp : string;
begin
  s := '15;432156;name1;13,30;;;;12345;;;';

  stemp := s;
  psx := 0;
  i := 0;
  while (Pos(';', stemp)>0) and (i<4) do begin
    psx := psx + Pos(';', stemp);
    stemp := copy(stemp, Pos(';', stemp)+1, length(stemp));
    inc(i);
    ShowMessage(IntToStr(i)+' '+IntToStr(psx)+' stemp = '+stemp);
  end;

  if (i=4) then
     s := Copy(s, 1, psx) // в s нужный нам результат
  else
     Тут ваши действия, если в строке нет нужно количества точек с запятой...

p.s. ещё эту же задачу можно решить банальным циклом по всем символам строки с подсчётом точек с запятой.
а ещё, эту же задачу можно решить через использование PosEx (я, в принципе, в своём примере моделировал именно поведение функции PosEx)

Спасибо! Можете расширить свой пример, добавить открытие txt и сохранение в файл?

[spirit-ua]

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

Если я правильно понял, то этим я заменю все ;; на ; А мне нужно удалить все после 4-ой точки с запятой. Это же совсем не то получается.
Я себе это представляю так:
нужно пробежать по строке, считая по пути количество разделителей, когда счетчик будет равным четырем, очистить строку с этой позиции до конца строки. Вот как это написать на delphi?

Верно пинмаете...
1. Бежим по всей строке циклом (for i:=1 to Length('строка'))
2. Проверяем каждый символ на вылидность символу (if copy('строка',i,1 = ';'))
3. Увелисиваем счетчик
4. Если счетчик равен 4 сопируем нужную часть строки (copy('строка',1,i))

[Serge_Bliznykov]

ноу проблем.
держите
исходники проекта: TransformDataFileExample_SOURCES.rar
exe-шник: TransformDataFileExample_EXE.rar

код там такой:

procedure TForm1.Button1Click(Sender: TObject);
var ts : TStringList;
  s, stemp : string;
  i, k, psx : integer;
begin
  if not FileExists(Edit1.Text) then begin
    ShowMessage('Нет входного файла!');
    Exit
  end;
  ts := TStringList.Create;
  ts.LoadFromFile(Edit1.Text);
  for i:= 0 to ts.Count - 1 do begin
    s := trim(ts.Strings[i]);
    if (pos(';',s)>1) then begin
      stemp := s;
        psx := 0;
        k := 0;
        while (Pos(';', stemp)>0) and (k<4) do begin
          psx := psx + Pos(';', stemp);
          stemp := copy(stemp, Pos(';', stemp)+1, length(stemp));
          inc(k);
        end;

        if (k=4) then
           ts.Strings[i] := Copy(s, 1, psx) // в s нужный нам результат
    end;
  end;

  ts.SaveToFile(Edit2.Text);

  FreeAndNil(ts);

  ShowMessage('Готово! см. файл '+Edit2.Text);
end;

разумеется, открытие файла нужно делать через TOpenDialog, но мне лень и некогда. Оставляю косметические доработки на вашей совести!

[Kerby666]

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

ноу проблем.
держите
исходники проекта: Вложение 62161
exe-шник: Вложение 62162

код там такой:

procedure TForm1.Button1Click(Sender: TObject);
var ts : TStringList;
  s, stemp : string;
  i, k, psx : integer;
begin
  if not FileExists(Edit1.Text) then begin
    ShowMessage('Нет входного файла!');
    Exit
  end;
  ts := TStringList.Create;
  ts.LoadFromFile(Edit1.Text);
  for i:= 0 to ts.Count - 1 do begin
    s := trim(ts.Strings[i]);
    if (pos(';',s)>1) then begin
      stemp := s;
        psx := 0;
        k := 0;
        while (Pos(';', stemp)>0) and (k<4) do begin
          psx := psx + Pos(';', stemp);
          stemp := copy(stemp, Pos(';', stemp)+1, length(stemp));
          inc(k);
        end;

        if (k=4) then
           ts.Strings[i] := Copy(s, 1, psx) // в s нужный нам результат
    end;
  end;

  ts.SaveToFile(Edit2.Text);

  FreeAndNil(ts);

  ShowMessage('Готово! см. файл '+Edit2.Text);
end;

разумеется, открытие файла нужно делать через TOpenDialog, но мне лень и некогда. Оставляю косметические доработки на вашей совести!

Безмерно благодарен!

[IvaniuS]

а я бы использовал PosEX было бы красии и меньше переменных использовалось...

[IliaIT]

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