Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/27: Рейтинг темы: голосов - 27, средняя оценка - 4.67
903 / 12 / 1
Регистрация: 02.10.2010
Сообщений: 136

Чтение текста посимвольно и разбивка на слова

17.03.2011, 21:55. Показов 5738. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно считать строку, которая может состоять из любых символов.Потом разбить на слова. Причем разбивка идет по любому символу кроме букв.(то есть "ABCD8HD,GHYR" разбивается на "ABCD HD GHYR) Как такое написать?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.03.2011, 21:55
Ответы с готовыми решениями:

Разбивка текста на предложения и слова
Всем привет. Мозги кипят, может кто поможет. Есть задача примерно следующего характера: прочитать из файла текст, разбив на...

Чтение первого слова из текста
Добрый вечер, не приходилось работать с текстовым файлом. Теперь возникают проблемки) Стоит задача: прочесть из текстового файла...

Осуществить чтение текста из файла с разбивкой на слова
Задача в разбиении текста на слова. В качестве разделителя пробел. Сначала хотел в этом цикле сделать дописывание строк в символьный...

4
Почетный модератор
 Аватар для Памирыч
23251 / 9163 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
18.03.2011, 07:37
VB.NET
1
2
3
4
5
6
7
8
        Dim regexp As New System.Text.RegularExpressions.Regex("[a-zA-Z]+")
        Dim Str As String = "ABCD8HD,GHYR"
        Dim i As Integer
        Dim m As System.Text.RegularExpressions.MatchCollection
        m = regexp.Matches(Str)
        For i = 0 To m.Count - 1
            MsgBox(m.Item(i).Value, MsgBoxStyle.Information)
        Next
0
903 / 12 / 1
Регистрация: 02.10.2010
Сообщений: 136
20.03.2011, 17:31  [ТС]
Спасибо Памирыч, а на вб 6 код такой же или другой надо
 Комментарий модератора 
Для VB6 есть другой раздел. Перенесено.
0
Почетный модератор
 Аватар для Памирыч
23251 / 9163 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
20.03.2011, 17:33
На шестом тоже есть регулярные выражения, и принцип я думаю, прокатит, но как их использовать кодом - не скажу даже.
0
 Аватар для ironegg
1905 / 782 / 31
Регистрация: 11.02.2010
Сообщений: 1,567
21.03.2011, 13:02
кажется, в VB6 нет встроенных регулярных выражений. нужно подключить библиотеку "Microsoft VBScript Regular Expressions" https://www.cyberforum.ru/visu... post935758

а вот примерый код без сторонних библиотек
Visual Basic
1
2
3
4
5
6
7
8
9
10
Strng = "AbCD8HD <> GHÞR"
        For i = 1 To Len(Strng)
            lttr = Mid(Strng, i, 1)
            If lttr Like "[A-Z|a-z|À-ß|à-ÿ]" Then
                wrds = wrds & lttr
            Else
                wrds = wrds & " "
            End If
        Next
        Debug.Print wrds
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.03.2011, 13:02
Помогаю со студенческими работами здесь

Чтение из файла посимвольно
Доброго времени суток, знатоки! Есть файл txt, в котором текст представлен в виде одной строки(около 65000 символов, в последующем будет...

чтение строки посимвольно
Кто нибудь подскажет как проситать строку посимвольно?? ну я писал: for i:=1 to length(s) do begin writeln(i,length(s)); ...

Чтение файла посимвольно
Не получается прочитать файл посимвольно using (StreamReader file = new StreamReader(path)) { while...

Чтение посимвольно из файла с пробелами
Ребята, подкажте, в чем проблема в чтении файла? спасибо #include &quot;fstream&quot; #include &quot;string&quot; using namespace std; int main ()...

Чтение из файла каждой цифры посимвольно
Если я записал в файл число 34523, то как мне его считать не по символьно каждую цифру(3 потом 4 потом 5...) а полностью целое число(в...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. На мобильном - сканируйте QR-код. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru