AS_text_export ( text ; thePath ; append_text )

create text file (Apple OS X only)

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

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

Sample input:

Perform AppleScript [ AS_text_export ( table::textfield ; Get ( DesktopPath ) & "test.txt" ; 0 ) ]

Sample output:

creates text file "test.txt" on desktop.

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

/*
AS_text_export ( text ; thePath ; append_text )

version 12
---------------------------------------------
Thomas Siebert, 03.06.2016
info@t-seabird.de
www.t-seabird.de
---------------------------------------------

text = a text string or text field
thePath = standard POSIX path or a common FileMaker path
append_text = if 1 or true: append text to already existing text file


The script removes prefixes like "filemac:" or the name of the start volume like "/Macintosh HD/" from the path automatically.

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

Die CF wird über den Scriptschritt "AppleScript ausführen" mit der Option "Berechnetes Script" genutzt.
"AppleScript ausführen" steht auch direkt in den Tastenkommandos zur Verfügung.
*/

Let ([
text = Substitute ( text ; [ "\„" ; "\"" ] ; [ "\”" ; "\"" ] ; [ ¶ ; "\r" ] ) 
];

"set this_data to " & Quote ( text ) & " & return
¶set target_file to path_fmp_to_AppleScript(" & Quote ( thePath ) & ")
¶set append_data to " & append_text & " = 1
¶
¶write_to_file(this_data, target_file, append_data)
¶
¶on write_to_file(this_data, target_file, append_data)
¶	tell application \"Finder\"
¶		try
¶			set the target_file to the target_file as string
¶			set the open_target_file to open for access file target_file with write permission
¶			if append_data is false then set eof of the open_target_file to 0
¶			write this_data to the open_target_file starting at eof
¶			close access the open_target_file
¶			return true
¶		on error
¶			try
¶				close access file target_file
¶			end try
¶			return false
¶		end try
¶	end tell
¶end write_to_file
¶
¶on path_fmp_to_AppleScript(myPath)
¶	set myPath to POSIX file myPath as string
¶	set myStartDisk to (path to startup disk) as string
¶	
¶	set AppleScript's text item delimiters to myStartDisk & myStartDisk
¶	set the item_list to every text item of myPath
¶	set AppleScript's text item delimiters to myStartDisk
¶	set myPath to the item_list as string
¶	set AppleScript's text item delimiters to \"\"
¶	return myPath
¶end path_fmp_to_AppleScript"

)

create a text file

text = a text string or text field
thePath = standard POSIX path or a common FileMaker path
append_text = if 1 or true: append text to already existing text file

The script removes prefixes like "filemac:" or the name of the start volume like "/Macintosh HD/" from the path automatically.

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

Comments

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

AS_text_export ( text ; thePath ; append_text )

Comments

Support this website.

Support this website.