[AVURLAsset]AVURLAssetのビデオの全長時間の取得

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env swift
002	//
003	//
004	//
005	//
006	//
007	import Foundation
008	import AVFoundation
009	import AppKit
010	import UniformTypeIdentifiers
011
012	let listArguments: [String] = CommandLine.arguments
013
014	if listArguments.count == 1 {
015	print("Error: ファイルパスを指定してください")
016	doPrintHelp()
017	exit(1)
018	}
019	let strArgText: String = listArguments[1]
020	let strFilePathStr: NSString = NSString.init(string: strArgText)
021	let strFilePath: String = strFilePathStr.standardizingPath
022	let urlFilePath: NSURL = NSURL(fileURLWithPath:strFilePath)
023
024
025	let avURLAssets: AVURLAsset = AVURLAsset(url:urlFilePath as URL, options: nil)
026	let numDuration: Float64 = try await CMTimeGetSeconds(avURLAssets.load(.duration))
027	let intHours: Int = Int(numDuration) / 3600
028	let intMinutes: Int = (Int(numDuration) % 3600) / 60
029	let intSeconds: Int = Int(numDuration) % 60
030	let intMilliseconds: Int = Int((numDuration - Double(Int(numDuration))) * 1000)
031
032	let strReturnString: String = String(format: "%02d:%02d:%02d.%03d", intHours, intMinutes, intSeconds, intMilliseconds)
033
034	print("\(strReturnString)")
035
036	func doPrintHelp() {
037	print("""
038	利用方法: このファイル.swift 引数としてファイルパス
039	例文:
040	getDurationAsset.swift /some/dir/some.mp4
041	""")
042	}
043	exit(0)
AppleScriptで生成しました

---

[AVAssetTrack]AVAssetTrackのトラックの全長時間の取得

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env swift
002	//
003	//
004	//
005	//
006	//
007	import Foundation
008	import AVFoundation
009	import AppKit
010	import UniformTypeIdentifiers
011
012	let listArguments: [String] = CommandLine.arguments
013
014	if listArguments.count == 1 {
015	print("Error: ファイルパスを指定してください")
016	doPrintHelp()
017	exit(1)
018	}
019	let strArgText: String = listArguments[1]
020	let strFilePathStr: NSString = NSString.init(string: strArgText)
021	let strFilePath: String = strFilePathStr.standardizingPath
022	let urlFilePath: NSURL = NSURL(fileURLWithPath:strFilePath)
023
024
025	let avURLAssets: AVURLAsset = AVURLAsset(url:urlFilePath as URL, options: nil)
026	let avTrackArray: ([AVAssetTrack]) = try await (avURLAssets.load(.tracks))
027	let avVideoTrack: AVAssetTrack! = avTrackArray.first
028	let rangeTimeRange: (CMTimeRange) = try await (avVideoTrack.load(.timeRange))
029	let timeDuration: (CMTime) = (rangeTimeRange.duration)
030	let intTimeScale: (CMTimeScale) = try await (avVideoTrack.load(.naturalTimeScale))
031	if intTimeScale != 1000 {
032	print("タイムスケールが1000ではないため、処理を終了します。")
033	exit(1)
034	}
035	let numDuration: Double = Double(timeDuration.value) / Double(intTimeScale)
036	let intHours: Int = Int(numDuration) / 3600
037	let intMinutes: Int = (Int(numDuration) % 3600) / 60
038	let intSeconds: Int = Int(numDuration) % 60
039	let intMilliseconds: Int = Int((numDuration - Double(Int(numDuration))) * 1000)
040
041	let strReturnString: String = String(format: "%02d:%02d:%02d.%03d", intHours, intMinutes, intSeconds, intMilliseconds)
042
043	print("\(strReturnString)")
044
045	func doPrintHelp() {
046	print("""
047	利用方法: このファイル.swift 引数としてファイルパス
048	例文:
049	getDurationTrack.swift /some/dir/some.mp4
050	""")
051	}
052	exit(0)
AppleScriptで生成しました

---

