AS_Fontlist ( result_field )

Returns a list of fontnames compatible to FileMaker Pro using the

Average rating: 4.6 (36 votes) Log in to vote

Thomas Siebert - Show more from this author
http://www.t-seabird.de

Sample input:

Perform AppleScript [ AS_Fontlist ( table::field ) ]

Sample output:

...
Al Bayan Plain
Al Bayan Bold
American Typewriter Light
American Typewriter
American Typewriter Bold
American Typewriter Condensed
American Typewriter Condensed Light
American Typewriter Condensed Bold
Andale Mono
Arial
Arial Italic
Arial Bold
Arial Bold Italic
Arial Black
...

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
AS_Fontlist ( result_field )

version 5
---------------------------------------------
Thomas Siebert, 04.04.2010
info@t-seabird.de
www.t-seabird.de
---------------------------------------------

The function returns the names of every "TrueType" and "OpenType TrueType" fonts and their typfaces using the application "Font Book"

Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript"
You also shall use "Perform AppleScript" directly from a button.

the result will be set to record 1 of the specified field/table.
You maybe create a table with only one record.

---------------------------------------------

Die Funktion holt sich über das Programm "Schriftsammlung" (Font Book) die Namen aller "TrueType" und "OpenType TrueType" Schriften sowie die einzelnen Schriftschnitte (Condesed, Bold, Italic, etc) und überträgt die Liste in ein FileMaker Pro Feld.

result_field = In den ersten Datensatz dieses Feldes ( Tabelle::Feldname ) wird die Schriftliste übertragen.


*/

Let ([ 

result_field = Substitute ( GetFieldName ( result_field ) ; "::" ; ¶ ) ;
Cell_Result = Substitute ( RightValues ( result_field ; 1 ) ; ¶ ; "" ) ;
Table_Result = Substitute ( LeftValues ( result_field ; 1 ) ; ¶ ; "" )

 ];

"set FMP_DB to \"" & Get ( FileName ) & "\"
¶
¶tell application \"Font Book\"
¶	set myFontList to get name of every typeface of every font family whose font type ends with \"TrueType\"
¶	set AppleScript's text item delimiters to return
¶	set myResult to every item of myFontList as string
¶end tell
¶
¶set cell \"" & Cell_Result & "\" of record 1 of table \"" & Table_Result & "\" of database FMP_DB to myResult"

)

Apple/Mac only.
The function returns the names of every "TrueType" and "OpenType TrueType" fonts and their typfaces using the application "Font Book".

Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript"
You also shall use "Perform AppleScript" directly from a button.

the result will be set to record 1 of the specified field/table.
You maybe create a table with only one record.

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

AS_Fontlist ( result_field )

Comments

Support this website.

Support this website.