牧野標本館タイプ標本データベースの構築

ＦＭからＨＴＭＬデータを作る

新規データベースファイル（科の一覧）

科の一覧を作るため、以下のような器（MAK_FamilyDB）を作った。

MAK_FamilyDB.dat
Serial doub シリアル番号
F_NO TEXT シリアル番号文字データ（MF＋５桁）
F_Name_J TEXT 科名（日本語）
F_Name_E TEXT 科名（アルファベット）

以下のアップルスクリプトでMAK_type_databaseからユニークな科名をピックアップした。

tell application "ファイルメーカー Pro"
	activate
	tell database "MAK_type_database"
		go to layout "Web" of database "MAK_type_database"
		show every record of database "MAK_type_database"
		set MyCount to number of records in current layout
	end tell
	repeat with i from 1 to MyCount
		tell database "MAK_type_database"
			go to layout "Web" of database "MAK_type_database"
			go to record i
			set MyFJ to get cell "Family_Jap_name" of record i
			set MyFE to get cell "Family_name" of record i
			--set MyMKN to get cell "NO" of record MyCount
			
		end tell
		tell database "MAK_FamilyDB"
			go to layout "All" of database "MAK_FamilyDB"
			if not (exists (records of database "MAK_FamilyDB" whose cell "F_Name_J" is MyFJ)) then
				create new record of database "MAK_FamilyDB" at last record
				go to the last record of database "MAK_FamilyDB"
				set cell "F_Name_J" of the last record to MyFJ
				set cell "F_Name_E" of the last record to MyFE
			end if
		end tell
	end repeat
end tell

データの追加

追加事項

Copyright by Akira Kihara, Last changes: