Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/25: Рейтинг темы: голосов - 25, средняя оценка - 4.92
6 / 5 / 0
Регистрация: 02.04.2012
Сообщений: 82

Разбиение строки на отдельные слова

05.07.2012, 09:52. Показов 4859. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите с ошибкой, я просто с VB столкнулся впервые сегодня утром, а времени на подробное изучение нет, сегодня надо сдать работу.
Вот код процедуры разбиения
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
    Dim i, j, p As Integer
    Dim str, gor, tmp, buffer, pun As String
    For i = 2 To 4
        str = Cells(i, Adr).Value
        For j = 0 To Len(str) - 1
            If (str.Chars(j) <> " ") Or (str.Chars(j) <> ",") Or (str.Chars(j) <> Chr(0)) Then
               tmp = tmp + str.Chars(j)
            Else
                ' Обрабатываем слово
            End If
        Next j  
    Next i
В этой строке ошибка Run-time error 404
PureBasic
1
If (str.Chars(j) <> " ") Or (str.Chars(j) <> ",") Or (str.Chars(j) <> Chr(0)) Then
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.07.2012, 09:52
Ответы с готовыми решениями:

Разбиение строки на отдельные группы символов
Здравствуйте! В общем, такая ситуация: Есть, скажем, 100 строк(A1:A100), но на деле строк гораздо больше(порядка 40к). В каждой...

Как копировать отдельные слова из ячейки в соседние строки
Подскажите пожалуйста как разбить содержимое ячейки по определенным ячейкам если слова в ячейке разделены пробелом? А то я пробовал ...

Разбиение текста на отдельные слова и символы
Необходимо разбить текст, на отдельные символы и слова. К примеру, есть текстовый файл с кодом какой то небольшой программы на с#, его...

5
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
05.07.2012, 09:57
Почитайте про функцию Split.
1
6 / 5 / 0
Регистрация: 02.04.2012
Сообщений: 82
05.07.2012, 10:27  [ТС]
Спасибо!
0
призрак
 Аватар для ikki
3266 / 894 / 119
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
05.07.2012, 10:28
Цитата Сообщение от Амадей Посмотреть сообщение
я просто с VB столкнулся впервые сегодня утром, ..., сегодня надо сдать работу
и сколько языков вы хотите освоить по методу один день - один язык?

почему бы не написать честно: "я весь семестр дурака валял, а сегодня утром вспомнил, что сегодня - последний день"? в лоб всё равно ведь не ударят.

Цитата Сообщение от Амадей Посмотреть сообщение
а времени на подробное изучение нет
изучайте не подробно - почитайте про объявление переменных, получение в переменную значения ячейки, функции Replace(), Split(), синтаксис циклов и If...Then...Else

пары часов вполне хватит.
с такими талантами-то.
1
6 / 5 / 0
Регистрация: 02.04.2012
Сообщений: 82
05.07.2012, 16:17  [ТС]
Таким образом ни сколько, весь семестр я изучал Си, макросы мы изучаем на практике, нам на них дали два дня, и VBA я вообще не собираюсь изучать, мне нужно было сдать по ним одну работу, что я успешно сделал, за что спасибо Казанскому. А вам бы я советовал не делать о людях поспешных выводов.
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18030 / 7733 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
05.07.2012, 23:41
Да все тут Амадей нормально. Видно, что Си , (только c логическими операторами ошиблись). Всего чуточку подправить:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim i As Integer, j as integer, Adr as integer
    Dim st As String, tmp as string, ch as string*1
    Adr=1
    For i = 2 To 4
        st = Cells(i, Adr).Value
        For j = 0 To Len(st)
            ch=mid(st,j,1)
            If ch <> " " and ch <> "," and ch <> "." Then
               tmp = tmp & ch
            Else
                ' Обрабатываем слово
                tmp=""
            End If
        Next j  
    Next i
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.07.2012, 23:41
Помогаю со студенческими работами здесь

Разбиение строки на отдельные символы
Как разбить строку &quot;12345&quot; в лазарус на отдельные символы ?

Разбиение числовой строки на отдельные числа
Допустим,пользователь в одну строку вводит 12 24 13. Нужно чтобы n=12;m=24;k=13. Спасибо заранее :)

Разбиение текста на отдельные строки (по k символов в каждой строке) и выравнивание по правой границе
Дана строка символов, содержащая некоторый текст на русском языке. Разработать программу форматирования этого текста, то есть его разбиение...

Разбиение строки на отдельные строки
Всем привет, возник такой вопрос от севера к клиенту приходит строка, имеющая следующий вид String more = &quot;title/content&quot; ...

Разделение строки на отдельные слова [С++]
Надо разделить строку на отдельные слова. Использовать strtok() нельзя.


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru