Работа со строками

[bw]

Собственно интересует инструмент (функции, процедуры) для работы с регулярными выражениями. Никогда раньше необходимости не возникало, а вот теперь надо. Да и вообще какие "продвинутые" инструменты/библиотеки для работы со строками существуют (кроме стандарного набора rtl). Поиск, замена конвертирование в разные типы, форматирование, разбиение и пр. Кто работал с Python'ом, думаю, могут меня понять почему под Pascal'ем мне так некомфортно работать со строковыми типами .

..bw

[noch]

почему некомфортно?

А смотрел unit strutils, там есть почти все что нужно для работы со строками

[SergKam]

да и регулярные выражения входят в поставку fpc
смотри fpcsrc/packages/base/regexpr

заодно вопросик. как лучше считать файл в анси строку? и соответственно записать потом в другой?
Кажется гдето когдато видел в fpc но где и как называется функция не помню

[Janus]

Потоками лучше. Или юзать API - считать в PChar и конвертнуть в string.

[bw]

Пример неудобства.
Есть у меня строка - '/home/bw/projects'.
Как на fp получить из неё - 'projects'?
На Python'е это делается так - s.rsplit('/',1)[1]. Все. s, это исходная строка.

..bw

[me]

s:='/home/bw/projects';
for i:=1 to length(s) do
begin
if s[i]='/' then j:=i;
end;
s1:=copy(s,j+1,length(s)-j);

[bw]

Я могу предложить вариант попроще:

Код: Выделить всё

i:=Cardinal(StrRScan(PChar(s),'/')-PChar(s));
Delete(s,i+1,Length(s)-i);

Но это все равно не радует.

..bw

[Guest]

Почему просто и понятно, не намного сложнее, чем на Python'е

[Alexander]

Сам сильно не пробовал, но люди для сторок используют язык Icon,
последователь Снобола.

[noch]

uses strutils;

function getafter( ch : char; s : ansistring) : string;
var i : integer;
begin
i := rpos (ch, s);
getafter := rightstr (s, length(s)-i);

end;


...

s1 := getafter('/',s); вернет все после последнего слеша, и ничуть не труднее чем в питоне

разве не просто?

нету такой функции в стандартных бибилиотеках - добавили

[SergKam]

Извращенцы.
Почему не использовать стандартный ExtractFileName?

[noch]

Извращенцы.
Почему не использовать стандартный ExtractFileName?

Да, действительно

Просто я и не задумался об этом, хотелось показать что реализовать аналогичную питоновскую функцию не сложно

[bw]

Далеко ходить не буду - home:bw:projects.
И как мне теперь исползовать ExtractFileName?

..bw

[SergKam]

Далеко ходить не буду - home:bw:projects.
И как мне теперь исползовать ExtractFileName?

..bw

Не передергивайте.
Есть функция для поиска в папках указаных в такой форме
(как я понял это чтото типа PATH. сейчас не помню в исходниках
лазаря видел Search... или Find...)/


ЗЫ на эту тему анегдот.
Женщина заезжает в автомастерскую.
- сделайте мне сигнал погромче
- зачем?
- а у меня тормоза не работают

[mif]

из мухи слона раздули