VBスクリプトで他条件分岐を作成する方法

質問

• VBスクリプトを使用して、指定の条件に基づいて値を編集する方法について説明します。
• Windows PCで利用できるVBスクリプトを使用して、印刷ソフトの設定に接続されているデータソースの値に対して編集を行う方法を解説します。
• VBスクリプトを利用して、データソースの値を読み込み、指定の条件に基づいて編集し、値を返す処理の方法について説明します。

回答No.4

Wendy02 · ベストアンサー

>ｎｏ．４とｎｏ．５がｎｏ．１のパターンで編集
されてしまいました。
パターンで言われるよりも、例を示していただいたほうがよいと思います。

ご指摘な部分は、確認できていませんが、コードを短縮してみました。

n = Value
Select Case True
Case Left(n, 2) = "3A" And Len(n) = 14 And InStr(1, n, "-", 1) = 0
Value = Left(n, 3) & "-" & Mid(n, 4)
Case Left(n, 1) = "3" And Len(n) = 14 And InStr(1, n, "-", 1) = 9
Value = Left(n, 3) & "-" & Mid(n, 4, 11)
Case Len(n) = 14 And InStr(1, n, "-", 1) = 9
Value = Left(n, 3) & "-" & Mid(n, 4, 11)
Case Len(n) = 14 And InStr(1, n, "-", 1) = 0 And Left(n, 1) = "3"
Value = Left(n, 5) & "-" & Mid(n, 6, 5) & "-" & Mid(n, 11, 2) & "-" & Mid(n, 13, 2)
Case Len(n) = 14 And InStr(1, n, "-", 1) = 0
Value = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 2) & "-" & Mid(n, 11, 2) & "-" & Mid(n, 13, 2)
Case Else
Value = n
End Select

お礼

2010年9月27日16:48トライ結果です。
使用データーベースを頭3と頭3Aがあるものから
頭9と頭9Xの方に変更したので記述がそうなっています。

・9月22日QNo.6198175-ANO.2で教えていただいた方の記述を修正

n = Value
Select Case True
'パターン5の編集　9X頭で計14桁かつハイフンがない
Case Left(n, 2) = "9X" And Len(n) = 14 And InStr(1,n, "-",1) = 0
'3-11でハイフン編集をする
Value = Left(n, 3) & "-" & Mid(n, 4)

'以下から下の行は削除
'パターン3の編集1　9頭で計14桁かつハイフンがある
'Case Left(n, 1) = "9" And Len(n) = 14 And InStr(1, n, "-", 1) = 9
'ハイフンを抜いて9頭で計13桁にする
'n = Replace(n, "-", "",1, -1 ,1)
'3-5-5でハイフン編集する
'Value = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 5)
'このパターン3の編集1について
'9頭と9X頭の定義が別文で指定されている
'それは9頭の計14桁ハイフン無しと9X頭の計14桁ハイフン無し
'よって計14桁でハイフンがあれば頭9も9Xもそれ以外も
'パターン3の編集2でモーラされるので省いてもいいのでは？
'ここまでの行は削除する

'ここから下の行は追加（編集不良の対策　パターン4の定義が欠如の為追加）
'パターン4の編集 9頭で計14桁かつハイフンがない
Case Left(n, 1) = "9" And Len(n) = 14 And InStr(1, n, "-", 1) = 0
'5-5-2-2でハイフン編集
mValue = Left(n, 5) & "-" & Mid(n, 6, 5) & "-" & Mid(n, 11, 2) & "-" & Mid(n, 13, 2)
'ここから上の行まで追加（編集不良対策）

'パターン3の編集2-基本型8桁ハイフン5桁で計14桁
'頭は問わず計14桁でハイフンがある
'この定義で9頭と9X頭の8桁ハイフン5桁で計14桁はモーラできるはず
Case Len(n) = 14 And InStr(1,n, "-",1) = 9
'ハイフンを抜いて13桁にする
n = Replace(n, "-", "",1 , -1, 1)
'3-5-5でハイフン編集する
Value = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 5)

