Vertical Address Scripting Tips 5 of 5　　　　　　　　　　—宛名の縦書き Tipsパート5—　

投稿日: 2012年12月4日2012年12月8日投稿者: nogカテゴリー: ダイレクトスマイル、DirectSmile VDP Studio、Support、Vertical Scripting 宛名の縦書きコメントをどうぞ

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紹介を終わります。日本、アジアのユーザーのお役に立てば幸いです。

Vertical Address Scripting Tips 4 of 5　　　　　　　　　　—宛名の縦書き Tipsパート4—　

投稿日: 2012年11月26日2012年12月9日投稿者: nogカテゴリー: ダイレクトスマイル、DirectSmile VDP Studio、Support、Vertical Scripting 宛名の縦書きコメントをどうぞ

This is #4 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 lay out the recipient name looking nicely when it should be joint signature.

宛名の連名表記を見栄え良く表示する方法

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

Lay out multiple recipient name looks nicely, especially when the database contain not only full name, but also only first name as second name that should be displayed.
氏名・名のみなどのレコードが混在するデータベース使用時に、宛名の連名表記を見栄え良く表示したい

Preview of the problematic text display :
問題点の画像プレビュー：

Preview 1 : Full Name for main recipient and Full Name for second recipient.
As you can see, it’s no problem at all. Both text fit into text frame, and was adjusted accordingly by Adobe InDesign text frame setting.

プレビュー１：メインの宛名が氏名、連名も氏名の場合
ご覧のとおり、何の問題もありません。どちらの宛名もAdobe InDesignのテキストフレームの設定に従って表示されています。

Preview 2 : Full Name for main recipient and only First Name for second recipient.
As you can see, it looks not nice, especially for second recipient’s name. It because this text frame have been set with “Full Justification” in vertically.

プレビュー２：メインの宛名が氏名で、連名が名前のみの場合
御覧いただける通り、連名用の名前が両端揃えにて表示されているので、見栄えが良くありません。

Preview 3 : Full Name for main recipient and only First Name for second recipient. (nogtips version)
This looks much better than above one. So we added additional space key in front of second recipient’s first name. So it start to describe her name almost same position of mail recipient’s first name.

プレビュー３：メインの宛名が氏名、連名も氏名の場合(nogtips使用バージョン)
御覧いただける通り、連名の名前がメインの宛名の苗字部分より下がって表示されているので、より見栄えが良くなっています。

What you can achieve with this tip?

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

This tips make you able to display a join signature with nice-looking. Especially, when your database contain second name that should be a part of the joint signature as recipient name even those name is full-name, or just only first name.(It because if you assign the second name to text frame, the looking of those text frame is not good when it only have first name, because it will start to describing from the top, although other name start from Last name + First name)

本Tipsを使用すると、宛名の連名表記をするにあたり、データベースに二番目の方の名前が「氏名(フルネーム)」または「名前のみ」といった値が混在する場合に、単一のテキストフレームへのテキストの流しこみをす事による見栄えの崩れを防げ、連名であっても見栄え良く表記する事が可能になります。

Preview :
プレビュー：

With this tips, even your database contain both type of name as second recipient name(Full name or only First name), it can display the recipient name with nice-looking.

このTipsを使用すると、例えデータベースのレコードが連名用の項目に「氏名」または「名前のみ」といった値が混在している場合でも、一括処理が可能になり、また見栄えを良くすることが可能になります。

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.
ページのレイアウト範囲外にスクリプトで使用するためのバリアブルを作成します。
Actual database looks like below.
実際に使用しているデータベースは以下の通りです。
Create text frame for vertically scripting.
宛名用に縦組みのテキストフレームを作成します。

You should check maximum characters that can be displayed vertically by this text frame. I checked it by using “circle” instead of typing character. And this text frame can display 10 characters as vertical maximum number.(It’s just for checking, so you can remove those circles after you check it)With this text frame, you need to set “Full Justification” as type setting.

宛名用のテキストフレームを作成する際は、最大何文字まで縦組みにて表記出来るのかをチェックします。今回は「○」を使用して文字数のチェックをしています。このテキストフレームには縦組みにて最大10文字表記することが可能です。
Register all frames in DSM-Bridge as variable element.
全てのバリアブル項目をDSM-Bridgeに登録する。
Setup for each variables :
All variable should have assignment like below.

バリアブル項目への割り当て：
以下の様に割り当てを行います。

[[Full_Name]]

[[Name1]]

Because both of them will be used as recipient name, so I addes “様” as title oh honor in the end of their name.

これらのバリアブル項目は実際に宛名用のテキストフレームにて使用する値となるので、宛名用に最後に「様」を追加します。

Edit VBScript
Let’s edit vbscript. I made script that named as “Vertical Script3”. Here is the entire of script code.

VBスクリプトの編集：
それではVBスクリプトを編集します。今回は以下のようにしました。

function JointSignatureScript()
	Dim firstName, secondName, secondWithSal, spacekey, Cnt, work, work2, aspace, secondFullText
	firstName = RS("氏名")
	secondWithSal = RS("連名用")
	spacekey="　"
	Cnt=Len(firstName)
	work=InStr(firstName, spacekey)
	work2 = InStr(secondName, spacekey)
	If work2 <> 0 Then
		Var.PutS "JSign01", secondWithSal
		JointSignatureScript = secontWithSal
	Else
		aspace = String(work, spacekey)
		secondFullText = aspace & secondWithSal
		Var.PutS "JSign01", secondFullText
		JointSignatureScript = secondFullText
	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.
