This is the last(#5 of 5 series) Tips about the vertically address scripting (wiki : Horizontal and vertical writing in East Asian scripts).
To use this tips, it is necessary that you have a Japanese version of Adobe InDesign because it use one of the build-in feature of that only available in Japanese version of Adobe InDesign.

As basic knowledge and tips of the vertical address scripting, please refer to my old post regarding the vertical address scripting.

[JP]
これは宛名の縦組みに関するTipsシリーズの最終投稿(パート５)です。本Tipsの使用は日本語版のAdobe InDesign使用を前提としています。

また、宛名の縦組みに関する基本方法は過去の投稿「宛名の縦書き」を参照して下さい。

1. Apply different text formatting only on the multiple digit number in the recipient address.
2. Force to display recipient address in one line when it doesn’t have any value which should use 2nd line.
3. Furthermore, to display second line of recipient’s address if it has over certain number of characters.

1. 住所に含まれる連続する2桁以上の数列に対して、その桁数毎に異なる文字調整を行う。
2．住所表示にが二行要する場合に、指定した文字数を超える場合にテキストサイズを変更させる。
3．但し、二行目を必要としない住所の場合は必ず一行で表示させる

This tips if for user who have below request.
このTipsは以下の様な要望をお持ちのユーザー向けです。

The way of Tip 3 just switch text frame to which has different text formatting when it hit a condition. So it affect not only number in address, but also normal text of recipient’s address as well. If you would like to have that text formatting only for number in recipient’s address, then please refer this tip.
(This tip is what was integrated all tips I have posted in this series)
Tip 3で紹介した方法では、2桁以上の連続する数値列を認識した場合に異なる組版設定をしたテキストフレームに住所を表示する方法であったので、文字ツメをする必要がないテキストに対しても効果がかかり、見栄えが崩れてしまう。文字ツメの効果を連続する数値列のに反映させたい。また、住所表示に二行要する場合に、二行目が特定の文字数を超える時にテキストサイズを小さくしたい。(つまり、今まで紹介したTipsの統合版です)

What you can achieve with this tip?

このTipsで何が出来るのか？

This tips make you able to display recipient address by following condition.

Apply the kerning only for multiple digit number in the recipient’s address.
Display recipient’s address in one line by changing text size, especially if record doesn’t have any value which should be displayed in second line.
Display recipient’s address in two line if record has value for second line.
Change the text size of second line when text string has more than certain number of characters.

本Tipsを使用すると、以下の効果を反映できます。

住所に含まれる複数桁の数列のみに対して、桁数に応じて異なる文字ツメの効果をかける。
住所が二行目の表示を要する値を持たない場合は、テキストサイズを変更して、必ず一行で表示する。
住所が二行目の表示を要する値を持つ場合には、住所を二行で表示させる。
住所が二行目の表示を要する値を持ち、さらに特定の文字数を超える場合にテキストサイズを変更して表示する。

Preview :
プレビュー：

Setup
設定方法

Please refer to former post of this series regarding basic setting.

縦組みのテキストフレームに関する基本的設定方法は過去の投稿を参照してください。

Create variables at outside of page layout. Those variables will be used for script.
ページのレイアウト範囲外にスクリプトで使用するためのバリアブルを作成します。
Create text frame for vertically scripting.
宛名用に縦組みのテキストフレームを作成します。
Register all frames in DSM-Bridge as variable element.
全てのバリアブル項目をDSM-Bridgeに登録する。
Setup for each variables :
All variable should have assignment like below.
バリアブル項目への割り当て：
以下の様に割り当てを行います。

Edit VBScript
Let’s edit vbscript. I made script that named as “TextSizeChangeScript”. Here is the entire of script code.
VBスクリプトの編集：
それではVBスクリプトを編集します。今回は以下のようにしました。

function TextSizeChangeScript()
     MaxSize = 18
     MinLen = 16
     MinLen2 = 10
     s = Var.GetS("Address_part1")
     Count = CountLength(s)
     Factor = MinLen / Count
     NewSize = MaxSize * factor

     If NewSize > MaxSize Then NewSize = MaxSize
     FirstLine= Var.SIZE(CDbl(NewSize)) & MojiTsume(s) & Var.tag("cs", "")

     t = Var.GetS("Address_part2")
     Count2 = CountLength(t)
     If Count2 > 0 Then
          Factor2 = MinLen2 / Count2
          NewSize2 = MaxSize * Factor2

          If NewSize2 > MaxSize Then NewSize2 = MaxSize
          SecondLine = Var.SIZE(CDbl(NewSize2)) & MojiTsume(t) & Var.tag("cs", "")
          TextSizeChangeScript = FirstLine & vbcrlf & SecondLine
      Else
          TextSizeChangeScript = FirstLine
     End If
    Var.puts "nogtips_Final", TextSizeChangeScript
End function
'***************************************************************************
function CountLength(value)
    Dim address
    Dim regExp2, regExp3
    Dim oMatch, oMatches, pMatch, pMatches
    Dim aCnt, bCnt
    Dim newStr(10), new2Str(10), new3Str(10), new4Str(10)
    Dim a(10), b(10) ,c(10), d(10)
    Dim atex(10)
    Dim btex(10)
    Dim result
    address = value

          Set regExp3 = New RegExp
          regExp3.Pattern = "(\d{3})"
          regExp3.Global = True
          Set oMatches = regExp3.Execute(address)
          aCnt = oMatches.Count
               If aCnt > 0 Then
                    For i = 0 To (aCnt - 1)
                         Set oMatch = oMatches(i)
                         atex(i) = oMatch.Value
                         a(i) = i
                              If i = 0 Then
                                   newStr(0) = Replace(address, oMatch.SubMatches(0), a(i))
                              Else
                                   newStr(i) = Replace(newStr(i - 1), oMatch.SubMatches(i), a(i))
                              End If
                    Next
                         Set regExp2 = New RegExp
                         regExp2.Pattern = "(\d{2})"
                         regExp2.Global = True
                         Set pMatches = regExp2.Execute(newStr(aCnt - 1))
                         bCnt = pMatches.Count

                         If bCnt > 0 Then
                              For i = 0 To (bCnt - 1)
                                   Set pMatch = pMatches(i)
                                   btex(i) = pMatch.Value
                                   b(i) = i
                                        If i = 0 Then
                                             new2Str(0) = Replace(newStr(aCnt - 1), pMatch.SubMatches(0), b(i))
                                        Else
                                             new2Str(i) = Replace(new2Str(i - 1), pMatch.SubMatches(0), b(i))
                                        End If
                              Next
                              CountLength = Len(new2Str(bCnt - 1))
                         Else
                              CountLength = Len(newStr(aCnt - 1))
                         End If
               Else
                    Set regExp2 = New RegExp
                    regExp2.Pattern = "(\d{2})"
                    regExp2.Global = True
                    Set pMatches = regExp2.Execute(address)
                    bCnt = pMatches.Count

                    If bCnt > 0 Then
                         For i = 0 To (bCnt - 1)
                              Set pMatch = pMatches(i)
                              btex(i) = pMatch.Value
                              b(i) = i
                                   If i = 0 Then
                                        new2Str(0) = Replace(address, pMatch.SubMatches(0), b(i))
                                   Else
                                        new2Str(i) = Replace(new2Str(i - 1), pMatch.SubMatches(0), b(i))
                                   End If
                         Next
                         CountLength = Len(new2Str(bCnt - 1))
                    Else
                         CountLength = Len(address)
                    End If
               End If
End function
'***************************************************************************
function MojiTsume(value)
      Dim address
      Dim regExp2, regExp3
      Dim oMatch, oMatches, pMatch, pMatches
      Dim aCnt, bCnt
      Dim newStr(10), new2Str(10), new3Str(10), new4Str(10)
      Dim a(10), b(10) ,c(10), d(10)
      Dim atex(10)
      Dim btex(10)
      Dim result
          address = value

          Set regExp3 = New RegExp
          regExp3.Pattern = "(\d{3})"
          regExp3.Global = True
          Set oMatches = regExp3.Execute(address)
          aCnt = oMatches.Count

               If aCnt > 0 Then
                    For i = 0 To (aCnt - 1)
                         Set oMatch = oMatches(i)
                         atex(i) = oMatch.Value
                         a(i) = "tex" & i & "t"
                              If i = 0 Then
                                   newStr(0) = Replace(address, oMatch.SubMatches(0), a(i))
                              Else
                                   newStr(i) = Replace(newStr(i - 1), oMatch.SubMatches(i), a(i))
                              End If
                    Next
                         Set regExp2 = New RegExp
                         regExp2.Pattern = "(\d{2})"
                         regExp2.Global = True
                         Set pMatches = regExp2.Execute(newStr(aCnt - 1))
                         bCnt = pMatches.Count

                         If bCnt > 0 Then
                              For i = 0 To (bCnt - 1)
                                   Set pMatch = pMatches(i)
                                   btex(i) = pMatch.Value
                                   b(i) = "texx" & i & "xt"
                                        If i = 0 Then
                                             new2Str(0) = Replace(newStr(aCnt - 1), pMatch.SubMatches(0), b(i))
                                        Else
                                             new2Str(i) = Replace(new2Str(i - 1), pMatch.SubMatches(0), b(i))
                                        End If
                              Next

                              For i = 0 To (aCnt - 1)
                                   Set oMatch = oMatches(i)
                                   atex(i) = oMatch.Value
                                   a(i) = "tex" & i & "t"
                                   c(i) = Var.tag("cTsume", "1.0") & atex(i) & Var.tag("cTsume", "")
                                        If i = 0 Then
                                             new3Str(0) = Replace(new2Str(bCnt - 1), a(i), c(i))
                                        Else
                                             new3Str(i) = Replace(new3Str(i - 1), a(i), c(i))
                                        End If
                              Next
                              For i = 0 To (bCnt - 1)
                                   Set pMatch = pMatches(i)
                                   btex(i) = pMatch.Value
                                   b(i) = "texx" & i & "xt"
                                   d(i) = Var.tag("cTsume", "0.5") & btex(i) & Var.tag("cTsume", "")
                                        If i = 0 Then
                                             new4Str(0) = Replace(new3Str(aCnt - 1), b(i), d(i))
                                        Else
                                             new4Str(i) = Replace(new4Str(i - 1), b(i), d(i))
                                        End If
                              Next
                              MojiTsume = new4Str(bCnt - 1)
                         Else
                              For i = 0 To (aCnt - 1)
                                   Set oMatch = oMatches(i)
                                   atex(i) = oMatch.Value
                                   a(i) = "tex" & i & "t"
                                   c(i) = Var.tag("cTsume", "1.0") & atex(i) & Var.tag("cTsume", "")
                                        If i = 0 Then
                                             new3Str(0) = Replace(newStr(aCnt - 1), a(i), c(i))
                                        Else
                                             new3Str(i) = Replace(new3Str(i - 1), a(i), c(i))
                                        End If
                              Next
                              MojiTsume = new3Str(aCnt - 1)
                         End If
               Else
                    Set regExp2 = New RegExp
                    regExp2.Pattern = "(\d{2})"
                    regExp2.Global = True
                    Set pMatches = regExp2.Execute(address)
                    bCnt = pMatches.Count

                    If bCnt > 0 Then
                         For i = 0 To (bCnt - 1)
                              Set pMatch = pMatches(i)
                              btex(i) = pMatch.Value
                              b(i) = "texx" & i & "xt"
                                   If i = 0 Then
                                        new2Str(0) = Replace(address, pMatch.SubMatches(0), b(i))
                                   Else
                                        new2Str(i) = Replace(new2Str(i - 1), pMatch.SubMatches(0), b(i))
                                   End If
                         Next
                         For i = 0 To (bCnt - 1)
                              Set pMatch = pMatches(i)
                              btex(i) = pMatch.Value
                              b(i) = "texx" & i & "xt"
                              d(i) = Var.tag("cTsume", "0.5") & btex(i) & Var.tag("cTsume", "")
                                   If i = 0 Then
                                        new4Str(0) = Replace(new2Str(bCnt - 1), b(i), d(i))
                                   Else
                                        new4Str(i) = Replace(new4Str(i - 1), b(i), d(i))
                                   End If
                         Next
                         MojiTsume = new4Str(bCnt - 1)
                    Else
                         MojiTsume = address
                    End If
               End If
End function
'***************************************************************************

Edit variable property :
The last thing and most important is to specify the order of variable process. If you don’t set it, or set wrong order, you will get unexpected result or simply it won’t work. Please set correct order depends on your variable assignment and script that you set.

バリアブルのプロパティ設定を行う：
最後にして、一番重要なTipsはバリアブルに対する「値を受け取る順序設定」です。この設定が正しくない、正しい順序で設定されていない場合は、予期せぬ表示結果を得る可能性があります。ですので、確実に順序立てて値を受け取れるように各バリアブルに対してプロパティを設定していきます。

Here is the exactly order in this sample.
各バリアブルの値を受け取る順序設定は以下の通りです。

”Address_part1” = 1
”Address_part2” = 1
”TextSizeChangeScript” = 2
”nogtips_Final” = 3

Output Preview
出力プレビュー

以上で、全5回に渡る縦組みに関するTips紹介を終わります。日本、アジアのユーザーのお役に立てば幸いです。

This is #1 of 5 series Tips about the vertically address scripting (wiki : Horizontal and vertical writing in East Asian scripts).
To use this tips, it is necessary that you have a Japanese version of Adobe InDesign because it use one of the build-in feature of that only available in Japanese version of Adobe InDesign.

As basic knowledge and tips of the vertical address scripting, please refer to my old post regarding the vertical address scripting.

[JP]
これは宛名の縦組みに関するTipsシリーズのパート１です。本Tipsの使用は日本語版のAdobe InDesign使用を前提としています。

また、宛名の縦組みに関する基本方法は過去の投稿「宛名の縦書き」を参照して下さい。

How to insert line feed depends on the number of character

同一フレームに対して割り当てるテキストを、改行を含んだものと含んでいないもので使い分ける。

This tips if for user who have below request.
このTipsは以下の様な要望をお持ちのユーザー向けです。

DirectSmile automatically puts all value of record that you assigned to variable frame. Then layout of the text is not looking good. Especially, something which should be formatted as much as beautiful, like a recipient address.
ダイレクトスマイルはテキストフレームに対して、割り当てた値をDBから自動的に流し込みます。
この様な場合、縦組みのテキストフレームだと、特に見栄えやレイアウトが悪くなってしまう事があります。このレイアウト、組版を調整する事が可能です。
Using “Adobe InDesign Output option”, you cannot use “Shrink” or “Shrink/Grow” option. So it’s not possible to display all text in one line.
アドビ・インデザイン出力オプションを使用すると、「縮小」または「縮小・拡大」といったテキストフレームに対するオプション設定が使用出来ません。
この様な場合でも確実に一行でテキストを表示させるというレイアウトが実現出来ます。

What you can achieve with this tip?
このTipsで何が出来るのか？

This tips make you able to display variable text in one line or multiple line depends on the number of assigned text.
このTipsでは、バリアブルテキストの文字数をカウントし、特定の数値より上の場合は、事前に用意した別のバリアブル・テキスト(改行設定つき)を使い、特定の数値以下の場合は改行設定のないバリアブル・テキストを割り当てる方法をご紹介します。
これによって、一行で全体を表示出来るものは、一行で表示させ、改行を要するテキスト長の場合は、任意の場所で改行させる事を可能にます。

Preview :
プレビュー

As you can see above preview, left frame(simple assignment) just puts all text, and when it reach of bottom of frame, it automatically go to next line, and puts rest of text. On the other hand, right side frame automatically insert the line feed after it put first part of recipient address.
上記のプレビューでご覧頂ける通り、左側のフレームは改行設定をせず、単にテキストを縦組みのフレームへ流し込んでいます。一方、右側のフレームは改行を含む設定をしており、改行を要するほどテキストが長い場合に、自動的に任意の位置で改行コードを挿入し、より見栄えの良い表示結果となっています。

Setup
設定方法

At first, it expect that at least you have 2 columns that contain customer address.
始めに：
このTipsでは以下の様なデータベースの使用を想定しています。最低でも顧客住所は複数の項目にて構成されている様なDBが本Tipsの使用には必要不可欠です。
Create variables at outside of page layout. Those variables will be used for script.
後ほど設定するスクリプトから、参照使用する為にInDesignのデザインレイアウト範囲外にバリアブルテキストを作成します([[VerticalScript]], [[Case1]], [[Case2]])
Create text frame for vertically scripting.
縦書の宛名用に縦組みのテキストフレームを作成します
Register all frames in DSM-Bridge as variable element.
(Since this database has multiple column that each column has small part of recipient address. So I made another variable that can integrated 4 column that all records has value in it)
Then, set the assignment for “Case1”
全てのテキストフレームをDSMブリッジへ登録します。
(本Tipsでは上述の通り、複数のDB項目にわたって住所情報を保存しています。ですので、始めにある程度住所情報を結合して表示するための代替用バリアブル項目([[Address]])を作成しました。またこのバリアブルへの割り当て設置段階で、ハイフン「-」を全角マイナス「ー」に置き換える設定を行います)
その上で、残りの住所と結合させたテキストをバリアブルテキスト[[Case1]]へ割り当てます。
We use VBScript to insert code for “Line feed”.
Code of line feed in VBScript is “vbCrLf“
改行コードの挿入に際しては、VBスクリプトを使用します。
VBスクリプトでの改行コードは「vbCrLf」です。
Edit VBScript :
Let’s edit vbscript. I made script that named as “Vertical Script”. Here is the entire of script code.
VBスクリプトの編集：
それではVBスクリプトを編集していきます。今回はバリアブル[[VerticalScript]]に対して、以下の様なVBスクリプトを設定しました。
```
function VerticalScript()
	Dim Count
	Dim Work
	Dim s
	Dim t
		s = Var.GetS("Case1")
		t = Var.GetS("Case2")
		Count = Var.GetS("Case1")
		Work = Len(Count)
		If Work > 24 Then
			Var.PutS "nogtips_Address", t
		Else
			Var.PutS "nogtips_Address", s
		End If
		VerticalScript = Work
End function
```
This script automatically count how many character does Case1 has. And if it higher than 24, then it use Case2, otherwise it use Case1.
このVBスクリプトではバリアブル[[Case1]]に対して割り当てられるテキストの文字数をカウントし、文字数が24字を超える場合は、バリアブル[[Case2]]を使用し、それ以外の場合は[[Case1]]を使用するといった設定になっています。
Edit variable property
The last thing and most important is to specify the order of variable process. If you didn’t set it, or set wrong order, you will get unexpected result or simply it won’t work. Please set correct order depends on your variable assignment and script that you set.
バリアブルのプロパティ設定を行う：
最後にして、一番重要なTipsはバリアブルに対する「値を受け取る順序設定」です。この設定が正しくない、正しい順序で設定されていない場合は、予期せぬ表示結果を得る可能性があります。ですので、確実に順序立てて値を受け取れるように各バリアブルに対してプロパティを設定していきます。Here is the exactly order in this sample.

本Tipsにおける各バリアブルの値を受け取る順序設定は以下の通りです。

“Address” = 1
“Case1” = 2
“Case2” = 2
“Vertical Script” = 3
“nogtips_Address” =4