Заменить значение между одинарными кавычками в файле

@roadtodream · Регистрация: 30.12.2021

Author24 — интернет-сервис помощи студентам

Помогите реализовать код.
Нужно сделать замену строковых переменных в исходниках .pas .
Может есть какое-то готовое решение ?

Delphi

  Procedure Test ( path : string );
  var
  res, res2, simvol : string;
  p1, p2, i : integer;
 
  begin
 
  simvol:= '''' ; // одинарная кавычка
 
  p1:= PosEx( simvol, path, 1 );   // поиск первого вхождения
 
  while p1 > 0 do // цикл для прохода по всей строке
 
    begin
 
      p2:= PosEx( simvol, path, p1 + 1  );  // поиск второго вхождения
 
      res:= Copy( path, p1 + 1, p2 - p1 - 1 );  // копирование значения между кавычками
 
      res2:= StringReplace( path, simvol + res + simvol, '''замена''', [rfReplaceAll] ); // замена значения между кавычками
 
      Writeln( res2 ); // Вот здесь непонятно
 
      p1:= posex( simvol, path, p2 + 1 );
 
    end;
 
  end;

Delphi

var  sp : tstringlist;   i : integer;
 
begin
 
    sp:= tstringlist.Create;
    sp.LoadFromFile('путь до файла\*.pas' );
 
    for I := 0 to sp.Count-1 do
      Test(sp[i]);
 
    sp.free;
    readln;
 
end.

@D1973 · 31.12.2021, 04:51

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

// Вот здесь непонятно

Разве только здесь? Я вот не вижу, подключен ли у Вас нужный модуль для работы с классом TStringList.
Потом, вот эта строчка

Delphi

1	sp.LoadFromFile('путь до файла\*.pas' );

вызовет ошибку времени выполнения:

Заменить значение между одинарными кавычками в файле

Ну и хорошо бы объяснить, что Вам не понятно в указанной Вами строке.

@D1973 · 31.12.2021, 05:38

И вот, кстати... Что должно происходить при нахождении пустой строки, типа вот такой:

Delphi

s := '';

Новые блоги и статьи
Как запретить подсветку выделенного текста с помощью CSS InfoMaster 20.01.2025 Подсветка текста при выделении является стандартным поведением браузера, которое не всегда соответствует дизайнерским решениям или функциональным требованиям веб-приложения. Выделение текста может. . .	Как выполнить другую программу или системную команду из Python InfoMaster 20.01.2025 Python предоставляет мощные инструменты для выполнения системных команд и управления внешними процессами, что делает его идеальным выбором для автоматизации различных задач системного. . .	Как узнать директорию bash-скрипта из самого bash-скрипта InfoMaster 20.01.2025 При разработке bash-скриптов одной из важных задач является определение директории, в которой находится исполняемый скрипт. Это критически важно для корректной работы с файлами, загрузки конфигураций. . .	В чем разница между let и var в JavaScript InfoMaster 20.01.2025 JavaScript прошел длинный путь эволюции с момента своего создания в 1995 году. Одним из важнейших аспектов развития языка стало совершенствование механизмов объявления и управления переменными. . . .	Эффективная работа со строками в Go InfoMaster 20.01.2025 Язык программирования Go предлагает уникальный подход к работе со строками, который существенно отличается от многих других языков программирования. В Go строки представляют собой неизменяемые. . .	Как проверить, что отображение (map) содержит ключ в Go InfoMaster 20.01.2025 Отображения (maps) в языке программирования Go представляют собой мощные структуры данных, которые позволяют хранить пары ключ-значение и обеспечивают быстрый доступ к данным по уникальным. . .
Как организовать домашнее хранилище фильмов с общим доступом для всей семьи InfoMaster 20.01.2025 Преимущества домашнего медиасервера В современном мире, где цифровой контент стал неотъемлемой частью нашей жизни, организация домашнего медиасервера становится все более актуальной задачей. . . .	Перспективы развития жестких дисков: есть ли у них будущее? InfoMaster 20.01.2025 История и эволюция жестких дисков История развития жестких дисков начинается в 1956 году, когда компания IBM представила первое устройство для хранения данных на магнитных пластинах - IBM 350. . .	Распознавание изображений (компьютерное зрение) на C++ InfoMaster 20.01.2025 Введение в компьютерное зрение и основы работы с изображениями Компьютерное зрение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, позволяющую. . .	Какой язык программирования лучший для разработки нейронных сетей InfoMaster 20.01.2025 В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .	Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .

	31.12.2021, 05:38