Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с текстом

Автор: Akella 2.2.2012, 17:30

Есть строка

Цитата

'SELECT DAF.ID, DAF.ID_OBJECT, DAF.ID_SUPERTYPE, '#$D#$A'DAF.F1_OT_MKAD, '#$D#$A

Нет ли в дельфи случайно какой-нибудь готовой функции, чтобы найти номер позиции последней запятой.

Другой пример. В тексте встречается много раз символ тире -. Как найти позицию последнего тире? Или как найти позицию третьего по счету тире?

Добавлено через 9 минут и 58 секунд
Нашёл http://www.delphisources.ru/pages/faq/faq_delphi_basics/LastDelimiter.php.html

Автор: Frees 2.2.2012, 17:44

Цитата(Akella @ 2.2.2012, 20:30

)

Нет ли в дельфи случайно какой-нибудь готовой функции, чтобы найти номер позиции последней запятой.

Код


 Pos(',', ReverseString(s));

Автор: 14SatanA88 3.2.2012, 08:58

Цитата(Akella @ 2.2.2012, 17:30

)

Другой пример. В тексте встречается много раз символ тире -. Как найти позицию последнего тире? Или как найти позицию третьего по счету тире?

ну вот например так

Код


function npos(c: char; s: string; n: byte): integer;
var i: integer;
begin

  if n = 0 then npos:=0
  else
  for i:=1 to length(s) do
    if s[i]=c
      then begin
        npos:=i;
        if n = 1 then break else dec(n);
      end;

end;

Код


// с начала
npos('-', somestring, 3);
// с конца
npos('-', ReverseString(somestring), 3);

Автор: Akella 3.2.2012, 12:19

Frees, но LastDelimiter лучше. Но всё равно спасибо за вариант, я не знал про ReverseString

Добавлено через 45 секунд
14SatanA88, ну да, это понятно, я думал, что может есть уже что-то стандартное. В дельфи функций много ведь.

Автор: 14SatanA88 3.2.2012, 12:36

Akella, не сразу заметил, что Вы ищете стандартную функцию

Автор: Frees 3.2.2012, 13:41

Цитата(Akella @ 3.2.2012, 15:19

)

Frees, но LastDelimiter лучше. Но всё равно спасибо за вариант, я не знал про ReverseString

Лучше, я про LastDelimiter не знал!

Автор: Akella 3.2.2012, 17:24

Цитата(14SatanA88 @ 3.2.2012, 12:36)

Akella, не сразу заметил, что Вы ищете стандартную функцию

Ну просто мне кажется, что если бы была стандартная, как, например, POS(), то она наверно бы использовала asm и работала чуток шустрее, чем цикл FOR TO.

Можно на ТЫ smile

Добавлено через 1 минуту и 44 секунды
Взять ту же LastDelimiter. Она учитывает платформу, может быть при переходе на юникод этот кусок кода с LastDelimiter не пришлось бы тестировать и переписывать.

Автор: Чучмек 4.2.2012, 03:48

Код


function A(s:PAnsiChar;char:AnsiChar;n:cardinal;rev:bool):PAnsiChar;stdcall;
asm
pushad
pushf
mov edi,s
xor eax,eax
xor ecx,ecx
dec ecx
cld
repne scasb
neg ecx
mov result,0
mov ebx,n
mov al,char
cmp rev,0
jz @e
std
dec edi
jmp @a
@e:
mov edi,s
dec ecx
@a:
repne scasb
cmp ecx,0
jz @b
dec ebx
jnz @a
cmp rev,0
jz @c
inc edi
jmp @d
@c:
dec edi
@d:
mov result, edi
@b:
popf
popad
end;

function W(s:PWideChar;char:WideChar;n:cardinal;rev:bool):PWideChar;stdcall;
asm
pushad
pushf
mov edi,s
xor eax,eax
xor ecx,ecx
dec ecx
cld
repne scasw
neg ecx
mov result,0
mov ebx,n
mov ax,char
cmp rev,0
jz @e
std
sub edi,2
jmp @a
@e:
mov edi,s
dec ecx
@a:
repne scasw
cmp ecx,0
jz @b
dec ebx
jnz @a
cmp rev,0
jz @c
add edi,2
jmp @d
@c:
sub edi,2
@d:
mov result, edi
@b:
popf
popad
end;

Автор: Akella 4.2.2012, 10:30

rev - это reverse?

Автор: Чучмек 4.2.2012, 10:54

Да.
Только красивей было бы две отдельные функции сделать.

Автор: Чучмек 4.2.2012, 22:24

Вот. Оптимизировал. Имена параметров можно поменять на любые не изменяя код.

Код


function A(s:PAnsiChar;char:AnsiChar;n:cardinal;rev:bool):PAnsiChar;stdcall;
asm
pushad
pushf
mov edi,[ebp+$08]//s
xor eax,eax
xor ecx,ecx
dec ecx
cld
repne scasb
neg ecx
sub ecx,2
mov [ebp-$04],0      //result:=0
mov ebx,[ebp+$10]    //n
mov al,[ebp+$0C]     //char
mov esi,1
cmp [ebp+$14],0      //rev
jz @e
std
sub edi,2
jmp @a
@e:
mov edi,[ebp+$08]//s
neg esi
@a:
repne scasb
jnz @b
dec ebx
jnz @a
add edi,esi
mov [ebp-$04],edi//   result:= edi
@b:
popf
popad
end;

function W(s:PWideChar;char:WideChar;n:cardinal;rev:bool):PWideChar;stdcall;
asm
pushad
pushf
mov edi,[ebp+$08]//s
xor eax,eax
xor ecx,ecx
dec ecx
cld
repne scasw
neg ecx
sub ecx,2
mov [ebp-$04],0      //result:=0
mov ebx,[ebp+$10]    //n
mov ax,[ebp+$0C]     //char
mov esi,2
cmp [ebp+$14],0      //rev
jz @e
std
sub edi,4
jmp @a
@e:
mov edi,[ebp+$08]//s
neg esi
@a:
repne scasw
jnz @b
dec ebx
jnz @a
add edi,esi
mov [ebp-$04],edi//   result:= edi
@b:
popf
popad
end;