[OPTIONS]
==> OPTIONS DISPONIBLES POUR LA CASSE=MAJ, MIN, CAP
CASSE=MAJ
[REMPLACER]
==> SYNTAXE REMPLACER:
MOT A REMPLACER=MOT QUI LE REMPLACE

ATTENTION !!! A NE PAS METTRE D'ESPACE DANS LE MOT A GAUCHE!!!
Dans un texte, un mot ne sera remplacé que s'il est suivi d'un espace, d'un point ou d'un saut de ligne
Si le dernier mot de l'adresse doit être remplacé, il faut donc le faire suivre soit d'un point final, soit d'un saut de ligne

AV=AVENUE
AL=ALLEE
AB=ABBE
BV=BOULEVARD
D=DE
IMP=IMPASSE
GAL=GENERAL
MAL=MARECHAL
PASS=PASSAGE
ST=SAINT
R=RUE
RIE=RUE
VIL=VILLAGE
VILL=VILLAGE
²=BIS
&=ET
LEFB=LE FORT BLOQUE
LOM=LOMENER

program adresse;

uses
  clipbrd,
  System.SysUtils,
  dialogs,
  strutils,
  System.Classes, {StringList}

  jc32_INI,
  jc32_str;

{$R *.res}

var
  i:                            integer;
  s, str_cherche, str_remplace: string;
  casse:                        string;

  liste_mots: TStringList;

const
  cr = ^m + ^j;

begin

  { Liste des Remplacements par défaut : uniquement à la première utilisation }
  if getstr('OPTIONS', 'CASSE', '') = '' then
    Begin
      savestr('OPTIONS', '=', '> OPTIONS DISPONIBLES POUR LA CASSE=MAJ, MIN, CAP');

      savestr('REMPLACER', '=', '> SYNTAXE REMPLACER:' + cr + 'MOT A REMPLACER=MOT QUI LE REMPLACE' + cr + cr +
          'ATTENTION !!! A NE PAS METTRE D''ESPACE DANS LE MOT A GAUCHE!!!' + cr +
          'Dans un texte, un mot ne sera remplacé que s''il est suivi d''un espace, d''un point ou d''un saut de ligne'
          + ^m + ^j +
          'Si le dernier mot de l''adresse doit être remplacé, il faut donc le faire suivre soit d''un point final, soit d''un saut de ligne'
          + cr );

      savestr('REMPLACER', 'AV', 'AVENUE');
      savestr('REMPLACER', 'AL', 'ALLEE');
      savestr('REMPLACER', 'AB', 'ABBE');
      savestr('REMPLACER', 'BV', 'BOULEVARD');
      savestr('REMPLACER', 'D', 'DE');
      savestr('REMPLACER', 'IMP', 'IMPASSE');
      savestr('REMPLACER', 'GAL', 'GENERAL');
      savestr('REMPLACER', 'MAL', 'MARECHAL');
      savestr('REMPLACER', 'PASS', 'PASSAGE');
      savestr('REMPLACER', 'ST', 'SAINT');
      savestr('REMPLACER', 'R', 'RUE');
      savestr('REMPLACER', 'RIE', 'RUE');
      savestr('REMPLACER', 'VIL', 'VILLAGE');
      savestr('REMPLACER', 'VILL', 'VILLAGE');

      savestr('REMPLACER', '²', 'BIS');
      savestr('REMPLACER', '&', 'ET');

      { Spécificité locales }

      savestr('REMPLACER', 'LEFB', 'LE FORT BLOQUE');
      savestr('REMPLACER', 'LOM', 'LOMENER');
    End;

  s          := '';
  liste_mots := TStringList.create;

  casse := getstr('OPTIONS', 'CASSE', 'MAJ');

  if ParamCount > 0 then
    casse := ParamStr(1);

  if casse = '' then
    Begin
      showmessage('Argument vide !');
      exit;
    End;

  { TRAITEMENT }

  s := Clipboard.AsText;
  try

    { REMPLACEMENT }

    { Crée un tableau des mots présents }

    liste_mots.DelimitedText := s;

    { Cherche pour chaque mot s'il existe un remplacement }

    for i := 0 to liste_mots.Count - 1 do
      Begin
        str_cherche := liste_mots[i];
        { Si cherche se termine par un point }
        if pos('.', str_cherche) = length(str_cherche) then
          str_cherche := copy(str_cherche, 1, length(str_cherche) - 1);

        str_remplace := getstr('REMPLACER', str_cherche, '');

        if (str_remplace <> '') then
          if pos(str_cherche + ' ', s) > 0 then // Le mot doit être suivi d'un espace
            s := replacestr(s, str_cherche + ' ', str_remplace + ' ')
          else
            if pos(str_cherche + '.', s) > 0 then
              // ou terminé par un point
              s := replacestr(s, str_cherche + '.', str_remplace)
            else
              if pos(str_cherche + ^m, s) > 0 then
                // ou suivi d'un retour chariot
                s := replacestr(s, str_cherche + ^m, str_remplace + ^m)
      End;

    { Change la casse sur demande }

    if (casse = 'MIN') then
      s := LowerCase(s)
    else
      if (casse = 'CAP') then
        Begin
          s := Capitalize(Killax(s))
        End
      else
        s := uppercase(Killax(s));


    // showmessage(param);

    Clipboard.AsText := trim(s);

    savestr('OPTIONS', 'CASSE', casse);

    { Le fichier des mots est uniquement rempli à la main }

  finally
    liste_mots.Free;
  end;

end.