RSS

タグ別アーカイブ: VDP Studio

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

inkpot 5

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シリーズの最終投稿(パート5)です。本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 :
プレビュー:

Vertical Scripting Tip5 - Preview

Setup
設定方法

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

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

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

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

      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
      '***************************************************************************
      
    6. 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はバリアブルに対する「値を受け取る順序設定」です。この設定が正しくない、正しい順序で設定されていない場合は、予期せぬ表示結果を得る可能性があります。ですので、確実に順序立てて値を受け取れるように各バリアブルに対してプロパティを設定していきます。
      VerticalScripting5-Script_Order
      VerticalScripting5-VerticalScriptingTextFrame_Order

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

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

Output Preview
出力プレビュー

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

広告
 

タグ: , , , , , , , , , , , , , , ,

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

This is #2 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シリーズのパート2です。本Tipsの使用は日本語版のAdobe InDesign使用を前提としています。

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

How to assign text with size specification when it should contain several size formatting?

同一フレームに対して割り当てるテキストを、サイズを変更した物と変更してない物で使い分け方

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

  • Need to display customer address with different size formatting on first line and second line(Only when it require line feed. No need to change the text size when it can display in one line)
  • 改行を要する場合に、二行目のテキストサイズを変更したい。但し、二行目のテキスト数が少ない場合はサイズ変更せず、ある程度のテキスト数を超えた場合にのみサイズを小さくして表示したい。

What you can achieve with this tip?

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

This tips make you able to display variable text with different size on second line when it insert line feed in it.

本Tipsを使用すると、以下の様な改行を含む宛名表記に際して、一行目と二行目のテキストサイズを自動的に変更する事が可能になります。

Preview :
プレビュー:

As you can see in right side text frame, with this script, it can display text not only by inserting line feed when it  need multiple line, but also it can change the size of second line depends on the text length.

ご覧のとおり、本Tipsを使用したケースでは改行を挿入するだけでなく、改行後に続く行に表示されるテキストのサイズを変更する事が可能です。また、このテキストサイズの変更は二行目のテキストの文字数に応じて自動的に変更されるので、少ないテキスト数の場合はサイズ変更せずに二行目を表示します。

Setup
設定方法

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

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

  1. Create variables at outside of page layout. Those variables will be used for script.
    ページのレイアウト範囲外にスクリプトで使用するためのバリアブルを作成します。
  2. Create text frame for vertically scripting.
    宛名用に縦組みのテキストフレームを作成します。
  3. 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第1弾を参照して下さい)
  4. “Setup for Case3” :
    Open assignment window, and insert additional field in front of assigned database column which should be used in second line. Then specify the font size by using “Font” menu.
    バリアブル[[Case3]]の設定 :
    割り当てウィンドウを開き、二行目に使用するDB項目の割り当て直前に割り当てフィールドを追加します。(フィールドを選択し、右クリックメニューから新規フィールドの挿入が可能です) 次に、挿入したフィールドにて「フォント」タブをクリックし、サイズの指定を行います。ここではサイズオプションを有効化し、サイズに10ptを指定しました。ここでは有効にしていませんが、チェックボックスにチェックを入れる事で、サイズ同様にフォントの種類、色の変更も可能です。
  5. Edit VBScript
    Let’s edit vbscript. I made script that named as “Vertical Script”. Here is the entire of script code.
    VBスクリプトの編集:
    それではVBスクリプトを編集します。前回紹介したVerticalScriptを改変し、以下の様なスクリプトを記述します。

    function VerticalScript()
    	Dim Count
    	Dim Count2
    	Dim Work
    	Dim Work2
    	Dim s
    	Dim t
    		s = Var.GetS("Case1")
    		t = Var.GetS("Case2")
    		u = Var.GetS("Case3")
    		Count = Var.GetS("Case1")
    		Count2 = Var.GetS("Line2")
    		Work = Len(Count)
    		Work2 = Len(Count2)
    		If Work > 19 Then
    			If Work2 > 10 Then
    				Var.PutS "nogtips_Address", u
    			Else
    				Var.PutS "nogtips_Address", t
    			End If
    		Else
    			Var.PutS "nogtips_Address", s
    		End If
    			VerticalScript = Work
    End function
    

    This script handle all text like below.
    If entire address have more than 19 character, and second line has more than 10 character, then it use small size of text for second line. If not, use normal size.
    If entire text less than 20, then use normal size in one line.このスクリプトにより、住所としての文字列全体が19文字を超える場合は、次に二行目のテキストの文字数をカウントし、二行目が10文字以上の場合にはテキストサイズを10ptに変更させます。それ以外の場合はサイズ変更なしの二行目表示となり、そもそも一行で表示可能なテキスト数の場合は、一行で表示させます。

  6. 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.

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

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

    Output Preview
    出力プレビュー

 

タグ: , , , , , , , , , , ,