Member 13249513 Ответов: 2

Удалите doubleqoutes и вставьте символ


У меня есть два абзаца ниже в многострочном текстовом поле, и я хочу:

Замените числа 1 и 2 на Q1 и Q2, и
Удалите все кавычки.
Согласно Forbes & Hawranik (найдено в Kulig &Williams, 2012), что из перечисленного является уникальной характеристикой сельских жителей с деменцией?

А. у них меньше шансов иметь взрослого ребенка, который помог бы им в уходе. Б. Они испытывают задержку в диагностике деменции. С. существует большее нежелание принимать специализированную помощь. Д. У них, как правило, более позднее начало деменции, чем у их городских коллег.
Медсестра выступает на семинаре по повышению квалификации персонала. Какое заявление медсестры-участницы показывает необходимость образования?
А. " Я знаю, что последствия дискриминации все еще присутствуют, и они связаны с неравенством в области здравоохранения”. Б. “Я уверен, что процент часов ухода за клиентами, которые мы тратим на работу с клиентами из числа меньшинств, неизбежно увеличится”. С. “Некоторые могут ошибочно предположить, что существует мало различий в области здравоохранения, потому что в Канаде существует универсальная система здравоохранения”. Д. “неточно связывать Распространенность конкретных заболеваний с конкретными группами меньшинств.”

Что я уже пробовал:

Я пробовал этот код, но безрезультатно

Для i = 0 до Val(textcon.Линии.Граф) - 1

Если textcon.Строки (i).Содержит(Chr (34)) Затем
MyStringBuilder.Заменить(ЧР(34), "#")
Конец, Если
следующий

Помогите пожалуйста

2 Ответов

Рейтинг:
2

Member 13249513

Да вы правы цитаты разные вот почему я не могу приступить к работе

MyStringBuilder.Replace(ans, "}::Q" & y & "::").Replace(Chr(147), "").Replace(Chr(148), "")


я использовал это, и это работает благодаря Джею Пателю-за то, что он заглянул в коды chr

и спасибо тебе тоже.


Рейтинг:
15

OriginalGriff

Обратите внимание, что эти кавычки не"", а" специальные кавычки “ текстового процессора: ” "в начале и "" в конце.
Попробовать это:

Dim s As String = myTextBox.Text
s = s.Replace("1", "Q1")
s = s.Replace("2", "Q2")
s = s.Replace("""", "")
s = s.Replace(""", "")
s = s.Replace(""", "")
myTextBox.Text = s