TSV2AdobeXML タブ区切りテキストからAdobe Illustratorの変数印字用の『変数ライブラリ』を生成する（１ページに複数面付け版）

TSV2AdobeXML タブ区切りテキストからAdobe Illustratorの変数印字用の『変数ライブラリ』を生成する
https://quicktimer.cocolog-nifty.com/icefloe/2024/03/post-bba3c3.html
の
複数項目を１ページ内に面付けする用

---

ダウンロード - tsv2adobexml4entries.zip

---

---

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

#!/usr/bin/env osascript

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

(*

com.cocolog-nifty.quicktimer.icefloe

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

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

設定項目で１ページに面付けする数を設定してください

デフォルトは10です

-->1ページに１０件分のデータを割り付けます

【制限事項】その１

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()

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

### 【１】設定項目

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

#1ページの面付け数

set numPageEntries to 10 as integer

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

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

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

#ダイアログ

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

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

tell application "Finder"

  set aliasPathToMe to (path to me) as alias

  set aliasContainerDir to (container of aliasPathToMe) as alias

end tell

#

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 aliasContainerDir 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;"

*)

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

##ページレイアウト

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

repeat with itemEntries from 1 to numPageEntries by 1

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

  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 strSetVarName to ("E" & itemEntries & "-" & strFirstRowArray) as text

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

(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

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) - 1) as integer

#データの行数から何ページ分のデータ＝dataSetの数

set numMakePage to (round of (numCntEditArray / numPageEntries) rounding up) as integer

#取り出すデータ行番号初期化

set numCntRowNoAll to 1 as integer

#作成される予定ページ数＝dataSetの数ぶん繰り返す

repeat with itemdataSet from 1 to numMakePage by 1

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

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

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

  set strSetDataSetName to (itemdataSet & ":ページ目") as text

  #↑の内容でdataSetNameをセット

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

(ocidDataSetElement's addAttribute:(ocidAddNode))

  #１ページに入る行目数分くりかえし

  repeat with itemPageEntries from 1 to numPageEntries by 1

    #指定行数の行データを取得

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

    #区切り文字タブでリストにして

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

    #OS用の0スタートで行の項目数

    set numCntRowItemAll to ((count of ocidRowArray) - 1) as integer

    #行項目のリストから取得するための項目数初期化

    set numCntRowItem to 0 as integer

    #項目の数だけ繰り返し

    repeat with itemFirstRowArray in ocidFirstRowArray

      #ページ内での項目数＋項目名でセット

      set strSetVarName to ("E" & itemPageEntries & "-" & itemFirstRowArray) as text

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

      #対象行列データを取得

      set strSetValieRowItem to (ocidRowArray's objectAtIndex:(numCntRowItem)) as text

      #Pエレメント内にテキストとして値をセット

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

(ocidPElement's setStringValue:(strSetValieRowItem))

(ocidDataSetChildElement's addChild:(ocidPElement))

(ocidDataSetElement's addChild:(ocidDataSetChildElement))

      #カウントアップ

      set numCntRowItem to (numCntRowItem + 1) as integer

    end repeat

    set numCntRowNoAll to numCntRowNoAll + 1 as integer

    #データ行項目数より行カウンターが多くなったら終わり

    if numCntRowNoAll > (numCntEditArray) then

      exit repeat

    end if

  end repeat

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

(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

---