Discussion :

[disedorgue]

pour avoir le tab (\t), tu passes par un CTRL+V puis tab

[Jipété]

Vu, merci !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
XX="a   b       c       d" # avec ctrl v puis TAB entre a et b puis pareil entre b et c puis pareil entre c et d : ça roule !
echo "$XX"
a	b	c	d
echo $XX
a b c d

Et bon dimanche aprème,

[Jipété]

Bonsoir,

une petite image juste pour vous montrer ce que je vis au quotidien depuis au moins, oh..., 30 ans ?
(oui, la typographie m'a pris dans ses bras vers 1994 et ne m'a plus lâché).



Bref, vous le voyez le trou au milieu ? 3 champs non remplis ! Et ça me fait ça pour 17 fontes (sur 935).

L'idée est donc, lors du remplissage de cette liste, que si un champ est vide alors j'utilise l'autre outil, celui qui m'a fait misérer avec les quotes, pour récupérer la(es) valeur(s) manquante(s) (ou je l'utiliserai directement, faut que je revois mes notes, que je retrouve mes marques).

Le gag c'est que dans ma liste de fontes mal fichues, il y en a quand même 5 qui viennent de chez KroSoft, hé ouais : même les cadors se prennent des gamelles...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Problème avec
/usr/share/fonts/AutresFontes/Machine/Linedraw.ttf
/usr/share/fonts/AutresFontes/Ornements/webdings.ttf
/usr/share/fonts/AutresFontes/Ornements/wingding.ttf
/usr/share/fonts/AutresFontes/Ornements/WINGDNG2.TTF
/usr/share/fonts/AutresFontes/Ornements/WINGDNG3.TTF

Par contre aucun problème avec Arial, même avec la toute dernière version, ArialNova de 2019.
C'est comme ça, c'est le bronx...

EDIT : ah, j'allais oublier, un peu de code, le cœur de l'outil de listage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  i: Integer;
  slError: TStringList;
begin
  slError:= TStringList.Create;
  with CacheList do  // created in FormActivate
//for i:= 0 to 2 do begin // fast test
  for i:= 0 to Count-1 do begin // full job
    try
      CacheItem := TFPFontCacheItem.Create(Items[i].FileName);
      if CacheItem <> nil then begin
        with CacheItem.FontData do begin
          MemoVisu.Lines.Add('FileName          '+ FileName);
          MemoVisu.Lines.Add('FamilyName        '+ FamilyName);
          MemoVisu.Lines.Add('HumanFriendlyName '+ HumanFriendlyName);
          MemoVisu.Lines.Add('PostScriptName    '+ PostScriptName);
          if (FamilyName='') or (HumanFriendlyName='') or (PostScriptName='')
            then slError.Add(FileName);
        end;
        CacheItem.Free;
      end;
    except
      on E: Exception do
        ShowMessage(Format('Error with font, index [%d]:'+sLineBreak+'%s'+sLineBreak+'%s',
          [i, ExtractFileName(Items[i].FileName), E.Message]));
    end;

Ça s'appuie donc sur du FreePascal animé par Lazarus.

Allez, je vous ai assez embêté avec tout ça, bonne semaine.