[swift]ビデオトラックのフレームレートの取得

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env swift
002	//
003	//
004	//
005	//
006	//
007	import Foundation
008	import AVFoundation
009	import AppKit
010	import UniformTypeIdentifiers
011
012	let listArguments: [String] = CommandLine.arguments
013
014	if listArguments.count == 1 {
015	print("Error: ファイルパスを指定してください")
016	doPrintHelp()
017	exit(1)
018	}
019	let strArgText: String = listArguments[1]
020	let strFilePathStr: NSString = NSString.init(string: strArgText)
021	let strFilePath: String = strFilePathStr.standardizingPath
022	let urlFilePath: NSURL = NSURL(fileURLWithPath:strFilePath)
023
024	let avURLAssets: AVURLAsset = AVURLAsset(url:urlFilePath as URL, options: nil)
025	let avTrackArray: ([AVAssetTrack]) = try await (avURLAssets.load(.tracks))
026	let avVideoTrack: AVAssetTrack! = avTrackArray.first
027	let numFrameRate: (Float) = try await (avVideoTrack.load(.nominalFrameRate))
028	let strReturnString: String = String(format: "%.2f fps", numFrameRate)
029
030	print("\(strReturnString)")
031
032	func doPrintHelp() {
033	print("""
034	利用方法: このファイル.swift 引数としてファイルパス
035	例文:
036	getFrameRate.swift /some/dir/some.mp4
037	""")
038	}
039
040	exit(0)
AppleScriptで生成しました

---

[swift]ビデオトラックの縦横ピクセルサイズの取得

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env swift
002	//
003	//
004	//
005	import Foundation
006	import AVFoundation
007	import AppKit
008	import UniformTypeIdentifiers
009
010	let listArguments: [String] = CommandLine.arguments
011
012	if listArguments.count == 1 {
013	print("Error: ファイルパスを指定してください")
014	doPrintHelp()
015	exit(1)
016	}
017	let strArgText: String = listArguments[1]
018	let strFilePathStr: NSString = NSString.init(string: strArgText)
019	let strFilePath: String = strFilePathStr.standardizingPath
020	let urlFilePath: NSURL = NSURL(fileURLWithPath:strFilePath)
021
022	let avURLAssets: AVURLAsset = AVURLAsset(url:urlFilePath as URL, options: nil)
023	let avTrackArray: ([AVAssetTrack]) = try await (avURLAssets.load(.tracks))
024	let avVideoTrack: AVAssetTrack! = avTrackArray.first
025	let sizeVideoSize: (CGSize) = try await (avVideoTrack.load(.naturalSize))
026	let intWidth: Int = Int(sizeVideoSize.width)
027	let intHeight: Int = Int(sizeVideoSize.width)
028
029	let strReturnString: String = ("\(intWidth)x\(intHeight)")
030
031	print("\(strReturnString)")
032
033	func doPrintHelp() {
034	print("""
035	利用方法: このファイル.swift 引数としてファイルパス
036	例文:
037	getNaturalSize.swift /some/dir/some.mp4
038	""")
039	}
040
041	exit(0)
AppleScriptで生成しました

---

[swift]A4縦型PDF文書をA4横型PDFに２IN１ 2upで印刷PDFファイルにする（途中）

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env swift
002	//　各ページ間にドロップシャドウが出てしますう
003	//--+----1----+----2----+-----3----+----4----+----5----+----6----+----7
004	import Foundation
005	import AppKit
006	import PDFKit
007	import Cocoa
008
009	let rectA4H: NSRect = NSRect(x: 0, y: 0, width: 841.89, height: 595.28)
010	let sizeA4H: NSSize = NSSize(width:841.89, height:595.28)
011	let insetsZero: NSEdgeInsets = NSEdgeInsets(top: 0, left: 0, bottom: 0, right: 0)
012
013
014	let appFileManager: FileManager = FileManager.default
015	let urlDesktop: URL = appFileManager.urls(for: .desktopDirectory, in: .userDomainMask).first!
016	//読み込むPDF A4サイズの縦型PDF 2ページ
017	let urlReadFile: URL = urlDesktop.appendingPathComponent("A4P.pdf")
018	//保存先PDF
019	let urlSaveFile: URL = urlDesktop.appendingPathComponent("Save.pdf")
020	//PDF読み込み
021	guard let pdfDocument: PDFDocument = PDFDocument(url: urlReadFile) else {
022	print("PDFの読み込みに失敗しました")
023	exit(0)}
024
025	// PDFViewを設定
026	let pdfView: PDFView = PDFView(frame: rectA4H)
027	pdfView.document = pdfDocument
028
029	if let setPdfPage: PDFPage = pdfDocument.page(at :0){
030	pdfView.go(to: setPdfPage)
031	}
032	pdfView.displayMode = .twoUpContinuous
033	pdfView.displayDirection = .vertical
034	pdfView.displaysAsBook = false
035	pdfView.displaysRTL = true
036	pdfView.autoScales = true
037	pdfView.maxScaleFactor = 0.71
038	pdfView.minScaleFactor = 0.70714
039	pdfView.displayBox = .cropBox
040	pdfView.displaysPageBreaks = false
041	pdfView.pageBreakMargins = insetsZero
042	pdfView.pageShadowsEnabled = false
043	pdfView.autoresizesSubviews = false
044	pdfView.autoresizingMask = [.width, .height, .minXMargin, .minYMargin]
045	pdfView.translatesAutoresizingMaskIntoConstraints = true
046	//レイヤー
047	pdfView.wantsLayer = true
048	if let caLayer: CALayer = pdfView.layer {
049	caLayer.shadowOpacity = 0
050	caLayer.shadowOffset = CGSize(width: -5, height: -5)
051	caLayer.shadowRadius = 0
052	}
053	//スクローラー
054	if let scrollView: NSScrollView = pdfView.subviews.first(where: { $0 is NSScrollView }) as? NSScrollView {
055	scrollView.hasHorizontalScroller = false
056	scrollView.hasVerticalScroller = false
057	scrollView.hasHorizontalRuler = false
058	scrollView.hasVerticalRuler = false
059	scrollView.rulersVisible = false
060	scrollView.autohidesScrollers = true
061	scrollView.borderType = .noBorder
062	scrollView.drawsBackground = false
063	scrollView.clipsToBounds = false
064	scrollView.scrollerInsets = insetsZero
065	scrollView.scrollerStyle = .overlay
066	scrollView.wantsLayer = true
067	//スクローラーのレイヤー
068	if let caScLayer: CALayer = pdfView.layer {
069	caScLayer.shadowOpacity = 0
070	caScLayer.shadowOffset = CGSize(width: -5, height: -5)
071	caScLayer.shadowRadius = 0
072	}
073	}
074	//SUBVIEW
075	for itemView: NSView in pdfView.subviews {
076	if let itemCaLayer: CALayer = itemView.layer {
077	itemCaLayer.shadowOpacity = 0
078	itemCaLayer.shadowOffset = CGSize.zero
079	itemCaLayer.shadowRadius = 0
080	}
081	}
082
083
084	//NSPrintInfo
085	let printerInfoDictionary: NSMutableDictionary = NSMutableDictionary()
086	printerInfoDictionary.setObject(true, forKey: NSPrintInfo.AttributeKey.allPages.rawValue as NSCopying)
087	let printInfo: NSPrintInfo = NSPrintInfo(dictionary: printerInfoDictionary as! [NSPrintInfo.AttributeKey: Any])
088	//let printInfo: NSPrintInfo = NSPrintInfo.shared
089	printInfo.orientation = .portrait
090	printInfo.horizontalPagination = .fit
091	printInfo.verticalPagination = .fit
092	printInfo.paperSize = sizeA4H
093	printInfo.isHorizontallyCentered = true
094	printInfo.isVerticallyCentered = true
095	printInfo.leftMargin = 0.0
096	printInfo.rightMargin = 0.0
097	printInfo.topMargin = 0.0
098	printInfo.bottomMargin = 0.0
099
100	//NSPrintOperation
101	let pdfOperation: NSPrintOperation = NSPrintOperation.pdfOperation(with: pdfView, inside: rectA4H, toPath: urlSaveFile.path, printInfo: printInfo)
102	pdfOperation.showsPrintPanel = false
103	pdfOperation.showsProgressPanel = false
104	if pdfOperation.run() {
105	print("PDFが正常に保存されました")
106	} else {
107	print("PDFの保存に失敗しました")
108	}
109
110
AppleScriptで生成しました

---

[swift]DatePicker(日付選択画面)の呼び出し

---

ダウンロード - datepicker.zip

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#! /usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	# 日付ピッカーswift
004	# 初回起動時に時間がかかる
005	# swiftファイルが必要です
006	(*
007	こちらからダウンロードして試してください
008	https://quicktimer.cocolog-nifty.com/icefloe/files/datepicker.zip
009	*)
010	# com.cocolog-nifty.quicktimer.icefloe
011	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
012	use AppleScript version "2.8"
013	use framework "Foundation"
014	use framework "AppKit"
015	use scripting additions
016
017	#このファイルのパス
018	set aliasPathToMe to (path to me) as alias
019	tell application "Finder"
020	#コンテナ
021	set aliasContainerDirPath to (container of aliasPathToMe) as alias
022	#Swift格納先
023	set aliasBinDirPath to (folder "bin" of folder aliasContainerDirPath) as alias
024	#Swiftパス
025	set aliasSwiftPath to (file "launchDatePicker.swift" of folder aliasBinDirPath) as alias
026	end tell
027	#パス
028	set strSwiftPath to (POSIX path of aliasSwiftPath) as text
029	#コマンド整形 zsh指定
030	set strCommandText to ("/bin/zsh -c '" & strSwiftPath & "'") as text
031	log strCommandText
032	try
033	#コマンド実行
034	set strResponse to (do shell script strCommandText) as text
035	end try
036	#戻り値がfalse=日付を選択しなかった場合
037	#戻り値はbool値なんだけどAs textしているのでTextで比較
038	if strResponse is "false" then
039	#戻り値falseの場合は今日の日付を入れる
040	set strResponse to doGetDateNo("yyyyMMDD")
041	end if
042
043
044	##############################
045	#####ダイアログ
046	##############################
047	tell current application
048	set strName to name as text
049	end tell
050	if strName is "osascript" then
051	tell application "Finder"
052	activate
053	end tell
054	else
055	tell current application
056	activate
057	end tell
058	end if
059	set aliasIconPath to (POSIX file "/System/Applications/Clock.app/Contents/Resources/AppIcon.icns") as alias
060	try
061	set recordResult to (display dialog strResponse with title "戻り値です" default answer strResponse buttons {"クリップボードにコピー", "終了", "再実行"} default button "再実行" cancel button "終了" giving up after 20 with icon aliasIconPath without hidden answer) as record
062	on error
063	return "エラーしました"
064	end try
065	if (gave up of recordResult) is true then
066	return "時間切れです"
067	end if
068	##############################
069	#####自分自身を再実行
070	##############################
071	if button returned of recordResult is "再実行" then
072	tell application "Finder"
073	set aliasPathToMe to (path to me) as alias
074	end tell
075	run script aliasPathToMe with parameters "再実行"
076	end if
077	##############################
078	#####値のコピー
079	##############################
080	if button returned of recordResult is "クリップボードにコピー" then
081	try
082	set strText to text returned of recordResult as text
083	####ペーストボード宣言
084	set appPasteboard to refMe's NSPasteboard's generalPasteboard()
085	set ocidText to (refMe's NSString's stringWithString:(strText))
086	appPasteboard's clearContents()
087	appPasteboard's setString:(ocidText) forType:(refMe's NSPasteboardTypeString)
088	on error
089	tell application "Finder"
090	set the clipboard to strText as text
091	end tell
092	end try
093	end if
094
095
096	return 0
097
098
099
100	##############################
101	### 今の日付日間　テキスト
102	##############################
103	to doGetDateNo(argDateFormat)
104	####日付情報の取得
105	set ocidDate to current application's NSDate's |date|()
106	###日付のフォーマットを定義
107	set ocidNSDateFormatter to current application's NSDateFormatter's alloc()'s init()
108	set ocidLocale to current application's NSLocale's localeWithLocaleIdentifier:("ja_JP_POSIX")
109	ocidNSDateFormatter's setLocale:(ocidLocale)
110	set ocidTimeZone to current application's NSTimeZone's alloc()'s initWithName:("Asia/Tokyo")
111	ocidNSDateFormatter's setTimeZone:(ocidTimeZone)
112	ocidNSDateFormatter's setDateFormat:(argDateFormat)
113	set ocidDateAndTime to ocidNSDateFormatter's stringFromDate:(ocidDate)
114	set strDateAndTime to ocidDateAndTime as text
115	return strDateAndTime
116	end doGetDateNo
AppleScriptで生成しました

---

[swift]AppleScriptから透過指定のできるカラーピッカーを呼び出す(CMYK対応)

ダウンロード - openswiftcolorpicker.zip

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#! /usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	# RGBの場合カラーはキャリブレートされた値になります
004	# そのためPantone等指定された値とは異なりますが
005	# デバイスのモニター設定の値が反映されています
006	# com.cocolog-nifty.quicktimer.icefloe
007	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
008	use AppleScript version "2.8"
009	use framework "Foundation"
010	use framework "AppKit"
011	use scripting additions
012
013	#このファイルのパス
014	set aliasPathToMe to (path to me) as alias
015	tell application "Finder"
016	#コンテナ
017	set aliasContainerDirPath to (container of aliasPathToMe) as alias
018	#Swift格納先
019	set aliasBinDirPath to (folder "bin" of folder aliasContainerDirPath) as alias
020	#Swiftパス
021	set aliasSwiftPath to (file "launchColorPicker.swift" of folder aliasBinDirPath) as alias
022	end tell
023	#パス
024	set strSwiftPath to (POSIX path of aliasSwiftPath) as text
025	#コマンド整形 zsh指定
026	set strCommandText to ("/bin/zsh -c '" & strSwiftPath & "'") as text
027	log strCommandText
028	try
029	#コマンド実行
030	set strResponse to (do shell script strCommandText) as text
031	end try
032	#スペース区切りでリスト化
033	set strDelim to AppleScript's text item delimiters
034	set AppleScript's text item delimiters to " "
035	set listResponse to every text item of strResponse
036	set AppleScript's text item delimiters to strDelim
037	#数えて
038	set numCntList to (count of listResponse) as integer
039	##単純にカラーの数で取得
040	if (strResponse) contains "Gray" then
041	set numK to (item (numCntList - 1) of listResponse) as number
042	set numA to (item (numCntList) of listResponse) as number
043	set numKp to (numK * 100) as integer
044	set numAp to (numA * 100) as integer
045	set strMes to ("Gs: " & numK & "\t" & numA & "") as text
046	set strResponseText to ("0\t0\t0\t" & numKp & "\t") as text
047
048	else if (strResponse) contains "CMYK" then
049	set numC to (item (numCntList - 4) of listResponse) as number
050	set numM to (item (numCntList - 3) of listResponse) as number
051	set numY to (item (numCntList - 2) of listResponse) as number
052	set numK to (item (numCntList - 1) of listResponse) as number
053	set numA to (item (numCntList) of listResponse) as number
054	set numCp to (numC * 100) as integer
055	set numMp to (numM * 100) as integer
056	set numYp to (numY * 100) as integer
057	set numKp to (numK * 100) as integer
058	set numAp to (numA * 100) as integer
059	set strMes to ("CMYK値: " & numC & "\t" & numM & "\t" & numY & "\t" & numK & "\t" & numA & "") as text
060	set strResponseText to ("" & numCp & "\t" & numMp & "\t" & numYp & "\t" & numKp & "\t") as text
061
062	else
063	##それ以外はまぁRGB系でしょう
064	set numR to (item (numCntList - 3) of listResponse) as number
065	set numG to (item (numCntList - 2) of listResponse) as number
066	set numB to (item (numCntList - 1) of listResponse) as number
067	set numA to (item (numCntList) of listResponse) as number
068	set numR8 to (numR * 255) as integer
069	set numG8 to (numG * 255) as integer
070	set numB8 to (numB * 255) as integer
071	set numA8 to (numA * 255) as integer
072	set strMes to ("RGB値: " & numR & "\t" & numG & "\t" & numB & "\t" & numA & "") as text
073	set strResponseText to ("" & numR8 & "\t" & numG8 & "\t" & numB8 & "\t") as text
074	end if
075
076
077	##############################
078	#####ダイアログ
079	##############################
080	tell current application
081	set strName to name as text
082	end tell
083	if strName is "osascript" then
084	tell application "Finder"
085	activate
086	end tell
087	else
088	tell current application
089	activate
090	end tell
091	end if
092	set aliasIconPath to (POSIX file "/System/Applications/Utilities/Digital Color Meter.app/Contents/Resources/AppIcon.icns") as alias
093	try
094	set recordResult to (display dialog strMes with title "戻り値です" default answer strResponseText buttons {"クリップボードにコピー", "終了", "再実行"} default button "再実行" cancel button "終了" giving up after 20 with icon aliasIconPath without hidden answer) as record
095	on error
096	return "エラーしました"
097	end try
098	if (gave up of recordResult) is true then
099	return "時間切れです"
100	end if
101	##############################
102	#####自分自身を再実行
103	##############################
104	if button returned of recordResult is "再実行" then
105	tell application "Finder"
106	set aliasPathToMe to (path to me) as alias
107	end tell
108	run script aliasPathToMe with parameters "再実行"
109	end if
110	##############################
111	#####値のコピー
112	##############################
113	if button returned of recordResult is "クリップボードにコピー" then
114	try
115	set strText to text returned of recordResult as text
116	####ペーストボード宣言
117	set appPasteboard to refMe's NSPasteboard's generalPasteboard()
118	set ocidText to (refMe's NSString's stringWithString:(strText))
119	appPasteboard's clearContents()
120	appPasteboard's setString:(ocidText) forType:(refMe's NSPasteboardTypeString)
121	on error
122	tell application "Finder"
123	set the clipboard to strText as text
124	end tell
125	end try
126	end if
127
128
129	return 0
AppleScriptで生成しました

