Mais que fait la police?

Question

Bonjour,

J'entends bien que les polices "système" (par exemple celles IME dont on ne fait rien) sont protégées et ne peuvent pas être supprimées.

Un certain nombre de logiciels installent les leurs pas toujours utiles et qu'on peut supprimer.

Mais toujours dans le même but (ne pas être assailli par des dizaines de polices inutiles quand on veut en choisir une par exemple dans Word), un certain nombre de ces polices figure dans le menu par exemple Word mais pas dans le dossier Fonts.

Si quelqu'un a une explication pour faire le ménage...

Merci.

luckydu43 · Answer

Bonjour brucine,

Voici un script PS maison qui fait le travail sur mon W10 :

cls
Write-Host "`n###################################`n## Recherche des polices tierces ##`n###################################`n"

Write-Host "Liste des polices natives a Windows `n`n   Patientez..."
$windowsFonts = Get-ChildItem "C:\Windows\Fonts" -Include *.ttf, *.otf, *.fon
Write-Host "   Ok !`n"
Write-Host "Liste des polices dans les dossiers *\Fonts `n`n   Patientez..."
function ListerToutesLesPolices {
    Get-ChildItem "C:\" -Recurse -Directory -Filter *Fonts* -ErrorAction SilentlyContinue | 
    ForEach-Object {
        Get-ChildItem $_.FullName -Recurse -Include *.ttf, *.otf, *.fon
    }
}
# Supprimer les polices natives de la liste de toutes les polices
$policesTierces = ListerToutesLesPolices | Where-Object { 
    -not ($windowsFonts.Name -contains $_.Name) -and 
    $_.DirectoryName -ne "C:\Windows\Fonts" 
}
Write-Host "   Ok !`n"
Write-Host "Liste des repertoires uniques :`n`n"
$repertoiresPolices= $policesTierces | Select-Object -ExpandProperty DirectoryName -Unique
if ($repertoiresPolices) {
    $repertoiresPolices| Format-Table
} else {
    Write-Host "Aucune police tierce n'a ete trouvee."
}

Tiens au jus !

EDIT 12:06

mariam-j · Answer

Bonjour,

@: brucine:

Sinon, avec "EveryThing", en entrant "font", ça te liste avec les endroits où elles sont.

luckydu43 · Answer

Bonjour

Je n'ai pas oublié ton tri fastidieux et ça m'a été un challenge sympa.

Pour t'aider dans le tri des polices, voici un script PS maison qui parcourt les métadonnées des fichiers parmi les répertoires en paramètre. Si un chemin est invalide, il le dit. Tu peux ajouter facilement un autre répertoire dans la liste.

# Point d'entrée en bas du fichier
# Fonction pour rechercher les fichiers de police contenant la chaîne en entrée
function TrouverFichiersPolice {
    param (
        [string]$nomPolice
    )

$erreurs = @()
    $resultats = @()
    
    # Liste des dossiers où les polices sont généralement stockées
    $repertoiresPolices = @(
        "C:\Windows\Fonts",
        "C:\Program Files\Microsoft Office\root\vfs\Fonts", 
        "C:\Program Files\WindowsApps\Microsoft.GillSansNova_1.0.1.0_neutral__8wekyb3d8bbwe",
        "$env:LOCALAPPDATA\Microsoft\Windows\Fonts",
        "$env:LOCALAPPDATA\Microsoft\FontCache\4\CloudFonts"
    )
    # Pour chaque répertoire de la liste
    foreach ($repertoire in $repertoiresPolices) {
        try {
            if (Test-Path -Path $repertoire) {
                $polices = Get-ChildItem -Path $repertoire -ErrorAction Stop
                # Pour chaque fichier
                foreach ($police in $polices) {
                    try {
                        $fontCollection = New-Object System.Drawing.Text.PrivateFontCollection
                        $fontCollection.AddFontFile($police.FullName)
                        # Recherche dans les métadonnées du fichier et non dans le nom
                        foreach ($family in $fontCollection.Families) {
                            if ($family.Name -like "*$nomPolice*") {
                                $resultats += "| $($family.Name) - Fichier : $($repertoire)\$($police.Name)"
                            }
                        }
                    } catch {
                        $erreurs += "Erreur lors de la lecture des propriétés du fichier $($repertoire)\$($police.Name) : $($_.Exception.Message)"
                    }
                }
            } else {
                $erreurs += "Le répertoire '$repertoire' n'existe pas."
            }
        } catch {
            $erreurs += "Erreur lors de l'accès au répertoire $repertoire : $($_.Exception.Message)"
        }
    }

if ($resultats.Count -gt 0) {
        Write-Host ""
        Write-Host "##############################"
        Write-Host "#    Résultats trouvés :     #"
        Write-Host "##############################"
        Write-Host ""
        $resultats | ForEach-Object { Write-Host $_ }
    } else {
        Write-Host ""
        Write-Host "##############################"
        Write-Host "# Aucun résultat pour '$nomPolice'."
        Write-Host "##############################"
        Write-Host ""
    }

# Afficher les erreurs si elles existent avec un formatage agréable
    if ($erreurs.Count -gt 0) {
        Write-Host ""
        Write-Host "##############################"
        Write-Host "#    Erreurs rencontrées :   #"
        Write-Host "##############################"
        Write-Host ""
        $erreurs | ForEach-Object { Write-Host "| $_" }
    }
}

