Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.74/27: Рейтинг темы: голосов - 27, средняя оценка - 4.74
1 / 1 / 0
Регистрация: 25.12.2012
Сообщений: 32
1

Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы

25.05.2013, 16:43. Просмотров 5409. Ответов 15
Метки нет (Все метки)


Здравствуйте! Прошу помощи или совета, как реализовать такое в ВБА? на c# есть у меня этот код(куча примеров есть в Интернете ), но на Вба нечего похожего так и не нашел... Заранее спасибо, за помощь!

Написать программу, которая считывает английский текст из файла и выводит на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2013, 16:43
Ответы с готовыми решениями:

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

Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы
Написать программу, которая считывает английский текст из файла и выводит на экран слова текста,...

Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы
Написать программу, которая считывает английский текст из файла и выводит на экран слова текста,...

Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы
Программа, которая считывает английский текст из файла и выводит на экран слова текста,...

15
1 / 1 / 0
Регистрация: 25.12.2012
Сообщений: 32
25.05.2013, 18:28  [ТС] 3
Большое спасибо!
0
5542 / 1347 / 148
Регистрация: 08.02.2009
Сообщений: 4,080
Записей в блоге: 30
25.05.2013, 20:08 4
Напишу более общую программу — для русско-английского текста в документе Word.

Добавлено через 29 минут
Ну вот:
3
Миниатюры
Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы  
Вложения
Тип файла: doc LetterIndexWeb.doc (42.0 Кб, 44 просмотров)
1 / 1 / 0
Регистрация: 25.12.2012
Сообщений: 32
25.05.2013, 22:52  [ТС] 5
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Напишу более общую программу — для русско-английского текста в документе Word.

Добавлено через 29 минут
Ну вот:
Хмм, интересно тоже большое спасибо!
0
5542 / 1347 / 148
Регистрация: 08.02.2009
Сообщений: 4,080
Записей в блоге: 30
26.05.2013, 00:42 6
Не уж, хотелось бы, чтобы и вы выложили какой-нибудь exe-файл (из тех, что в Интернете куча).
1
1 / 1 / 0
Регистрация: 25.12.2012
Сообщений: 32
26.05.2013, 17:08  [ТС] 7
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Не уж, хотелось бы, чтобы и вы выложили какой-нибудь exe-файл (из тех, что в Интернете куча).
Хорошо, как доделаю , то сразу выложу здесь!
0
1 / 1 / 0
Регистрация: 25.12.2012
Сообщений: 32
28.05.2013, 15:30  [ТС] 8
Хелп ми, у меня что-то все-равно не выходит, я сделал пока просто, чтобы искал гласные буквы и то не работает почему то!
Нужно Вывести на экран слова английского текста, начинающиеся и оканчивающиеся на гласные буквы

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub pr()
Dim Ñëîâî As String
Dim kolvo As Integer
Dim i As Integer
InputBox "Ñëîâî= "
For i = 1 To Len(Ñëîâî)
    If LCase(Mid(Ñëîâî, i, 1)) Like "[aeiouy]" Then
       kolvo = kolvo + 1
    End If
Next i
MsgBox ("kolvo=") & kolvo
 
End Sub


Добавлено через 3 часа 16 минут
Не могу найти ошибку!
0
5542 / 1347 / 148
Регистрация: 08.02.2009
Сообщений: 4,080
Записей в блоге: 30
28.05.2013, 15:53 9
А пост #4 Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы?

Или на какой-то другой экран надо вывести? Или сам код не устраивает?
0
Миниатюры
Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы  
1 / 1 / 0
Регистрация: 25.12.2012
Сообщений: 32
28.05.2013, 16:01  [ТС] 10
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
А пост #4 Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы?

Или на какой-то другой экран надо вывести? Или сам код не устраивает?
Проблема в том, что сделать нужно на вба. А у вас в ворде, я пытался совместить ваш код в екселе, ан нет, синтаксис все-равно отличается!
0
5542 / 1347 / 148
Регистрация: 08.02.2009
Сообщений: 4,080
Записей в блоге: 30
28.05.2013, 19:01 11
Ну правильно, в ворде! Жмите Alt-F8 — и смотрите код VBA. Или Alt-F11.

А для эксселя не синтаксис другой, а сами объекты. Если "вывод на экран" делать не в документ, а в окно сообщения (MsgBox) — будет одинаково пригодно.

Для Excel мой код из поста #4 даже и не планировался — он берёт текст из активного Word-документа.

Добавлено через 1 час 25 минут
Цитата Сообщение от ilnar116 Посмотреть сообщение
c# есть у меня этот код
Ну покажите же наконец, интересно же!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Compare Text 'эта опция для неразличения регистра букв
 
