Jak byste řešili malý prográmek

[karkojk]

Ahoj,
občas, teď více při přerovnávání dat odstraňuji diakritiku a někde zaměňuji znak mezery.
Jak byste řešili malý prográmek, který po spuštění toto provede ve schránce windows aby neměl 10MB ;-).
Je to primitivní dotaz , třeba už něco takového je a nějak mi s Delphi ujel vlak 
děkuji

[Stanislav Hruška]

Ak už ten program máš, tak si prejdi diskusiu a hľadaj "veľkosť exe". V češtine.  Sú tu nejaké rady ohľadom jeho zmenšenia.

[karkojk]

Děkuji za tip, nemám, dělal jsem to přes LibreOffice, je tam hezký doplněk, ale pokaždé to spouštět, když tu máme Delphi ;-).
Alespoň zapnu mozkové závity jiným směrem.
Koukám jak jsi tu pořád aktivní, to znamená, že jsi v pořádku, fajn.
Ještě jednou dík a měj se hezky

[Stanislav Hruška]

To by sa malo dať spustiť z Delphi. Ale tu nepomôžem.

[Stanislav Hruška]

Pozrel so sa do akaše a našiel som tam toto. Možno je to to čo chceš.

Nejprve pro jistotu ještě jednou připomenu, že k používání třídy TClipboard (a tedy také funkce Clipboard) je nutné přidat do sekce uses v aktuálním modulu jednotku Clipbrd. Nejdůležitější vlastností třídy TClipboard je AsText. Ta reprezentuje obsah schránky jako text. Slouží k umístění textu do schránky nebo k vybrání textu ze schránky. Pokud by data nebyla textová, vyvolá se výjimka. Ke zjištění, obsahuje-li schránka textová data, lze s úspěchem použít funkci HasFormat s parametrem CF_TEXT – viz příklad (k jeho funkčnosti je nutné, aby v sekci uses byla uvedena jednotka Clipbrd):

Kód: [Vybrat]

procedure TfrmHlavni.btnTestClick(Sender: TObject);
begin
  if Clipboard.HasFormat(CF_TEXT) then
    Edit1.Text := Clipboard.AsText
  else
    MessageDlg(`Ve schránce není žádný text!`, mtInformation,
        [mbOK], 0);
end;Čerpané z "Umíme to s Delphi" Autor Kadlec. Dá sa to stiahnuť z internetu. Prípadne upresni o čo Ti z programovej strany ide. Mám múdre knihy.

[karkojk]

Dám vědět Stando,
teď jsem od toho musel odskočit, také mám hodně knížek, jen to najít, hlava už tak neslouží, kde co bylo. Tak když je chvilka, listuji ;-). Chtělo by to vše v PDF, to se lépe hledá.
Zatím děkuji moc

[karkojk]

Úplně jsem zapomněl to sem hodit, jak jsem to udělal, pro mazáky je to nuda.
Možná by se dalo řešit lépe, ani zmenšení výslednáho souboru jsem neřešil.

Kód: [Vybrat]

function odstranenidir(Str: string): string;
    var i: Integer;
    begin
    for i := 1 to Length(Str) do
    begin
     case Str[i] of
    'á': Result := Result + 'a';
    'Á': Result := Result + 'A';
    'č': Result := Result + 'c';
    'Č': Result := Result + 'C';
    'ď': Result := Result + 'd';
    'Ď': Result := Result + 'D';
    'é': Result := Result + 'e';
    'É': Result := Result + 'E';
    'ě': Result := Result + 'e';
    'Ě': Result := Result + 'E';
    'í': Result := Result + 'i';
    'Í': Result := Result + 'I';
    'ň': Result := Result + 'n';
    'Ň': Result := Result + 'N';
    'ó': Result := Result + 'n';
    'Ó': Result := Result + 'N';
    'ř': Result := Result + 'r';
    'Ř': Result := Result + 'R';
    'š': Result := Result + 's';
    'Š': Result := Result + 'C';
    'ť': Result := Result + 't';
    'Ť': Result := Result + 'T';
    'ú': Result := Result + 'u';
    'Ú': Result := Result + 'U';
    'ů': Result := Result + 'u';
    'Ů': Result := Result + 'U';
    'ý': Result := Result + 'y';
    'Ý': Result := Result + 'Y';
    'ž': Result := Result + 'z';
    'Ž': Result := Result + 'Z';
   else Result := Result + Str[i];
    end;
    end;
    end;



procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then
begin
 if Clipboard.HasFormat(CF_TEXT) then
    Memo1.Text := Clipboard.AsText
  else
    MessageDlg('Ve schránce není text!', mtInformation,
        [mbOK], 0);
end;
    Memo2.Text:=odstranenidir(Memo1.Text);
    if CheckBox1.Checked = true then
         Clipboard.AsText := Memo2.Text;

end;

[vandrovnik]

Chybí tam ö, ü, ë, ĺ, ŕ, Â, Ç, ż apod.
Možná to udělat alespoň pro všechny znaky v sadě Windows 1250?

Jinak mnohem rychlejší je nahrazovat znaky v řetězci stylem Str[ i ] := 'x', než přidávat po jednom znaku do řetězce nového.

[Jirka]

Asi  překlep ..

    'ó': Result := Result + 'n';
    'Ó': Result := Result + 'N';
    'Š': Result := Result + 'C';

[Jan Fiala]

Úplně jsem zapomněl to sem hodit, jak jsem to udělal, pro mazáky je to nuda.
Možná by se dalo řešit lépe, ani zmenšení výslednáho souboru jsem neřešil.

Pokud bys to chtel nejak urychlit, tak muzes pouzit TEncode unitu implementovanou v Delphi a prevest to na CP 20127

[karkojk]

Úplně jsem zapomněl to sem hodit, jak jsem to udělal, pro mazáky je to nuda.
Možná by se dalo řešit lépe, ani zmenšení výslednáho souboru jsem neřešil.

Kód: [Vybrat]

function odstranenidir(Str: string): string;
    var i: Integer;
    begin
    for i := 1 to Length(Str) do
    begin
     case Str[i] of
    'á': Result := Result + 'a';
    'Á': Result := Result + 'A';
    'č': Result := Result + 'c';
    'Č': Result := Result + 'C';
    'ď': Result := Result + 'd';
    'Ď': Result := Result + 'D';
    'é': Result := Result + 'e';
    'É': Result := Result + 'E';
    'ě': Result := Result + 'e';
    'Ě': Result := Result + 'E';
    'í': Result := Result + 'i';
    'Í': Result := Result + 'I';
    'ň': Result := Result + 'n';
    'Ň': Result := Result + 'N';
    'ó': Result := Result + 'o';
    'Ó': Result := Result + 'O';
    'ř': Result := Result + 'r';
    'Ř': Result := Result + 'R';
    'š': Result := Result + 's';
    'Š': Result := Result + 'S';
    'ť': Result := Result + 't';
    'Ť': Result := Result + 'T';
    'ú': Result := Result + 'u';
    'Ú': Result := Result + 'U';
    'ů': Result := Result + 'u';
    'Ů': Result := Result + 'U';
    'ý': Result := Result + 'y';
    'Ý': Result := Result + 'Y';
    'ž': Result := Result + 'z';
    'Ž': Result := Result + 'Z';
   else Result := Result + Str[i];
    end;
    end;
    end;



procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then
begin
 if Clipboard.HasFormat(CF_TEXT) then
    Memo1.Text := Clipboard.AsText
  else
    MessageDlg('Ve schránce není text!', mtInformation,
        [mbOK], 0);
end;
    Memo2.Text:=odstranenidir(Memo1.Text);
    if CheckBox1.Checked = true then
         Clipboard.AsText := Memo2.Text;

end;

[JaroB]

používal jsem třeba toto

Kód: Delphi [Vybrat]

1. function RemoveCSPDiacritics(const S: string): string;
2.   {-odstrani CSP diakritiku CASE SENSITIVE}
3.   {selective remove czech diacritics from text}
4. const
5.   dcsCSP = 'ŠŤŽŹšťžźńňďĽĹľĺÁÄČĆÉĚÍĎŇŃÓÔÖŘŮÚÜÝáäčćéěíďňóôöőřŕůúüűý';
6.   rdcCSP = 'STZZstzznndLLllAACCEEIDNNOOORUUUYaacceeidnoooorruuuuy';
7. var
8.   I, E: Integer;
9. begin
10.   Result := S;
11.   if Result = '' then Exit;
12.   for I := 1 to Length(Result) do
13.   begin
14.     E := Pos(Result[I], dcsCSP);
15.     if E > 0 then
16.       Result[I] := Char(rdcCSP[E]);
17.   end;
18. end;

[Jan Fiala]

Hlavně to nedělej jako FORM aplikaci - nepotřebuješ to. Stačí konzolová aplikace, přečíst a zapsat do schránky zvládneš. A výsledek bude mnohem menší.