# Charger l'assembly pour accéder aux métadonnées des fichiers
Add-Type -AssemblyName System.Drawing

# Point d'entrée, saisie de tout ou partie du nom de la police à rechercher
while ($true) {
    Write-Host ""
    Write-Host "##############################"
    $nomPolice = Read-Host "# Entrez tout ou partie du nom de la police tel qu'affiché dans Word (ex: Arial, ding, Bahnschrift)"
    Write-Host "##############################"
    TrouverFichiersPolice -nomPolice $nomPolice
}

luckydu43 · Answer

EDIT je ne peux pas retoucher le script à 1 minute près.

S'il répond "le répertoire vfs n'existe pas" c'est qu'il faut vérifier manuellement le chemin saisi, c'est l'erreur du test de validité avant le parcours des fichiers.

Je te remets la version légèrement corrigée pour gérer la récursivité et masquer les erreurs en cas de rencontre d'un dossier :

# Point d'entrée en bas du fichier
# Fonction pour rechercher les fichiers de police contenant la chaîne en entrée
function TrouverFichiersPolice {
    param (
        [string]$nomPolice
    )

$erreurs = @()
    $resultats = @()
    
    # Liste des dossiers où les polices sont généralement stockées
    $repertoiresPolices = @(
        "C:\Windows\Fonts",
        "C:\Program Files\Microsoft Office\root\vfs\Fonts", 
        "C:\Program Files\WindowsApps\Microsoft.GillSansNova_1.0.1.0_neutral__8wekyb3d8bbwe",
        "$env:LOCALAPPDATA\Microsoft\Windows\Fonts",
        "$env:LOCALAPPDATA\Microsoft\FontCache\4\CloudFonts"
    )
    # Pour chaque répertoire de la liste
    foreach ($repertoire in $repertoiresPolices) {
        try {
            if (Test-Path -Path $repertoire) {
                $polices = Get-ChildItem -Path $repertoire -Recurse -ErrorAction Continue
                # Pour chaque fichier
                foreach ($police in $polices) {
					$fontCollection = New-Object System.Drawing.Text.PrivateFontCollection
					$fontCollection.AddFontFile($police.FullName)
					# Recherche dans les métadonnées du fichier et non dans le nom
					foreach ($family in $fontCollection.Families) {
						if ($family.Name -like "*$nomPolice*") {
							$resultats += "| $($family.Name) - Fichier : $($repertoire)\$($police.Name)"
						}
					}
                }
            } else {
                $erreurs += "Le répertoire '$repertoire' n'existe pas."
            }
        } catch {
            $erreurs += "Erreur lors de l'accès au répertoire $repertoire : $($_.Exception.Message)"
        }
    }

# Afficher les résultats si ils existent
    if ($resultats.Count -gt 0) {
        Write-Host ""
        Write-Host "##############################"
        Write-Host "#    Résultats trouvés :     #"
        Write-Host "##############################"
        Write-Host ""
        $resultats | ForEach-Object { Write-Host $_ }
    } else {
        Write-Host ""
        Write-Host "##############################"
        Write-Host "# Aucun résultat pour '$nomPolice'."
        Write-Host "##############################"
        Write-Host ""
    }

# Afficher les erreurs si elles existent
    if ($erreurs.Count -gt 0) {
        Write-Host ""
        Write-Host "##############################"
        Write-Host "#    Erreurs rencontrées :   #"
        Write-Host "##############################"
        Write-Host ""
        $erreurs | ForEach-Object { Write-Host "| $_" }
    }
}

# Charger l'assembly pour lire les métadonnées des fichiers
Add-Type -AssemblyName System.Drawing

# Point d'entrée, saisie de tout ou partie du nom de la police à rechercher
while ($true) {
    Write-Host ""
    Write-Host "##############################"
    $nomPolice = Read-Host "# Entrez tout ou partie du nom de la police tel qu'affiché dans Word (ex: Arial, ding, Bahnschrift)"
    Write-Host "##############################"
    TrouverFichiersPolice -nomPolice $nomPolice
}

Mais que fait la police?

4 réponses

Votre réponse

Discussions similaires