Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Varlevida
0 / 0 / 0
Регистрация: 22.11.2015
1

Выбрать символы из текста

22.03.2013, 12:03. Просмотров 653. Ответов 2
Метки нет (Все метки)

В VB не бум-бум, поэтому прошу помощи.
Дан текст на русском языке. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.
Буду благодарен.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.03.2013, 12:03
Ответы с готовыми решениями:

Нужно выбрать часть текста..
ээээ.... не могу прально сформулировать :)) ну, вобщем объясню на примере: у меня есть строка...

Из заданного текста выбрать и напечатать те символы (продолжение в теме)
Здравствуйте! Вот по этим заданиям требуется помощь! 1. Из заданного текста выбрать и напечатать...

Из заданной строки текста выбрать все согласные символы и сформировать из них массив
Помогите, пожалуйста, нужно "из заданной строки текста выбрать все согласные символы и сформировать...

Из заданного текста выбрать те символы, которые встречаются в нём ровно один раз
Из заданного текста выбрать те символы, которые встречаются в нём ровно один раз. Вывести их в...

Из заданного текста выбрать и напечатать те символы, которые встречаются в нем ровно один раз
Не могу научиться мыслить на c++. Но старательно пытаюсь.... Если бы не традиционное "Завтра...

2
Казанский
14895 / 6300 / 1717
Регистрация: 24.09.2011
Сообщений: 9,977
22.03.2013, 12:31 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim s$, d$, x
s = InputBox("Текст:", , "Дан текст на русском языке")
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For x = 1 To Len(s)
        d = Mid$(s, x, 1)
        .Item(d) = .Item(d) + 1
    Next
    d = ""
    For Each x In .Keys
        If .Item(x) = 1 Then d = d & x
    Next
End With
MsgBox s & vbLf & vbLf & d
End Sub
2
gaw
6635 / 1502 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
22.03.2013, 14:31 3
Лучший ответ Сообщение было отмечено как решение

Решение

Visual Basic
1
2
3
4
5
a = "Дан текст на русском языке"
For i = 1 To Len(a)
If UBound(Split(a, Mid(a, i, 1))) = 1 Then s = s + Mid(a, i, 1)
Next i
MsgBox s
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2013, 14:31

Из заданного текста выбрать и напечатать те символы, которые встречаются в нѐм ровно один раз.
Здравствуйте, помогите пожалуйста решить задачи на языке VBA, на делфи частично могу сделать, но в...

Подпрограммы: Из заданного текста выбрать и напечатать те символы, которые встречаются в нем ровно один раз
Доброго времени суток, господа. Часто посещаю ваш форум, но прямое общение понадобилось только...

Выбрать из текста только те символы, которые встречаются в нем только один раз
Здравствуйте, помогите пожалуйста написать программу:) Условие. Дана строка, содержащая текст на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru