OberonCore

В ББ нашёл модуль strings.odc но в нём отсутствуют функции копирования и объединения строк.

Есть ли в ББ стандартный способ по работе со строками?

И ещё вопрос почему в записи, нельзя объявить ARRAY OF CHAR? На форуме нашёл упоминание о таком LEN(S$), для чего знак $?

Стандартной либы для манипуляций со строками по большому счету нет. Все делается в основном руками.
Однако конкатенация строк вшита в язык "+".
$ подсказывает компилятору, что данный массив является строкой. (читай репорт)

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

В каркасе BlackBox некоторые компоненты имеют абстракции для работы со строками, см. модули Strings или Dates, например. Есть также дополнительные средства.

Можно юзать TextModels.Model в качестве динамической строки, у меня некоторые компоненты построены как раз на этом.

Если чего-то не хватает лично вам, создаёте удобную абстракцию и используете.

(*String7. Дана непустая строка. Вывести коды ее первого и последнего символа.*)
MODULE МоиПример;
IMPORT L := StdLog, In, Math;
PROCEDURE Делать*;
VAR n : INTEGER;
c : ARRAY 1024 OF CHAR;
BEGIN
c := "AelHUTнпгTB";
L.Int(ORD(c[0]));
L.Int(ORD(c[10]));(*считаем вручную номер последнего символа*)
L.Int(LEN(c$)); (* длинна строки *)
L.Int(ORD(c[LEN(c$)]));(* номер последнего символа с помощью процедуры НЕ СЧИТАЕТ*)
END Делать;
END МоиПример.
МоиПример.Делать

off-by-one. массив начинается с нуля. соответственно, LEN(c$) — индекс символа, следующего за последним.

L.Int(ORD(c[LEN(c$)-1])); Спасибо !

не забудьте ещё, что если строка может быть пустой — то бишь, нулевой длины — на это надо отдельно проверять. страшного ничего не случится, просто трап, но зачем нам лишние трапы? ;-)

самая дешёвая проверка на пустую строку — это `IF s # '' THEN … END`. (там две одинарных кавычки, между ними ничего.) это действительно очень дёшево: компилятор распознаёт такой код, и специально этот случай оптимизирует.

Спасибо за подсказку в будущее.Я ещё не дорос до понимания, но буду помнить.


[quote="Иван Кузьмицкий"]Хотелось бы уточнить - строк как таковых нет. Есть массивы, иногда интерпретируемые как цепочки литер (если есть $).
/quote]


Этим вариантом мне получается создать массив из символов
MODULE Cp10String8;
IMPORT L := StdLog, In;
PROCEDURE Do*;
VAR n, i : INTEGER;
s : ARRAY 10 OF CHAR;
c : CHAR;
BEGIN
L.Clear;
FOR i := 0 TO 4 DO
s[0] := '#'; s[1] := "g"; s[2] := 'j'; s[3] :='m'; s[4] := '@'; END;
FOR i := 0 TO 4 DO L.Char(s[i]); END;L.Ln;
END Do;
END Cp10String8.
Cp10String8.Do

Этим вариантом мне не получается создать массив из символов
MODULE Cp10String8;
IMPORT L := StdLog, In;

PROCEDURE Do*;
VAR i,n : INTEGER;
s : ARRAY 20 OF CHAR;
c : CHAR;
BEGIN
In.Open; In.Char(c); L.Clear;
FOR i := 0 TO 4 DO In.Char(s[i]); END;L.Ln;
FOR i := 0 TO 4 DO L.Char(s[i]);END;L.Ln;
END Do;
END Cp10String8.
Cp10String8.Do @ j y # w

я вот что имел в виду:

у пустой строки длина нулевая — там же нет символов. и получается `s[-1]`. вот на этм месте программа кончится с авариным остановом. поэтому случай «пустая строка» надо обрабатывать отдельно. и вообще первым делом после написания кода думать, как его можно поломать. ;-) это я как пример мышления скорее: у всякого кода желательно определять область применимости, и что-нибудь с этим делать. чем раньше привычка такая образуется — тем лучше. ;-)

что значит «не получается»? вы когда описываете проблему, действуйте по примерно такому алгоритму: «я делаю вот это и это, ожидал получить вот такой вот результат, а получил вот такой.» потому что «не получается» — очень широкое понятие. чем меньше вы заставляете других догадываться — тем более точной и полезной будет помощь.

Спасибо !
С массивом символов я нашёл такой выход.Надо увеличить итерацию с учётом пропусков . или во входном потоке писать символы без пропусков.Не знаю правильные ли это решения
Дополняю - на выходе получал массив меньшей длинны , нежели ожидал

Вы точно хотите 5 раз подряд одни и те же значения присваивать элементам массива с 0-го по 4-й?

в РЖ выводит
#gjm@
что я и ожидал для этого варианта решения

Т.е. просто без цикла пять присваиваний не подходят

Спасибо Вам за настойчивость ! Сообразил