Замена текста

@Zagadohnik37 · Регистрация: 23.01.2015

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

Если можно, то скиньте код.
Задача:
Нужно заменить " на \\\" , при условии, что перед " нет \ . То есть, если без условия, то если в строке есть \\\" , то к нему добавиться один \ , а это мне не нужно. И не подскажите, как называется этот знак: \ ?

@TFullControl · 15.06.2017, 21:17

Нифига не ясно, что вам надо.

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

И не подскажите, как называется этот знак: \ ?

это "слэш"!

@D1973 · 16.06.2017, 03:03

Я бы больше сказал: это backslash (обратный слэш)

Добавлено через 49 секунд

Не по теме:

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

Нифига не ясно, что вам надо

согласен

@droider · 16.06.2017, 04:52

Не по теме:

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

это backslash

или по-админски "косая" :D

@Zagadohnik37 · 17.06.2017, 13:13 **[ТС]**

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

Нифига не ясно, что вам надо

Добавить перед кавычкой 3 backslash, при условии, что перед кавычкой их(backslash) нет.
Допустим: Есть: lalala:\"3\",lala:"2" После замены: lalala:\"3\",lala:\\\"2\\\"

Добавлено через 4 минуты
Если проще, то нужно узнать какой символ стоит перед кавычкой, если это не \ ,то действие выполняется.

@Puporev · 17.06.2017, 13:18

Delphi
1
2
for i:=length(s) downto 1 do
if(s[i]='"')and((i=1)or(s[i-1]<>'\'))then insert('\\\',s,i);

@Zagadohnik37 · 17.06.2017, 13:29 **[ТС]**

Спасибо, а если не трудно, как сделать тоже самое, только для замены \" на \\\\" ? То есть эта часть будет такой:

Delphi
1
or(s[i-4]<>'\'))then insert('\\\\\\',s,i);

, а вот как до этого я не знаю

, хотя тут всё легко, а я просто туплю...

@droider · 17.06.2017, 14:41

Zagadohnik37, так же.

@Zagadohnik37 · 17.06.2017, 16:52 **[ТС]**

В общем сделал так:

Delphi
1
2
for i:=length(s) downto 1 do
if(s[i]='"')and((s[i-1]='\')and(s[i-2]='\')and(s[i-3]='\')and(s[i-4]<>'\'))then insert('\\\\',s,i);

@Puporev · 17.06.2017, 16:53

Delphi
1
for i:=length(s) downto 5 do

@D1973 · 17.06.2017, 17:11

Zagadohnik37, это надо что ли?

Delphi
1
2
3
4
procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit3.Text := StringReplace(Edit2.Text, '"', '\\\"', [rfReplaceAll]);
end;

@Zagadohnik37 · 17.06.2017, 21:47 **[ТС]**

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

Zagadohnik37, это надо что ли?
procedure TForm1.Button2Click(Sender: TObject);
begin
*Edit3.Text := StringReplace(Edit2.Text, '"', '"', [rfReplaceAll]);
end;

Нет, т.к.

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

Есть: lalala:\"3\",lala:"2" После замены: lalala:\"3\",lala:\\\"2\\\"

Я уже сделал код, подходящий мне.

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

for i:=length(s) downto 1 do
if(s[i]='"')and((s[i-1]='\')and(s[i-2]='\')and(s[i-3]='\')and(s[i-4]<>'\'))then insert('\\\\',s,i);

Добавлено через 3 минуты
Тема закрыта! Puporev, спс!

@droider · 17.06.2017, 21:48

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

Я уже сделал код

порог цикла замените (см. выше)

@BigSmall · 18.06.2017, 11:09

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

Я уже сделал код, подходящий мне.

Видно, ты его даже и не тестировал, так как он работает некорректно (Пометка: Опасный говнокод - осторожно!).

Ты обращаешься к отрицательной части, что будет приводить к AV когда память, будет недоступна для чтения ...

@Zagadohnik37 · 18.06.2017, 17:59 **[ТС]**

Спс, что сказали, но я не стал об этом заморачиваться, т.к. в моём случае замена будет в основном по-середине текста.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Zagadohnik37 4 / 4 / 1 Регистрация: 23.01.2015 Сообщений: 330

	Замена текста 15.06.2017, 20:47. Показов 1705. Ответов 14 Метки нет (Все метки) Если можно, то скиньте код. Задача: Нужно заменить " на \\\" , при условии, что перед " нет \ . То есть, если без условия, то если в строке есть \\\" , то к нему добавиться один \ , а это мне не нужно. И не подскажите, как называется этот знак: \ ? 0

@droider 4887 / 2821 / 865 Регистрация: 04.10.2012 Сообщений: 10,261
	17.06.2017, 14:41
	Zagadohnik37, так же. 0

@Zagadohnik37 4 / 4 / 1 Регистрация: 23.01.2015 Сообщений: 330
	18.06.2017, 17:59 [ТС]
	Спс, что сказали, но я не стал об этом заморачиваться, т.к. в моём случае замена будет в основном по-середине текста. 0

Замена текста

Решение