| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Pos с конца строки

Vlad0 ©   (2007-11-01 18:49:00) 

Существует ли в Delphi функция Pos, которая ищет вхождения с конца строки? Если нет, то возможно у вас есть хорошо оптимизированный вариант?

---

Dib@zol   (2007-11-01 22:18:00) [1]

function PosR(sub, str:string):Cardinal;
asm
 PUSH EAX;
 PUSH EBX;
 PUSH EDX;
 PUSH EDI;
 PUSH ESI;

 MOV ESI, str;
 MOV EDI, sub;

 MOV EAX, DWORD PTR [ESI-4];

 @eval:
 MOV Result, 0;
 MOV EBX, DWORD PTR [EDI-4];

 @rept:
 CMP EAX, 0;
 JE @null;
 MOV DL, BYTE PTR [ESI+EAX-1];
 CMP DL, BYTE PTR [EDI+EBX-1];
 JNE @next;

 MOV Result, EAX;

 CMP EBX, 1;
 JE @done;
 DEC EBX;
 JMP @norm;

 @next:
 CMP Result, 0;
 JNE @eval;
 
 @norm:
 DEC EAX;
 JMP @rept;

 @done:
 //MOV EBX, DWORD PTR [ESI-4];
 //SUB EBX, EAX;
 //MOV EAX, EBX;
 //ADD EAX, 1;
 MOV Result, EAX;
 JMP @exit;

 @null:
 MOV Result, 0;

 @exit:
 POP ESI;
 POP EDI;
 POP EDX;
 POP EBX;
 POP EAX;
end;

Вот. Тесты не выявили существенных отличий от быстродействия стандартного Pos :)

---

Dib@zol   (2007-11-01 21:59:00) [2]

Тфу. Звиняюсь, не работает :(

---

Dib@zol   (2007-11-01 21:49:00) [3]

Собсна вот. Кодил прямо щас, на ходу, поэтому наверняка где-нибудь можно оптимизировать. Читает строчку str с конца, а результат возвращает "с начала" этой строчки. Если нужно отсчитывать "с конца" - раскомментируйте 3 строчки блока @done.

function PosR(sub, str:string):Cardinal;
asm
 PUSH EAX;
 PUSH EBX;
 PUSH EDX;
 PUSH EDI;
 PUSH ESI;

 MOV ESI, str;
 MOV EDI, sub;
 MOV Result, 0;
 XOR EAX, EAX;
 MOV EBX, 1;

 MOV EAX, DWORD PTR [ESI-4];
 MOV EBX, DWORD PTR [EDI-4];

 @rept:
 CMP EAX, 0;
 JE @null;
 MOV DL, BYTE PTR [ESI+EAX-1];
 CMP DL, BYTE PTR [EDI+EBX-1];
 JNE @next;

 MOV Result, EAX;

 CMP EBX, 1;
 JE @done;
 DEC EBX;
 JMP @norm;

 @next:
 CMP Result, 0;
 JNE @null;
 @norm:
 DEC EAX;
 JMP @rept;

 @done:
 //MOV EBX, DWORD PTR [ESI-4];
 //SUB EBX, EAX;
 //ADD EBX, 1;
 MOV Result, EBX;
 JMP @exit;

 @null:
 MOV Result, 0;

 @exit:
 POP ESI;
 POP EDI;
 POP EDX;
 POP EBX;
 POP EAX;
end;

---

Marser   (2007-11-01 20:31:00) [4]

Обратить обе строки и заюзать обычный pos - проще некуда :-)

---

palva   (2007-11-01 20:01:00) [5]

Я себе вот такую написал. Мне нужна была функция максимально похожая на соответствующую функцию бейсика. Можете переделать под себя или пользоваться этой.

{$APPTYPE CONSOLE}
uses SysUtils, StrUtils;

const
 vbBinaryCompare = 0;
 vbTextCompare = 1;

{
The InStrRev function returns the position of the first occurrence
of one string within another. The search begins from the end of string,
but the position returned counts from the beginning of the string.

The InStrRev function can return the following values:
}

function InStrRev(const Str, Pat: String; Strt: Integer = -1;
          Scmp: Integer = vbBinaryCompare): Integer;

{
Parameter Description
Str - The string to be searched
Pat - The string expression to search for
Strt Optional. - Specifies the starting position for each search.
The search begins at the last character position by default (-1)
Scmp Optional. - Specifies the string comparison to use. Default is 0
Can have one of the following values:
0 = vbBinaryCompare - Perform a binary comparison
1 = vbTextCompare - Perform a textual comparison

If Str is '' - InStrRev returns 0
If Pat is '' - InStrRev returns start
If Pat is not found - InStrRev returns 0
If Pat is found within Str - InStrRev returns the position at which match
is found
If Strt > Length(Str) - InStrRev returns 0
}

var
 Len, LenP: Integer;
 P: PChar;
 so: TStringSearchOptions;
begin
 Len := Length(Str);
 LenP := Length(Pat);
 if Strt = -1 then Strt := Len;
 if (Len = 0) Or (Strt > Len) Or (LenP > Len) then
   Result := 0
 else if LenP = 0 then
   Result := Strt
 else begin
   if Strt <=0 then raise Exception.Create('Wrong InStrRev parameter');
   so := [];
   if Scmp = vbBinaryCompare then
     so := [soMatchCase];
   P := SearchBuf(PChar(Str), Len, Strt, 0, Pat, so);
   if P = Nil then
     Result := 0
   else
     Result := P - @Str[1] + 1;
 end;
end;

begin
 WriteLn(InStrRev('qWeQwEqWe', 'we', 7, vbTextCompare)); // 5
end.

---

Плохиш   (2007-11-01 18:59:00) [6]

PosEx + голова

---

Vlad0   (2007-11-01 18:54:00) [7]

Хмм.. а если у меня для поиска строка целая нужна, а не Char...

---

Palladin   (2007-11-01 18:52:00) [8]

Function RPos(Const s:String;c:Char):Integer;
Var
 i:Integer;
Begin
 For i:=Length(s) Downto 1 Do
  If s[i]=c Then
   Begin
    Result:=i;  
    Exit;
   End;
 Result:=0;
End;

---

Наверх