[lxa85]

pageYK@fb, в чем возникла проблема?
Где рассуждения?

[Iska]

lxa85, «рассуждения» были здесь: CMD/BAT - [решено] обработка в подстроке.

[pageYK@fb]

lxa85, рассуждениями поделились ссылочкой выше.
А так затык, в основном, как в Delphi индентифицировать в строке это третье число, delimited опробовал, не зашло.

[Iska]

delimited опробовал, не зашло. »

Ну, так показывайте, как именно опробовали.

[shisik]

А так затык, в основном, как в Delphi индентифицировать в строке это третье число, delimited опробовал, не зашло. »

А что если написать функцию разделения строки по типу питоновской split или пхпшной explode? Примерно так:

Код:

function split(splitter: Char; str: String): TStringList;
var substr: String;
var parts: TStringList;
var i: Integer;
begin
  parts := TStringList.Create;
  for i := 1 to Length(str) do
     begin
       if str[i] = splitter then
       begin
         parts.add(substr);
         substr := '';
       end else
         substr := substr + str[i];
     end;
  parts.add(substr);
  result := parts;
end;

Соответственно, на выходе имеем TStringList, где третье число - parts[2]. Ну а дальше в Integer преобразовать проще простого:

Код:

var value: Integer;

...

value := StrToInt(parts[2]);

P.S. 100 лет не писал на Delphi, уж простите, если накосячил.

[opel431]

Вся "работа" вокруг анализа одной "колонки"... не нужно что-то выдумывать. Для выделения подстроки в Delphi все есть

ExtractStrings

Код:

const
  str = '1|325230ш5ш3|438|Лондон|ЛОНДОН, ВЕЛИКОБРИТАНИЯ|'; // для примера одна строка
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  begin
    try
      ExtractStrings(['|', ','], [' '], str, sl); // Note: ExtractStrings does not add empty strings to the list.
      ShowMessage(sl[2]);
    finally
      sl.Free;
    end;
  end;

Delimiter

Код:

const
  str = '1|325230ш5ш3|438|Лондон|ЛОНДОН, ВЕЛИКОБРИТАНИЯ|';
var
  i: Integer;
begin
  with TStringList.Create do
  begin
    Delimiter := '|';
    StrictDelimiter := True;
    DelimitedText := str;
    {for i := 0 to Count - 1 do
        ShowMessage(Strings[i]);}
    ShowMessage(Strings[2]);
    Free;
  end;

все остальные действия от обработки результата.

[pageYK@fb]

Из вышестоящего, собрал вот такой кусок:

Код:

var 
  i,l:integer;
  ts:TStringList;
  s: string;

begin

ts := TStringList.Create;                      

  try
    ts.LoadFromFile('1.txt');
    Delimiter := '|';
    StrictDelimiter := True;
    DelimitedText := ts;
    for l:=0 to ts.Count-1 do
      begin

        value := StrToInt(ts.Strings[2]);
        while value>394 do
        begin
         value := value-394;
         ts.Strings[2]:=IntToStr('394');
         // Как передать обновленную строку в файл?
        end;
         ts.Strings[2]:=IntToStr(value);
         // передача строки в файл с остатком.
      end;
      // сортировка

      finally
    ts.Free;
  end;

end.

Как прописать запись строки в файл из цикла, через append?

[opel431]

Как прописать запись строки в файл из цикла, через append? »

Разве методов TStringList (add, insert, delete и прочих, для выполнения задачи, не хватает? Вариантов много, можно вообще все сделать в TSL (например, копирование нужной строки в конец списка add() с заменой подстроки StringReplace) и сохранением в файл SavetoFile.

[pageYK@fb]

opel431, Методов хватает, работает не так как надо.

Код

Код:

var 
  i,l,value:integer;
  ts:TStringList;
  s: string;

begin  ts := TStringList.Create;                    

  try
    ts.LoadFromFile('1.txt');
    ts.Delimiter := '|';
    for l:=0 to ts.Count-1 do
      begin
        ts.DelimitedText := ts.Strings[l];
        value := StrToInt(ts.Strings[2]);
        while value>394 do
        begin
         value := value-394;
         ts.Strings[2]:='394';
         ts.SaveToFile('2.txt');
        end;

      end;

      finally
    ts.Free;
  end;

SaveToFile по итогу, возвращает в файл текст уже разбитый на подстроки:
"1
325230ш5ш3
438
Лондон
ЛОНДОН,
ВЕЛИКОБРИТАНИЯ".

И как оперировать с несколькими строками для их сортировки так мне осталось неясным.