Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/30: Рейтинг темы: голосов - 30, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 02.01.2014
Сообщений: 2

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

02.01.2014, 16:43. Показов 6437. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В общем, есть строка такого формата:
Слово Число:Число Слово
Длина слов не известна. Числа от 0 до 20. Считать первое слово проблем не составляет:
Pascal
1
x:=copy(mas[j],1,pos(' ',mas[j]));
А вот последнее слово не получается. Может есть идеи, как выделить позицию второго пробела?(тогда получится скопировать с позиции 2-го пробела до конца строки).
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.01.2014, 16:43
Ответы с готовыми решениями:

Разделить строку по пробелам
нужно написать программу которая записывает введенное в файл и потом находила и делила на массивы по пробелам Visual Studio 2010

Разделить строку по пробелам (\s+)
Помнится мне на питоне такой код выполнялся без вопросов, а на c# подчёркивает ('\s+') выдаёт ошибку: Unrecognized escape sequence Я бы...

Разделить строку по пробелам (без потоков)
Здравствуйте. Я решаю задачку из книги, надо написать небольшую оболочку. Использую Linux. Думаю над тем, как разделить строку (команду),...

4
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
02.01.2014, 19:24
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
s1:=copy(s,1,pos(' ',s)-1); //первое слово
delete(s,1,pos(' ',s));
s2:='';
while s[1] in ['0'..'9'] do
 begin
  s2:=s2+s[1];
  delete(s,1,1)
 end;
val(s2,r1,c);//число 1
delete(s,1,pos(':',s));
s3:='';
while s[1] in ['0'..'9'] do
 begin
  s3:=s3+s[1];
  delete(s,1,1)
 end;
val(s3,r2,c);//число 2
delete(s,1,pos(' ',s));
//остаток строки s=второе слово
1
0 / 0 / 0
Регистрация: 02.01.2014
Сообщений: 2
02.01.2014, 20:10  [ТС]
И ещё удалить первый символ в остатке строки s
Большое спасибо
0
 Аватар для 646kapeh064
59 / 58 / 16
Регистрация: 09.12.2013
Сообщений: 208
02.01.2014, 21:12
Цитата Сообщение от Lehanyich Посмотреть сообщение
И ещё удалить первый символ в остатке строки s
Pascal
1
s.Substring(1)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33376 / 21500 / 8236
Регистрация: 22.10.2011
Сообщений: 36,895
Записей в блоге: 11
03.01.2014, 23:55
Lehanyich, используй средства, которые тебе предоставляет язык:

Pascal
1
2
3
4
5
begin
  var s : string := 'Слово11 1:15 Слово22';
  var arr := s.Split(' '); // Строка разбита на слова по пробелам
  writeln(arr[0], ' ', arr[2]); // Слово11 Слово22
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.01.2014, 23:55
Помогаю со студенческими работами здесь

Разделить строку не только по пробелам, но и по знакам препинания
procedure TForm1.Button2Click(Sender: TObject); var s, s2, s3, word:string; i, x, k:integer; begin Memo2.Lines.Clear; ...

Разделить строку по пробелам и записать полученные части в массив
Здравствуйте. Подскажите, есть ли способ разделить строку по пробелам и записать полученные части в массив (по сути, аналог Split() в c#)?

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

Разделить строку на слова
Есть некая строка со словами: string stroka; И есть некоторая функция перегрузки: istream & operator >>(istream *...

Разделить строку на слова
Напишите пожалуйста программу по данной задаче Дана строка, состоящая из слов, разделенных символами, которые перечислены во второй...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru