TSV2AdobeXML タブ区切りテキストからAdobe Illustratorの変数印字用の『変数ライブラリ』を生成する

TSV2AdobeXML タブ区切りテキストからAdobe Illustratorの変数印字用の『変数ライブラリ』を生成する（１ページに複数面付け版）
https://quicktimer.cocolog-nifty.com/icefloe/2024/03/post-143f05.html
もあります
このページのスクリプトは１ページに１項目版です

---

変数パネルを使った可変テキスト
１：変数パネルを出す
２：変数パネル
３：ハンバーガーから『変数ライブラリの読み込み』
４：読み込んだ状態
５：テキストオブジェクトを生成して
６：使用したい変数を選択してから『テキスト動的に設定』を実行
７：動作確認

---

ダウンロード - makevariables.zip

---

１：変数パネルを出す

２：変数パネル

３：ハンバーガーから『変数ライブラリの読み込み』

４：読み込んだ状態

５：テキストオブジェクトを生成して

６：使用したい変数を選択してから『テキスト動的に設定』を実行

７：動作確認

---

---

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

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

(*

com.cocolog-nifty.quicktimer.icefloe

TSVタブ区切りテキストから

Adobe Illustrator用の変数用のXMLを生成します

【制限事項】その１

TSVの１行目の項目がデータセット名になります

表の１行目が項目名称になるようなTSVで利用してください

【制限事項】その２

可変テキストのみ設定可能です

他の要素の付与はご相談ください

*)

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

property refNSNotFound : a reference to 9.22337203685477E+18 + 5807

set appFileManager to refMe's NSFileManager's defaultManager()

#################################

### 【１】入力ファイル

#################################

#ダイアログ

tell current application

  set strName to name as text

end tell

#スクリプトメニューから実行したら

if strName is "osascript" then

  tell application "Finder" to activate

else

  tell current application to activate

end if

#デフォルトロケーション

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDesktopDirectory) inDomains:(refMe's NSUserDomainMask))

set ocidDesktopDirPathURL to ocidURLsArray's firstObject()

set aliasDesktopDirPath to (ocidDesktopDirPathURL's absoluteURL()) as alias

#

set listUTI to {"public.tab-separated-values-text"}

set strMes to ("ファイルを選んでください") as text

set strPrompt to ("ファイルを選んでください") as text

try

  ###　ファイル選択時

  set aliasFilePath to (choose file strMes with prompt strPrompt default location aliasDesktopDirPath of type listUTI with invisibles and showing package contents without multiple selections allowed) as alias

on error

log "エラーしました"

return "エラーしました"

end try

if aliasFilePath is (missing value) then

return "選んでください"

end if

#ファイルパス

set strFilePath to (POSIX path of aliasFilePath) as text

set ocidFilePathStr to (refMe's NSString's stringWithString:(strFilePath))

set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()

set ocidFilePathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:false)

#################################

### 【２】保存先

#################################

set ocidContainerDirPathURL to ocidFilePathURL's URLByDeletingLastPathComponent()

set aliasContainerDirPath to (ocidContainerDirPathURL's absoluteURL()) as alias

set strMes to "フォルダを選んでください" as text

set strPrompt to "保存先フォルダを選択してください\n同名ファイルがある場合\n『上書き』になります" as text

try

  ###ダイアログを前面に出す

  set strName to (name of current application) as text

  if strName is "osascript" then

    tell application "Finder" to activate

  else

    tell current application to activate

  end if

  #

  set aliasResponse to (choose folder strMes with prompt strPrompt default location aliasContainerDirPath with invisibles and showing package contents without multiple selections allowed) as alias

on error

log "エラーしました"

return "エラーしました"

end try

#戻り値エイリアスをURLに

set strSaveDirPath to (POSIX path of aliasResponse) as text

set ocidSaveDirPathStr to (refMe's NSString's stringWithString:(strSaveDirPath))

set ocidSaveDirPath to ocidSaveDirPathStr's stringByStandardizingPath()

set ocidSaveDirPathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidSaveDirPath) isDirectory:true)

##出力用ファイルパス

set ocidSaveFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:("variables.xml")

#################################

### 【３】本処理

#################################

#ファイル読み込み

set listResponse to (refMe's NSString's alloc()'s initWithContentsOfURL:(ocidFilePathURL) usedEncoding:(refMe's NSUTF8StringEncoding) |error|:(reference))

set ocidReadString to (item 1 of listResponse)

if ocidReadString = (missing value) then

return "文字コードを判定出来ませんでした : " & strFileName

end if

#改行コードをUNIXに強制

set ocidCRChar to refMe's NSString's stringWithString:("\r")

set ocidLFChar to refMe's NSString's stringWithString:("\n")

set ocidCRLFChar to refMe's NSString's stringWithString:("\r\n")

set ocidReadStringsA to ocidReadString's stringByReplacingOccurrencesOfString:(ocidCRLFChar) withString:(ocidLFChar)

set ocidReadStrings to ocidReadStringsA's stringByReplacingOccurrencesOfString:(ocidCRChar) withString:(ocidLFChar)

#改行毎でリストにする

set ocidCharSet to (refMe's NSCharacterSet's newlineCharacterSet)

set ocidLineArray to (ocidReadStrings's componentsSeparatedByCharactersInSet:(ocidCharSet))

#出力用のリスト

set ocidEditLineArray to refMe's NSMutableArray's alloc()'s initWithCapacity:(0)

#読み取ったデータに項目連番を入れておく

set numCntLineNo to 0 as integer

repeat with itemLineArray in ocidLineArray

  set ocidEditLineText to (refMe's NSMutableString's alloc()'s initWithCapacity:(0))

  if numCntLineNo = 0 then

    set strAppendText to ("rowno\t") as text

(ocidEditLineText's appendString:(strAppendText))

(ocidEditLineText's appendString:(itemLineArray))

  else

    if (itemLineArray as text) is "" then

      exit repeat

    end if

    set strAppendText to (numCntLineNo & "\t") as text

(ocidEditLineText's appendString:(strAppendText))

(ocidEditLineText's appendString:(itemLineArray))

  end if

(ocidEditLineArray's addObject:(ocidEditLineText))

  #カウントアップ

  set numCntLineNo to (numCntLineNo + 1) as integer

end repeat

#最初の１行目だけ別で取得しておく

set ocidFirstObjectString to ocidEditLineArray's firstObject()

set ocidFirstRowArray to ocidFirstObjectString's componentsSeparatedByString:("\t")

################################

###XML初期化

set ocidXMLDoc to refMe's NSXMLDocument's alloc()'s init()

ocidXMLDoc's setVersion:("1.0")

ocidXMLDoc's setCharacterEncoding:("utf-8")

ocidXMLDoc's setDocumentContentKind:(refMe's NSXMLDocumentXMLKind)

###DTD生成

set ocidDTD to refMe's NSXMLDTD's alloc()'s init()

ocidDTD's setName:("svg")

ocidDTD's setPublicID:("-//W3C//DTD SVG 20001102//EN")

ocidDTD's setSystemID:("http://www.w3.org/TR/2000/CR-SVG-20001102/DTD/svg-20001102.dtd")

#Entitry付与

set strEntitry to ("<!ENTITY ns_graphs \"http://ns.adobe.com/Graphs/1.0/\">") as text

set ocidEntitry to refMe's NSString's stringWithString:(strEntitry)

set ocidEntityNode to refMe's NSXMLDTDNode's alloc()'s initWithXMLString:(ocidEntitry)

ocidEntityNode's setDTDKind:(refMe's NSXMLAttributeEntityKind)

ocidDTD's addChild:(ocidEntityNode)

#Entitry付与

set strEntitry to ("<!ENTITY ns_vars \"http://ns.adobe.com/Variables/1.0/\">") as text

set ocidEntitry to refMe's NSString's stringWithString:(strEntitry)

set ocidEntityNode to refMe's NSXMLDTDNode's alloc()'s initWithXMLString:(ocidEntitry)

ocidEntityNode's setDTDKind:(refMe's NSXMLAttributeEntityKind)

ocidDTD's addChild:(ocidEntityNode)

#Entitry付与

set strEntitry to ("<!ENTITY ns_imrep \"http://ns.adobe.com/ImageReplacement/1.0/\">") as text

set ocidEntitry to refMe's NSString's stringWithString:(strEntitry)

set ocidEntityNode to refMe's NSXMLDTDNode's alloc()'s initWithXMLString:(ocidEntitry)

ocidEntityNode's setDTDKind:(refMe's NSXMLAttributeEntityKind)

ocidDTD's addChild:(ocidEntityNode)

#Entitry付与

set strEntitry to ("<!ENTITY ns_custom \"http://ns.adobe.com/GenericCustomNamespace/1.0/\">") as text

set ocidEntitry to refMe's NSString's stringWithString:(strEntitry)

set ocidEntityNode to refMe's NSXMLDTDNode's alloc()'s initWithXMLString:(ocidEntitry)

ocidEntityNode's setDTDKind:(refMe's NSXMLAttributeEntityKind)

ocidDTD's addChild:(ocidEntityNode)

#Entitry付与

set strEntitry to ("<!ENTITY ns_flows \"http://ns.adobe.com/Flows/1.0/\">") as text

set ocidEntitry to refMe's NSString's stringWithString:(strEntitry)

set ocidEntityNode to refMe's NSXMLDTDNode's alloc()'s initWithXMLString:(ocidEntitry)

ocidEntityNode's setDTDKind:(refMe's NSXMLAttributeEntityKind)

ocidDTD's addChild:(ocidEntityNode)

#Entitry付与

set strEntitry to ("<!ENTITY ns_extend \"http://ns.adobe.com/Extensibility/1.0/\">") as text

set ocidEntitry to refMe's NSString's stringWithString:(strEntitry)

set ocidEntityNode to refMe's NSXMLDTDNode's alloc()'s initWithXMLString:(ocidEntitry)

ocidEntityNode's setDTDKind:(refMe's NSXMLAttributeEntityKind)

ocidDTD's addChild:(ocidEntityNode)

##DTDをXMLDOCにセット

ocidXMLDoc's setDTD:(ocidDTD)

###ROOTエレメント

set ocidRootElement to refMe's NSXMLElement's elementWithName:("svg")

#【１】variableSets

set ocidVsetsElement to refMe's NSXMLElement's elementWithName:("variableSets")

set ocidSetNameSpace to refMe's NSXMLNode's namespaceWithName:("") stringValue:("&ns_vars;")

ocidVsetsElement's addNamespace:(ocidSetNameSpace)

#【２】variableSet

set ocidVsetElement to refMe's NSXMLElement's elementWithName:("variableSet")

set ocidAddNode to (refMe's NSXMLNode's attributeWithName:("varSetName") stringValue:("binding1"))

(ocidVsetElement's addAttribute:(ocidAddNode))

set ocidAddNode to (refMe's NSXMLNode's attributeWithName:("locked") stringValue:("none"))

(ocidVsetElement's addAttribute:(ocidAddNode))

#【３−１】variables

set ocidVariablesElement to refMe's NSXMLElement's elementWithName:("variables")

################

#【３−２】variable

(*

可変テキスト：trait="textcontent" category="&ns_flows;"

フィアルパス：trait="fileref" category="&ns_vars;"

表示有無：trait="visibility" category="&ns_vars;"

表示有無？：trait="graphdata" category="&ns_graphs;"

*)

#【３−２−１】連番用の追加項目

set ocidVariableElement to (refMe's NSXMLElement's elementWithName:("variable"))

#【３−２−２】読み込みデータの項目

repeat with itemFirstRowArray in ocidFirstRowArray

  set strFirstRowArray to itemFirstRowArray as text

  set ocidVariableElement to (refMe's NSXMLElement's elementWithName:("variable"))

  set ocidAddNode to (refMe's NSXMLNode's attributeWithName:("varName") stringValue:(strFirstRowArray))

(ocidVariableElement's addAttribute:(ocidAddNode))

  set ocidAddNode to (refMe's NSXMLNode's attributeWithName:("category") stringValue:("&ns_flows;"))

(ocidVariableElement's addAttribute:(ocidAddNode))

  set ocidAddNode to (refMe's NSXMLNode's attributeWithName:("trait") stringValue:("textcontent"))

(ocidVariableElement's addAttribute:(ocidAddNode))

  #【３−２−２】variableを【３−１】variablesにセット

(ocidVariablesElement's addChild:(ocidVariableElement))

end repeat

################

#【４−１】DataSets

set ocidDataSetsElement to refMe's NSXMLElement's elementWithName:("v:sampleDataSets")

set ocidSetNameSpace to refMe's NSXMLNode's namespaceWithName:("v") stringValue:("&ns_vars;")

ocidDataSetsElement's addNamespace:(ocidSetNameSpace)

set ocidSetNameSpace to refMe's NSXMLNode's namespaceWithName:("") stringValue:("&ns_custom;")

ocidDataSetsElement's addNamespace:(ocidSetNameSpace)

################

#【４−２】DataSet

#データのリストの数

set numCntEditArray to (count of ocidEditLineArray) as integer

#データリストの２行目から最後まで繰り返す

repeat with itemIntNo from 1 to (numCntEditArray - 1) by 1

  #【４−２】DataSetのエレメント

  set ocidDataSetElement to (refMe's NSXMLElement's elementWithName:("v:sampleDataSet"))

  #DataSetのアトリビュートに項目番号＋２列目のデータで命名する

  set ocidRowStrings to (ocidEditLineArray's objectAtIndex:(itemIntNo))

  set ocidRowArray to (ocidRowStrings's componentsSeparatedByString:("\t"))

  #ここが行番号

  set strRowNo to (ocidRowArray's objectAtIndex:(0)) as text

  #ここが２列目

  set strRowName to (ocidRowArray's objectAtIndex:(1)) as text

  #データセット名にする

  set strSetName to (strRowNo & ":" & strRowName) as text

  set ocidAddNode to (refMe's NSXMLNode's attributeWithName:("dataSetName") stringValue:(strSetName))

(ocidDataSetElement's addAttribute:(ocidAddNode))

  #【４−２】の子要素の生成

  set numCntFirstRowArray to (count of ocidFirstRowArray) as integer

  repeat with itemIntNo from 0 to (numCntFirstRowArray - 1) by 1

    set ocidFirstRowValue to (ocidFirstRowArray's objectAtIndex:(itemIntNo))

    set ocidDataSetChildElement to (refMe's NSXMLElement's elementWithName:(ocidFirstRowValue))

    #Pパラグラフのエレメントのテキストの値として生成する

    set strSetRowItem to (ocidRowArray's objectAtIndex:(itemIntNo))

    set ocidPElement to (refMe's NSXMLElement's elementWithName:("p"))

    #テキストの値を入れる

(ocidPElement's setStringValue:(strSetRowItem))

(ocidDataSetChildElement's addChild:(ocidPElement))

(ocidDataSetElement's addChild:(ocidDataSetChildElement))

  end repeat

(ocidDataSetsElement's addChild:(ocidDataSetElement))

end repeat

#【３−１】のvariablesを【２】のvariableSetにセット

ocidVsetElement's addChild:(ocidVariablesElement)

#【４−１】DataSetsを【２】のvariableSetにセット

ocidVsetElement's addChild:(ocidDataSetsElement)

#【２】variableSetを【１】のvariableSetsにセット

ocidVsetsElement's addChild:(ocidVsetElement)

#【１】のvariableSetsをROOTにセット

ocidRootElement's addChild:(ocidVsetsElement)

#

################################

###保存

ocidXMLDoc's setRootElement:(ocidRootElement)

###NSXMLNodePrettyPrint形式でデータにして

###NSXMLNodeCompactEmptyElementにすると少しデータサイズが節約できる

set ocidXMLdata to ocidXMLDoc's XMLDataWithOptions:(refMe's NSXMLNodeExpandEmptyElement)

###データをテキストに戻して

set ocidXMLString to refMe's NSString's alloc()'s initWithData:(ocidXMLdata) encoding:(refMe's NSUTF8StringEncoding)

###改行コードをWindowsに

set ocidSaveStrings to ocidXMLString's stringByReplacingOccurrencesOfString:(ocidLFChar) withString:(ocidCRLFChar)

###保存

set listDone to (ocidSaveStrings's writeToURL:(ocidSaveFilePathURL) atomically:true encoding:(refMe's NSUTF8StringEncoding) |error|:(reference))

return

---