各バリアブルの値を受け取る順序設定は以下の通りです。

“Full_Name” = 1
“Name1” = 1
“Script” = 2
“JSgin01” = 3

Output Preview
出力プレビュー

Vertical Address Scripting Tips 3 of 5　　　　　　　　　　—宛名の縦書き Tipsパート3—　

投稿日: 2012年11月22日2012年12月9日投稿者: nogカテゴリー: ダイレクトスマイル、DirectSmile VDP Studio、Support、Vertical Scripting 宛名の縦書きコメントをどうぞ

This is #3 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 change text frame depends on how many digit in the customer address as maximum.

住所に含まれる番地や部屋番号などの連続数値の桁数に応じて表示するテキストフレームを変更する

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

Need to display customer address in different text frame which have different text formatting, only when address contain multiple digit number in it.
住所の見栄えを良くする為に、住所に複数桁数の数字が含まれている場合に、異なるテキスト設定を行ったフレームにて表示させたい

What you can achieve with this tip?

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

This tips make you able to display variable text in different text frame where you set different text formatting.(Although you can see text in each text frames in below screen shot, it is only for better understanding of differences between each Tips. By Using this VBScript, you can divide text frame for display customer address, especially depends on whether address contain any number larger than 100(3 digit) or not.)

本Tipsを使用すると、以下の様に複数桁数を含む住所を処理する際に別のテキストフレームにて表示する事が可能です。(それぞれのTipsによる表示結果の差異を明示する為に全てのテキストフレームに住所を表示させていますが、実際にこのTipsを使用した場合には、住所が３桁以上の連続する数値を含む場合にのみ、ターゲットのテキストフレームに住所を表示させる事が可能です。レイヤー・バリアブルと併せて使用することで、表示するテキストフレームを変更出来ます。)

Preview :
プレビュー：

As you can see, the text frame in the right side(nogtips3) display entire of customer address by using “MOJI-TSUME” which is the menu only available on Japanese version of InDesign:-)
So you can see 3 digit number which looks use similar width than other single characters.

ご覧のとおり、一番右の今回のTipsを適用したテキストフレームでは、文字に「文字ツメ」の効果がかかっており、連続する３桁以上の数を表示するにあたっても、別の数値と近い文字幅にて表示しています。

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.
(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)
Please refer to my last postregarding the assignment for Case1 and Case2.
全てのテキストフレームをDSMブリッジへ登録します。
(本Tipsは複数の項目にて住所情報を保存しているDBの使用を想定しています。ですので、始めにある程度住所情報を結合して表示するための代替用バリアブル項目([[Address]])を作成しています。またこのバリアブルへの割り当て設置段階で、ハイフン「-」を全角マイナス「ー」に置き換える設定を行います。詳細についてはTips第１弾を参照して下さい)
Setup for “nogtips_Multi_Digit_Address” :
For this text frame, we set “MOJI-TSUME” with 100 as its value. So all text will be displayed by shrinking space beteen each character.(*This feature only available on Japanese version of Adobe InDesign)
バリアブル[[nogtips_Multi_Digit_Address]]の設定：
このテキストフレームは「文字ツメ」効果を設定し、テキストが詰まって表示されるように設定します。これにより、複数桁数の数値を縦中横で表示する際でも、ある程度全体の文字幅を縮めて表示する事が可能になります。
Edit VBScript
Let’s edit vbscript. I made script that named as “Vertical Script3”. Here is the entire of script code.
VBスクリプトの編集：
それではVBスクリプトを編集します。今回は以下のようにしました。
```
function VerticalScript3()
	Dim address, s, t
	S=Var.GetS("Case2")
	Set address = new RegExp
	address.pattern = *\d{3,}*

'今回は明示的に表示するフレームを変更する方法を取るので以下条件に合わない場合Falseとしていますが、適宜変更してください。
'To control a using text frame more explictly, it force to false. Threrefore please change it to suit with you.
	If address.Test(s) Then
		Var.PutS "nogtips_Multi_Digit_Address", s
		VerticalScript3=True
	Else
		Var.PutS "nogtips_Multi_Digit_Address", ""
		VerticalScript3=False
	End If
End function
```
This script handles all text like below.
It search if there is any number that larger than 3 digit by using Regular Expression. If it find any number that higher than 99, then it will assign a customer address to “nogtips_Multi_Digit_Address”. If not, then it assign just empty value.
正規表現を使って住所に３桁以上の数値が含まれている場合にのみ、バリアブル[[nogtips_Multi_Digit_Address]]に対して住所を割り当てます。それ以外の場合は空の値を割り当てます。
Layer Variable :
To change display text frame depends on whether address contain multiple digit number in it, we set the condition for InDesign Layer. So layer that have a variable [[nogtips_Multi_Digit_Address]] will be used only when it match with condition.
バリアブル・レイヤー：
住所に複数桁数の数値が含まれている場合にのみ表示するテキストフレームを変更します。今回はバリアブル・レイヤーを使用します。
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” = 1
“Case1″ = 2
“Case2″ = 2
“Case3″ = 2
“Vertical Script” = 3
“nogtips_Address” =4
“Vertical Script 3” = 3
“nogtips_Multi_Digit_Address” = 4