---

[swift]AppleScriptから透過指定のできるカラーピッカーを呼び出す(CMYK対応)

---

サンプルファイルが入っています
ダウンロードして試してみてください

ダウンロード - openswiftcolorpicker.zip

---

RGB値はキャリブレートされた値になるケースがありますので
ニアな値だと思った方が良い場合もあります

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#! /usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	# com.cocolog-nifty.quicktimer.icefloe
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006	use AppleScript version "2.8"
007	use scripting additions
008
009	set aliasPathToMe to (path to me) as alias
010	tell application "Finder"
011	set aliasContainerDirPath to (container of aliasPathToMe) as alias
012	set aliasBinDirPath to (folder "bin" of folder aliasContainerDirPath) as alias
013	set aliasSwiftPath to (file "launchColorPicker.swift" of folder aliasBinDirPath) as alias
014	end tell
015	set strSwiftPath to (POSIX path of aliasSwiftPath) as text
016	set strCommandText to ("/bin/zsh -c '" & strSwiftPath & "'") as text
017	try
018	set strResponse to (do shell script strCommandText) as text
019	end try
020	#スペース区切りでリスト化
021	set strDelim to AppleScript's text item delimiters
022	set AppleScript's text item delimiters to " "
023	set listResponse to every text item of strResponse
024	set AppleScript's text item delimiters to strDelim
025	#数えて
026	set numCntList to (count of listResponse) as integer
027	##単純にカラーの数で取得
028	if (strResponse) contains "RGB" then
029	set numR to (item (numCntList - 3) of listResponse) as number
030	set numG to (item (numCntList - 2) of listResponse) as number
031	set numB to (item (numCntList - 1) of listResponse) as number
032	set numA to (item (numCntList) of listResponse) as number
033	log numR
034	log numG
035	log numB
036	log numA
037	else if (strResponse) contains "Adobe" then
038	#モニターカラープロファイルがわかっている場合はこうゆうのもあり
039	set numR to (item (numCntList - 3) of listResponse) as number
040	set numG to (item (numCntList - 2) of listResponse) as number
041	set numB to (item (numCntList - 1) of listResponse) as number
042	set numA to (item (numCntList) of listResponse) as number
043	log numR
044	log numG
045	log numB
046	log numA
047	else if (strResponse) contains "P3" then
048	#モニターカラープロファイルがわかっている場合はこうゆうのもあり
049	set numR to (item (numCntList - 3) of listResponse) as number
050	set numG to (item (numCntList - 2) of listResponse) as number
051	set numB to (item (numCntList - 1) of listResponse) as number
052	set numA to (item (numCntList) of listResponse) as number
053	log numR
054	log numG
055	log numB
056	log numA
057	else if (strResponse) contains "Gray" then
058	set numK to (item (numCntList - 1) of listResponse) as number
059	set numA to (item (numCntList) of listResponse) as number
060	log numK
061	log numA
062
063	else if (strResponse) contains "CMYK" then
064	set numC to (item (numCntList - 4) of listResponse) as number
065	set numM to (item (numCntList - 3) of listResponse) as number
066	set numY to (item (numCntList - 2) of listResponse) as number
067	set numK to (item (numCntList - 1) of listResponse) as number
068	set numA to (item (numCntList) of listResponse) as number
069	log numC
070	log numM
071	log numY
072	log numK
073	log numA
074	else
075	##それ以外はRGBにしておく
076	set numR to (item (numCntList - 3) of listResponse) as number
077	set numG to (item (numCntList - 2) of listResponse) as number
078	set numB to (item (numCntList - 1) of listResponse) as number
079	set numA to (item (numCntList) of listResponse) as number
080	log numR
081	log numG
082	log numB
083	log numA
084	end if
AppleScriptで生成しました

---