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

質問

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

回答No.3

Wendy02

>ｎｏ．１のパターンは編集されましたが
>ｎｏ．４とｎｏ．５がｎｏ．１のパターンで編集
>されてしまいました。

今、関わっている　#6200348「エクセルでマクロの記録が出来ません。」側を一度、参考にしてください。9Xとか、数字と文字は違いますが、同じスタイルだと思います。もしダメなら、こちらも再検討します。

お礼

＞もし、補足で書かれた内容で動くなら、以下のようにすればよいです。
＞でも、これは、VBScript なんかじゃありません。
＞前回の内容を少し替えただけです。
＞今回の細かい仕様は分かりませんから、標準的な関数も使えるのかも不明では、
＞なんとも言いようがありません。

このように回答をもらっており恐縮なのですが、
QNo.6198175-ANO.2の

n = Value
Select Case True

----省略-----

Case Else
Value = n
End Select
Next

は
'Next
にするだけで動作しました。（一部誤編集は除いて）
（これはソフトがそうアラームしたので）

QNo.6153785-ANO.2で教えていただいた、

'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 = Trim(n)
Select Case True

----省略-----

Case Else
mValue = n
End Select
'MsgBox mValue
Next

は動作がしなかったです。でアラームも（構文が不正です）だけでした。

'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

-----省略-----　

'削除
'Next
'追加
Value =mValue

と修正したら動作した理屈がわかりません。（ただし、一部誤編集は同じ）

誤編集についてはどちらも省略部分の条件分岐と処理の部分を修正すれば
誤編集もなくなりその理由もわかったのですが
この動作する、しないが私には検討もつきません。

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

補足

いろいろすいません。

サンプルは以下のように準備し結果は以下のとうりでした。

なお使用するデーターベースは他で教えてもらっている
方を利用することにしましたので
3頭→9頭
3A頭→9X頭
にしています。

１．12345678901234（先頭が9以外で14文字）　
　　　↓
　　123-45678-90-12-34
　　（3と4、8と9、10と11、12と13桁の間に半角ハイフンを入れる）
　　【ＯＫ】

２．55555-55555（5ケタ ハイフン　5ケタ）　
　　　　↓
　　55555-55555（変換しない）
　　【ＯＫ】

　　95555-55555（先頭が9で５ケタ　ハイフン　５ケタ）
　　　　↓
　　95555-55555（変換しない）
　　　【ＯＫ】　　

　　9X555-55555（先頭が9Xで５ケタ　ハイフン　５ケタ）
　　　　↓
　　9X555-55555（変換しない）
　　【ＯＫ】

３．88888888-55555（8桁ハイフン5桁）　
　　　↓　
　　888-88888-55555（3と4、8と9桁の間に半角ハイフンを入れる）
　　【ＯＫ】

　　988-88888-55555（先頭が9で8桁ハイフン5桁）　
　　　↓
　　988-88888-55555（3と4、8と9桁の間に半角ハイフンを入れる）
　　【ＯＫ】

　　9X888-88888-55555（先頭が9Xで8桁ハイフン5桁）　
　　　↓
　　9X888-88888-55555（3と4、8と9桁の間に半角ハイフンを入れる）

　　【ＯＫ】

４．9123456789012A（先頭が9で14桁）　
　　　↓
　　91234-56789-01-2A（5と6、10と11、12と13桁の間に半角ハイフンを入れる）
　　　が正規のところ
　　　↓
　　912-34567-89-01-2A
　　　（3と4、8と9、10と11、12と13桁の間に半角ハイフンを入れる）
　　　で【ＮＧ】です。　　

５．9X123456789012（先頭が9Xで14桁）
　　　↓
　　9X1-23456789012（3と4桁の間に半角ハイフンを入れる）

　　【ＯＫ】

ＮＯ．２とＮＯ．３は３種類記載しましたが
これは、質問以前にいろいろ作成していた時に

基本的に14桁。で頭が9か9Xかそれ以外でＮＯ．１が基本編集で
ＮＯ．４とＮＯ．５で9と9Xで条件を付けていたのですが
例外パターンのＮＯ．２とＮＯ．３で頭が9と9Xが来た場合
全部ＮＯ．４とＮＯ．５になってしまったので
ＮＯ．２とＮＯ．３にも9と9X頭を追加して
こちらが誤編集されないようにという事で記述しました。

最初に教えていただいた記述を修正したら
質問前に苦闘していた時と同じくNO.2とNO.3にて頭に9と9Xがくると
NO.4に編集されてしまう。

88888-55555　→　88888-55555　【ＯＫ】
98888-55555　→　988-88555-55　【ＮＧ】　
9X888-55555　→　9X8-885-55-55　【ＮＧ】
かつ
9123456789012A　→91234-56789-01-2Aになってほしいが
　　　　　　　　　912-34567-89-01-2Aというのは直らずです。

で、その後、なんとか修正できて
解決しました。ありがとうございます。