[es] - Zamena karaktera u array-u

aca andrijevic
aka LoGaN
Nis

Član broj: 35450
Poruke: 347
*.tico.rs.

ICQ: 325309560

+2 Profil

^{06.07.2011. u 16:19 - pre 155 meseci}

String koji vracam je sa UTF-8 enkodingom za nasa slova tipa Å¡, Ä‘, Ä itd.Lepo mi radi StringReplace
za nasa slova, ali samo za jedan tip karaktera.Neka funkcija za PHP za rad sa skupom za prevodjenje karaktera bi bila:

Code:

<?php
  $OrginalString = "Å¡ta Ä‘eš danas za ruÅ¡ak, Å¡ek jel ruÅ¡ak veÄ‘?";

  $StraniKarakteri = array("Å", "Ä‘", "Å");
  $NasiKarakteri = array("š", "ć", "č");

  $IzmenjenString = str_replace($StraniKarakteri, $NasiKarakteri, $OriginalString);
  echo $IzmenjenString;
  // Daje > 'šta ćeš danas za ručak, ček jel ručak već?'
?>

Pitanje jednostavno:kako ovo da izvedem u delphiju?StringReplace ne podrzava
array objekte.Da li postoji neka druga funkcija?

Pozdrav.

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Odgovor na temu

Aleksandar Đokić

Član broj: 13478
Poruke: 4793
*.dynamic.isp.telekom.rs.

+638 Profil

Re: Zamena karaktera u array-u

^{06.07.2011. u 17:44 - pre 155 meseci}

Code:
var
s,s1: string;
i: integer;
begin
s := 'tekst koji hoces da izmenis';
s1 := '';
  for i := 0 to Length(s) do
      if s[i]='Å' then
      s1:=s1+'Š'
      else
      s1:=s1+s[i];
end;

postoji i stringreplace u delphi-ju,

http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace

znaci islo bi

Code:

var
s,s1: string;
begin
s := 'string koji menjas';
s1 := StringReplace(s, 'Å', 'Š', [rfReplaceAll, fIgnoreCase]);

Odgovor na temu

aca andrijevic
aka LoGaN
Nis

Član broj: 35450
Poruke: 347
*.tico.rs.

ICQ: 325309560

+2 Profil

Re: Zamena karaktera u array-u

^{13.07.2011. u 09:20 - pre 155 meseci}

Hvala na odgovoru,pozdrav. 8)

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Odgovor na temu