'1の編集　頭は問わず計14桁でハイフン無し
'9頭と9X頭はすでに条件分岐しているのでこれでいい
Case Len(n) = 14 And InStr(1,n, "-",1) = 0
'3-5-2-2-2でハイフン編集
Value = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 2) & "-" & Mid(n, 11, 2) & "-" & Mid(n, 13, 2)
'上記までの条件に該当しない物　パターン2の編集はここに含まれる
Case Else
'その場合編集はしないで値を返す
Value = n
End Select
'削除
'Next

これだとパターン4が
90000000000000A→90000000000000Aで編集されません。
本来は90000-00000-00-0Aです。

現在正常編集できているQNo.6153785で教えていただいた物を修正した物
（このA-NO.4の補足の記述）
と変わりないと思うのですが、なぜか駄目です。
まだ原因が不明です。

なお
・この回答9月26日QNo.6198175-ANO.4で教えていただいた物をそのまま使用した場合

全パターン正常に編集できました。

ありがとうございました。

補足

この回答をいただく前の9月24日深夜に修正完了し報告したかったのですが
補足もお礼も使い果たしできませんでした。大変申し訳ありません。
内容は一番最初9月4日QNo.6153785で教えていただいた物を修正です。
（9月4日QNo.6153785-ANO.2で教えていただいた物は動作がしなかったのですが
　以下の様にしたら動作はしました。ですがNO.4の編集は正しくないです。）
　9月22日QNo.6198175-ANO.2で教えていただいた物は動作はしますがNO.4の編集は正しくないです。）
なお使用データーベースを頭3と頭3Aがあるものから
頭9と頭9Xの方に変更したので記述がそうなっています。
記述が完璧かの裏づけはないのですが、
現在実データーで検証中で5種類とも変換できています。
今日は勉強の為9月22日QNo.6198175-ANO.2で教えてもらった方の記述を修正してみます。
その後この回答9月26日QNo.6198175-ANO.4と見比べてみます。）

VBScript
Dim myData
Dim mValue
Dim buf
Const vbNarrow=8

　'削除
'myData = Array("41234564811114", "12345-12345",_
"12345678-12345", "31234567890123", "3A145677812300")
'For Each n In myData

　'追加
n=Value

n = Trim(n)
Select Case True

　'5の編集 9X頭で14桁、ハイフンがない？
Case Left(n, 2) = "9X" And Len(n) = 14 And InStr(1,n, "-",1) = 0
　'3-11でハイフン編集
mValue = Left(n, 3) & "-" & Mid(n, 4)

　'ここから下の行は削除
　　　'3の編集 8桁-5桁の選択（１）9頭で計14桁でかつハイフンが1個ある？
　　'Case Left(n, 1) = "9" And Len(n) = 14 And InStr(1, n, "-", 1) = 9
　　　'ハイフンを抜く
　　'n = Replace(n, "-", "",1, -1 ,1)
　　　'3-5-5でハイフン編集
　　'mValue = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 5)
　'ここから上の行まで削除

　'ここから下の行は追加（動作不良の対策）
　'4の編集 9頭で14桁、ハイフンがない？
Case Left(n, 1) = "9" And Len(n) = 14 And InStr(1, n, "-", 1) = 0
　'5-5-2-2でハイフン編集
mValue = Left(n, 5) & "-" & Mid(n, 6, 5) & "-" & Mid(n, 11, 2) & "-" & Mid(n, 13, 2)
　'ここから上の行まで追加（動作不良対策）

　'3の編集 8桁-5桁の選択（２）先頭は条件無しで計14桁でハイフンが1個ある？
Case Len(n) = 14 And InStr(1,n, "-",1) = 9
　'ハイフンを抜く
n = Replace(n, "-", "",1 , -1, 1)
　'3-5-5でハイフン編集
mValue = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 5)

　'1の編集 14桁でハイフンがない？
Case Len(n) = 14 And InStr(1,n, "-",1) = 0
　'3-5-2-2-2でハイフン編集
mValue = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 2) _
& "-" & Mid(n, 11, 2) & "-" & Mid(n, 13, 2)

　'非該当の場合
Case Else
　'データをそのまま表示する
mValue = n
End Select
'MsgBox mValue

　'削除
'Next
　'追加
Value =mValue

４．9123456789012A（先頭が9で14桁）　
　　　↓(5-5-2-2)
　　91234-56789-01-2A
　　（5と6、10と11、12と13桁の間に半角ハイフンを入れる）
【ＯＫ】