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

質問

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

回答No.2

Wendy02

>親オブジェクトとはこの場合、どれを指すのでしょうか？
根本的な部分のオブジェクト（プログラムの集合体でひとつの体系を為すもの）が理解していないからです。本来、直接、Value というプロパティに入れるような、VB系の言語に、そのような仕様を持つものはありません。

>ソフトはすごく簡単です。
？使い方の説明は必要はないのですが……。
掲示板で、ソフトの名前を言えないようなものの質問は控えたほうがよいと思います。

>資料の無断転載はいけないと思い、自分で理解した内容で質問しています。
引用と転載とは違います。どういうソフトのどこのヘルプやマニュアルのどこに書かれている内容か、必要な分を掲示するというのは、著作権法で認められた行為です。

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

'（基本的に全角空白は絶対にいれないでください。ハングする可能性があります。）

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
n = Replace(n, "-", "",1, -1 ,1)
Value = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 5)
Case Len(n) = 14 And InStr(1,n, "-",1) = 9
n = Replace(n, "-", "",1 , -1, 1)
Value = Left(n, 3) & "-" & Mid(n, 4, 5) & "-" & Mid(n, 9, 5)
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
Next

最後に、私個人も、いくつかのソフトの独特の、マクロ・スクリプト言語を持っているものがありますが、それは、言語として完全に成り立っているものではないから、必ずしも使いこなせるものではありません。
そういうものは、自分で勉強していくしかないと思います。まして、VBScript に似ているというだけでは、どうにも解決するとは思えないのです。同じソフトを使っている同好の人たちのサイトさえあれば、情報交換から、ある程度の目処が立ちますが、こういうグローバルな掲示板で、ソフト名さえ公開しないというなら、そもそも無理な質問だと思っていただいたほうが良いと思いますね。

お礼

他の事もいろいろ教えていただきまして、すいません。
教えていただいた記述を入れてみました。

：Nextが不正です。

とアラーとが出ました。
でこのNextを削除したら、

思ったとうりに動作をしました。

５種類全部調べましたが完璧に編集されて表示されます。

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

補足

すいません。早合点でした。
ｎｏ．１のパターンは編集されましたが
ｎｏ．４とｎｏ．５がｎｏ．１のパターンで編集
されてしまいました。
せっかく記述していただいので
ところどころ修正しながら、試します。
ありがとうございました。