paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 05:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: added UTF8StringReplace, feature 22148

Browse Source 
git-svn-id: trunk@42707 -
This commit is contained in:
mattias 2013-09-09 23:40:04 +00:00
parent 3c92d686f3
commit 37aeda8f7b
1 changed files with 46 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
components/lazutils/lazutf8.pas
View File

@ -64,12 +64,15 @@ procedure UTF8FixBroken(P: PChar); overload;
procedure UTF8FixBroken(var S: string); overload; procedure UTF8FixBroken(var S: string); overload;
function UTF8CharacterStrictLength(P: PChar): integer; function UTF8CharacterStrictLength(P: PChar): integer;
function UTF8CStringToUTF8String(SourceStart: PChar; SourceLen: PtrInt) : string; function UTF8CStringToUTF8String(SourceStart: PChar; SourceLen: PtrInt) : string;
function UTF8Pos(const SearchForText, SearchInText: string; StartPos: SizeInt = 1): PtrInt; function UTF8Pos(const SearchForText, SearchInText: string; StartPos: SizeInt = 1): PtrInt;
function UTF8PosP(SearchForText: PChar; SearchForTextLen: SizeInt; function UTF8PosP(SearchForText: PChar; SearchForTextLen: SizeInt;
SearchInText: PChar; SearchInTextLen: SizeInt): PChar; SearchInText: PChar; SearchInTextLen: SizeInt): PChar;
function UTF8Copy(const s: string; StartCharIndex, CharCount: PtrInt): string; function UTF8Copy(const s: string; StartCharIndex, CharCount: PtrInt): string;
procedure UTF8Delete(var s: String; StartCharIndex, CharCount: PtrInt); procedure UTF8Delete(var s: String; StartCharIndex, CharCount: PtrInt);
procedure UTF8Insert(const source: String; var s: string; StartCharIndex: PtrInt); procedure UTF8Insert(const source: String; var s: string; StartCharIndex: PtrInt);
function UTF8StringReplace(const S, OldPattern, NewPattern: String;
Flags: TReplaceFlags; ALanguage: string=''): String;
function UTF8LowerCase(const AInStr: string; ALanguage: string=''): string; function UTF8LowerCase(const AInStr: string; ALanguage: string=''): string;
function UTF8UpperCase(const AInStr: string; ALanguage: string=''): string; function UTF8UpperCase(const AInStr: string; ALanguage: string=''): string;
@ -227,7 +230,7 @@ begin
end; end;
function GetEnvironmentStringUTF8(Index: Integer): String; function GetEnvironmentStringUTF8(Index: Integer): string;
begin begin
// on Windows SysUtils.GetEnvironmentString returns OEM encoded string // on Windows SysUtils.GetEnvironmentString returns OEM encoded string
// so ConsoleToUTF8 function should be used! // so ConsoleToUTF8 function should be used!
@ -235,7 +238,7 @@ begin
Result:=ConsoleToUTF8(SysUtils.GetEnvironmentString(Index)); Result:=ConsoleToUTF8(SysUtils.GetEnvironmentString(Index));
end; end;
function GetEnvironmentVariableUTF8(const EnvVar: String): String; function GetEnvironmentVariableUTF8(const EnvVar: string): String;
begin begin
// on Windows SysUtils.GetEnvironmentString returns OEM encoded string // on Windows SysUtils.GetEnvironmentString returns OEM encoded string
// so ConsoleToUTF8 function should be used! // so ConsoleToUTF8 function should be used!
@ -820,6 +823,47 @@ begin
Insert(source, s, StartBytePos-PChar(s)+1); Insert(source, s, StartBytePos-PChar(s)+1);
end; end;
function UTF8StringReplace(const S, OldPattern, NewPattern: String;
Flags: TReplaceFlags; ALanguage: string): String;
// same algorithm as StringReplace, but using UTF8LowerCase
// for case insensitive search
var
Srch, OldP, RemS: string;
P: Integer;
begin
Srch := S;
OldP := OldPattern;
if rfIgnoreCase in Flags then
begin
Srch := UTF8LowerCase(Srch,ALanguage);
OldP := UTF8LowerCase(OldP,ALanguage);
end;
RemS := S;
Result := '';
while Length(Srch) <> 0 do
begin
P := Pos(OldP, Srch);
if P = 0 then
begin
Result := Result + RemS;
Srch := '';
end
else
begin
Result := Result + Copy(RemS,1,P-1) + NewPattern;
P := P + Length(OldP);
RemS := Copy(RemS, P, Length(RemS)-P+1);
if not (rfReplaceAll in Flags) then
begin
Result := Result + RemS;
Srch := '';
end
else
Srch := Copy(Srch, P, Length(Srch)-P+1);
end;
end;
end;
{ {
AInStr - The input string AInStr - The input string
ALanguage - The language. Use '' for maximum speed if one desires to ignore the language ALanguage - The language. Use '' for maximum speed if one desires to ignore the language