Переставить все слова в обратном порядке для выбранного предложения - VB
Формулировка задачи:
Здравствуйте, помогите пожалуйста с кодом в VBA.
Нужно вывести текст с файла, что находится на i-м месте. Для выбраного предложения Переставить все слова в обратном порядке ( для этого нужно использовать listbox?)
Вот набросок вывода файла через форму:
Запись.
Чтение (считывает файл в переменную, но как сделать вывод i-го места?)
Вот как сделать перенос слов,и нужно ли делать форму с листбоксом?
Решение задачи: «Переставить все слова в обратном порядке для выбранного предложения»
textual
Листинг программы
Dim sStr, s As String, sText As String ' Записываем в переменную какой-то текст sText = "AAA BBB CCC. DDD EEE FFF.GGG HHH KKK. LLL MMM NNN." ' Разбиваем текст на предложения (разделитель - точка) sStr = Split(sText, ".") ' Переставляем слова в обратном порядке в нужном нам предложении + _ с использованием пользовательской функции RevString. + _ 0 - первое предложение, 1 - второе , ..... s = RevString(sStr(2)) MsgBox s End Sub Function RevString(ByVal s As String) As String Dim sArr, i As Integer sArr = Split(s) For i = UBound(sArr) To 0 Step -1 RevString = RevString & " " & sArr(i) Next i End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д