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

@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

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. 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. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

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

	Не могу сравнить строку, в которой есть двойные кавычки 19.06.2007, 16:36. Показов 1963. Ответов 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