FileMaker のデータファイルを先頭あるいは末尾に追記していく

 1# テスト用に設定した変数。このスクリプトを実行するごとに変数の値がカウントアップする。
 2Set Variable [ $$abc ; Value: $$abc + 1 ] 
 3
 4# #####
 5
 6# エラー処理をオンにする。
 7Set Error Capture [ On ]
 8
 9# FileMakerファイルと同一パスにtest1.txtというデータファイルを書き出す。存在しない場合はデータファイルを作成する。
10Set Variable [ $file ; Value: Substitute ( Get ( FilePath ) ; Get ( FileName ) & ".fmp12" ; "" ) & "test1.txt" ] 
11Get File Exists [ “$file” ; Target: $fileExists ] 
12If [ not $fileExists ] 
13	Create Data File [ “$file” ; Create folders: Off ] 
14End If
15
16# データファイルを開く。
17Open Data File [ “$file” ; Target: $fileID ] 
18
19# データファイルのファイルサイズを取得し、位置（＝書き込み位置）を設定する。これによって、書き込み位置がファイルの末尾になる。
20Get File Size [ “$file” ; Target: $FileSize ] 
21Set Data File Position [ File ID: $fileID ; New position: $FileSize ] 
22
23# テスト用変数を書き込む。「Append line feed」オプションを付けることで、改行区切りで書き込みができる。
24Write to Data File [ File ID: $fileID ; Data source: $$abc ; Write as: UTF-8 ; Append line feed ] 
25
26# データファイルを閉じる。
27Close Data File [ File ID: $fileID ] 
28
29# エラー処理をオフに戻す。
30Set Error Capture [ Off ]

 1# テスト用に設定した変数。このスクリプトを実行するごとに変数の値がカウントアップする。
 2Set Variable [ $$abc ; Value: $$abc + 1 ] 
 3
 4# #####
 5
 6# エラー処理をオンにする。
 7Set Error Capture [ On ]
 8
 9# FileMakerファイルと同一パスにtest2.txtというデータファイルを書き出す。存在しない場合はデータファイルを作成する。
10Set Variable [ $file ; Value: Substitute ( Get ( FilePath ) ; Get ( FileName ) & ".fmp12" ; "" ) & "test2.txt" ] 
11Get File Exists [ “$file” ; Target: $fileExists ] 
12If [ not $fileExists ] 
13	Create Data File [ “$file” ; Create folders: Off ] 
14End If
15
16# データファイルを開く。
17Open Data File [ “$file” ; Target: $fileID ] 
18
19# データファイル内容を読み取り、$fileContentという変数に格納する。
20Read from Data File [ File ID: $fileID ; Target: $fileContent ; Read as: UTF-8 ] 
21
22# テスト用変数＆データファイルの中身、という新たな変数$resultを設定する。
23Set Variable [ $result ; Value: $$abc & "¶" & $fileContent ] 
24
25# 位置（＝書き込み位置）を０、すなわちデータファイルの先頭に設定する。
26Set Data File Position [ File ID: $fileID ; New position: 0 ] 
27
28# $result変数をデータファイルに書き込む。
29Write to Data File [ File ID: $fileID ; Data source: $result ; Write as: UTF-8 ] 
30
31# データファイルを閉じる。
32Close Data File [ File ID: $fileID ] 
33
34# エラー処理をオフに戻す。
35Set Error Capture [ Off ]