VBスクリプトで他条件分岐を作成したいです。
VBスクリプトで他条件分岐を作成したいです。
大変申し訳ありません。再質問です。
使用している印刷ソフトにて以下の説明があります。
VBスクリプト（Microsoft Visual Basic Scripting Edition)
とは、Windows PCで使用できるスクリプト言語です。
Visual BasicやOfficeのVBAとは似ていますが、別の言語となります。
本印刷ソフトはVBスクリプトを利用する事で、あらかじめ用意されている書式以外の
自由な書式で表現したり、データーベースに基づく複雑な条件分岐に従って
内容を変更したりできます。
：省略
データソースに入力されている値に対して後処理をかけることができます。
(データソースはExcelからデータベースフィールドで取得し、
値をその他のオプションのVBスクリプトで後処理します)
ようするにValueから値を読み込み、値を編集してValueに返すという
処理をすることになります。
例えばデータソース 3A500100000099 の 3A5と00100000099の間(3文字目のあと)に
ハイフンを入れるスクリプトであれば
str = Value
Value = Left(str,3) & "-" & Mid(str,4,14)
という内容になります。
この説明から
現在ソフトの設定にて接続されているデーターソース（指定のエクセルファイルのＣ列）
に入力されている値において以下の５種類が存在していて（全て半角英数字）
その５種類によって以下の法則で編集（半角ハイフンをかます）をして値を返したいです。
データ元のエクセルファイルに式を入れるのも選択肢ですが、このエクセルファイルは
システムの夜間バッチでファイル名は同じで上書更新される為エクセルに式を入れておいても
翌日には式が消えてしまいます。
このソフトはこういう場合に取得したデータを加工して表示されそれが印刷されるので
この機能を使用したいのです。
Select Case を使用するべきだと思うのですが未経験者の私の手に負えません。
今回限りの設定なのでなんとか乗り切りたいです。
よろしくお願いします。
１．○○○○○○○○○○○○○○（先頭が３以外で１４文字）
↓
○○○-○○○○○-○○-○○-○○（3-4、8-9、10-11、12-13桁の間に半角ハイフンを入れる）
２．○○○○○-○○○○○（５ケタ-５ケタ）
↓
○○○○○-○○○○○（変換しない）
3○○○○-○○○○○（先頭が3で５ケタ-５ケタ）
↓
3○○○○-○○○○○（変換しない）
3A○○○-○○○○○（先頭が3Aで５ケタ-５ケタ）
↓
3A○○○-○○○○○（変換しない）
３．○○○○○○○○-○○○○○（８桁ハイフン５桁）
↓
○○○-○○○○○-○○○○○（3-4、8-9桁の間に半角ハイフンを入れる）
3○○○○○○○-○○○○○（先頭が3で８桁ハイフン５桁）
↓
3○○-○○○○○-○○○○○（3-4、8-9桁の間に半角ハイフンを入れる）
3A○○○○○○-○○○○○（先頭が3Aで８桁ハイフン５桁）
↓
3A○-○○○○○-○○○○○（3-4、8-9桁の間に半角ハイフンを入れる）
４．3○○○○○○○○○○○○○（先頭が3で１４桁）
↓
3○○○○-○○○○○-○○-○○（5-6、10-11、12-13桁の間に半角ハイフンを入れる）
５．3A○○○○○○○○○○○○（先頭が3Aで１４桁）
↓
3A○-○○○○○○○○○○○（3-4桁の間に半角ハイフンを入れる）
お礼
ありがとうございます！！ 消えました＾＾