Не могу сравнить строку, в которой есть двойные кавычки

@SvetlankaVB · Регистрация: 14.06.2007

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

Собственно, не могу теперь сравнить строку, в которой есть двойные кавычки!

Пример

Str = "ЗАО " & Chr(34) & "Чебурашка" & Chr(34)
Cool = InStr(Text, Str)

Так вот Кул ничего не получает, хотя в тексте НУ ЕСТЬ ЧЕБУРАШКА!!

19.06.2007, 16:39

А ты сделай так:

Str = 'ЗАО ''Чебурашка''
Str1 = Replace('''''', '''')
Cool = InStr(Text, Str1)

@SvetlankaVB · 19.06.2007, 17:31 **[ТС]**

А у меня при компиляции заявляет, что Replace - неопределенная процедура или функция.

А алгоритм??
Что там хоть должно делаться, может я сама накалякаю?

НУ ПОЧЕМУ, если ЗАТЫК, то на ТАКИХ ЕРУНДОВИНКАХ!

19.06.2007, 18:12

Пардон, надо:
Str1 = Replace(Str, '''''', '''')

@member · 20.06.2007, 23:15

А собственно, зачем Chr(34)? Насколько я понял, это и есть кавычки. Я бы написал так:
Str = 'ЗАО ''Чебурашка'''
Двойные кавычки в строке текста всегда выводятся как одинарные. Может, тем есть какие-нибудь тонкости с InStr?

@Alexey · 21.06.2007, 16:30

Да нету там никаких тонкостей, все должно работать без chr().

@vap · 27.06.2007, 17:55

Dim str As String
Dim text As String
text = 'fddfd fgfgfg åíåíê&ia cute;êåíê&aring ;í ЗАО ''Чебурашка'' àïàï àïàïà êíåêå åêíåê'
str = 'ЗАО ' & Chr(34) & 'Чебурашка' & Chr(34)
cool = InStr(text, str)

Это нормально работает.
cool = 27, проверял.
возможно явление увязано с ОС.
У меня Win2000 VB6 sp4.

VAP

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@SvetlankaVB 0 / 0 / 0 Регистрация: 14.06.2007 Сообщений: 9

	Не могу сравнить строку, в которой есть двойные кавычки 19.06.2007, 16:36. Показов 1967. Ответов 6 Метки нет (Все метки) Собственно, не могу теперь сравнить строку, в которой есть двойные кавычки! Пример Str = "ЗАО " & Chr(34) & "Чебурашка" & Chr(34) Cool = InStr(Text, Str) Так вот Кул ничего не получает, хотя в тексте НУ ЕСТЬ ЧЕБУРАШКА!! 0

asd
	19.06.2007, 16:39
	А ты сделай так: Str = 'ЗАО ''Чебурашка'' Str1 = Replace('''''', '''') Cool = InStr(Text, Str1)

@SvetlankaVB 0 / 0 / 0 Регистрация: 14.06.2007 Сообщений: 9
	19.06.2007, 17:31 [ТС]
	А у меня при компиляции заявляет, что Replace - неопределенная процедура или функция. А алгоритм?? Что там хоть должно делаться, может я сама накалякаю? НУ ПОЧЕМУ, если ЗАТЫК, то на ТАКИХ ЕРУНДОВИНКАХ! 0

asd
	19.06.2007, 18:12
	Пардон, надо: Str1 = Replace(Str, '''''', '''')

@member 0 / 0 / 0 Регистрация: 16.08.2006 Сообщений: 256
	20.06.2007, 23:15
	А собственно, зачем Chr(34)? Насколько я понял, это и есть кавычки. Я бы написал так: Str = 'ЗАО ''Чебурашка''' Двойные кавычки в строке текста всегда выводятся как одинарные. Может, тем есть какие-нибудь тонкости с InStr? 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	21.06.2007, 16:30
	Да нету там никаких тонкостей, все должно работать без chr(). 0

@vap 0 / 0 / 0 Регистрация: 14.05.2007 Сообщений: 6
	27.06.2007, 17:55
	Dim str As String Dim text As String text = 'fddfd fgfgfg åíåíê&ia cute;êåíê&aring ;í ЗАО ''Чебурашка'' àïàï àïàïà êíåêå åêíåê' str = 'ЗАО ' & Chr(34) & 'Чебурашка' & Chr(34) cool = InStr(text, str) Это нормально работает. cool = 27, проверял. возможно явление увязано с ОС. У меня Win2000 VB6 sp4. VAP 0

Опции темы