CasseTEXTE

Le programme suivant de la série des petits utilitaires sans interface est CasseTEXTE :

– Il lit un champ texte, et le convertit tout en majuscules, tout en minuscules, ou tout en capitales (c’est-à-dire la première lettre en majuscule, le reste en minuscules)
– Il n’admet qu’un seul argument, la casse :

1. CasseTEXTE MAJ
2. CasseTEXTE MIN
3. CasseTEXTE CAP

En l’absence d’arguments spécifié, la casse par défaut et celle annoncée dans le CasseTEXTE.INI, en l’absence de spécification ou en présence d’un argument illisible MAJ est prise par défaut

J’utilise par exemple le raccourci CTRL+ALT+M pour le champ adresse de MedyCS
13 Rue St Bieuzy devient 13 RUE ST BIEUZY

la commande dans Clavier+ est celle-ci :

[Ctrl + ORIGINE][Ctrl + Maj + FIN][Ctrl + C][[c:\\chemin...\\cassetexte.exe

        MAJ]][] [Ctrl + V]

Et le raccourci CTRL+ALT+P pour le prénom ou marie thérèse devient Marie Thérèse

[Ctrl + ORIGINE][Ctrl + Maj + FIN][Ctrl +

        C][[c:\\chemin...\\cassetexte.exe CAP]][] [Ctrl + V]

program cassetexte;

uses
  clipbrd,
  System.SysUtils,
  dialogs,

  jc32_INI,
  jc32_str;

{$R *.res}

var
  s:     string;
  casse: string;

begin

  s := '';

  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;

  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('AIDE', 'OPTIONS DISPONIBLES', '>CASSE=MAJ,MIN,CAP');
  savestr('OPTIONS', 'CASSE', casse);

end.