Sub pr() 'ПОДСЧЁТ СЛОВ С ГЛАСНЫМИ В НАЧАЛЕ И В КОНЦЕ (слова вводить по одному!)
Dim Слово As String
Static kolvo As Integer
 
    Слово = InputBox("Ввод слов (английских либо русских).")
        
    If Left(Слово, 1) Like "[aeiouаеёиоуэюя]" _
    And Right(Слово, 1) Like "[aeiouаеёиоуэюя]" Then
    'из набора букв убрал игрек: в начале слов он не гласный!
        kolvo = kolvo + 1
    End If
 
    If MsgBox("Слов с гласными по краям: " & kolvo, _
                vbOKCancel, "Счётчик удач") = vbCancel Then
        Exit Sub
    Else
        Call pr 'pr выполняется снова - пока не нажали Cancel (Отмена)
    End If
End Sub
Работает в любом приложении, поддерживающем VBA.
0
1 / 1 / 0
Регистрация: 25.12.2012
Сообщений: 32
28.05.2013, 19:31  [ТС] 12
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Ну правильно, в ворде! Жмите Alt-F8 — и смотрите код VBA. Или Alt-F11.
Работает в любом приложении, поддерживающем VBA.
О, большое спасибо все работает теперь, на сишарпе выглядит немного иначе + там он через текстовый документ это все обрабатывал!
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
using System;
using System.Linq;
using System.IO;
 
namespace Lab.rab 
{
    class Program
    {
        static void Main(string[] args)
        {
            string vals = "AaEeIiOoUuYy";
            string[] str = System.IO.File.OpenText(@"D:\\test.txt").ReadToEnd().Replace("\r\n", " ").Split();
 
            foreach (var s in str)
                if (s != "")
                    if (vals.IndexOf(s[0]) != -1)
                        Console.WriteLine(s);
            Console.ReadKey();
        }
    }
}
Добавлено через 3 минуты
Sasha_Smirnov,
Еще раз спасибо, за то что уделили мне время!
1
5542 / 1347 / 148
Регистрация: 08.02.2009
Сообщений: 4,080
Записей в блоге: 30
28.05.2013, 20:10 13
О, я и сам многое узнал! То, что на другом языке выглядит иначе, это ясно (но Yy я бы исключил).

P/s: если что, есть кнопка «Ответить», цитировать меня не надо так часто!

Добавлено через 34 минуты
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Compare Text 'эта опция для неразличения регистра букв (в Like)
 
Sub pr() 'ПОДСЧЁТ СЛОВ С ГЛАСНЫМИ В НАЧАЛЕ И КОНЦЕ (вводить по одному слову)
Dim Слово As String
Static kolvo As Integer, elita As String
    Слово = InputBox("Ввод слов (английских либо русских).")
        
    If Left(Слово, 1) Like "[aeiouаеёиоуэюя]" _
    And Right(Слово, 1) Like "[aeiouаеёиоуэюя]" Then
        kolvo = kolvo + 1           'подсчёт нужных слов
        elita = elita & " " & Слово 'запись нужных слов
    End If
 
    If MsgBox("Слов с гласными по краям: " & kolvo, _
                vbOKCancel, "Счётчик удач") = vbCancel Then
        MsgBox elita & " (" & kolvo & " шт." & ")" 'добавил ВЫВОД НА ЭКРАН
        kolvo = 0
        elita = vbNullString
        Exit Sub
    Else
        Call pr 'pr выполняется снова - пока не нажали Cancel/Отмена
    End If
End Sub
0
Заблокирован
30.01.2015, 06:54 14
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
If Left(Слово, 1) Like "[aeiouаеёиоуэюя]" _
* * And Right(Слово, 1) Like "[aeiouаеёиоуэюя]" Then
Visual Basic
1
if Слово Like "[aeiouаеёиоуэюя]*[aeiouаеёиоуэюя]"Then
?

Добавлено через 1 час 54 минуты
А слово из одной буквы удовлетворяет условию задачи? Если ДА, то последний вариант не годится!
Цитата Сообщение от ilnar116 Посмотреть сообщение
английский текст ... слова текста, начинающиеся и оканчивающиеся на гласные буквы
[AEIOUY]
а если всё же с русскими буквами, то Ы не мешало бы добавить?
3
Заблокирован
30.01.2015, 07:21 15
Всё верно, только просьба делайте латинские названия везде где только можно (пожалуйста)
0
5542 / 1347 / 148
Регистрация: 08.02.2009
Сообщений: 4,080
Записей в блоге: 30
06.02.2015, 02:38 16
Night Ranger:
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Visual Basic
1
Static kolvo As Integer, elita As String
А узбекские что, плохо?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.02.2015, 02:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы
Помогите пожалуйста, сделать лабу :cry: Лабораторная работа 7. Строки Задание: Написать...

Вывести на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы
ПОМОГИТЕ пожайлусто ПЕРЕДЕЛАТЬ прогрммку=) СРОЧНО выручите=( надо чтобы: Написать программу,...

Вывести на экран слова, начинающиеся и оканчивающиеся на гласные буквы
Написать программу, которая считывает английский текст из файла и выводит на экран слова текста,...

Программа, которая считывает английский текст из файла и выводит на экран слова текста, начинающиеся и оканчивающиеся на гласные буквы
Помогите пожалуйста, как написать программу, которая считывает английский текст из файла и выводит...


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

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

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