• ベストアンサー

vbs 数字の間に記号を挟む

以下の文字列があるとします。 ABCDEFG12345 これを以下に変換したいです。 ABCDEFG1.2.3.4.5 プログラムのご教示頂きたいです。

質問者が選んだベストアンサー

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

参考に Option Explicit Dim strText, strNText, i, n1, n2 strText = "ABCDEFG12345" For i = 1 to Len(strText) n1 = Mid(strText, i, 1) n2 = Mid(strText, i + 1, 1) If IsNumeric(n1) and IsNumeric(n2) Then strNText = strNText & n1 & "." Else strNText = strNText & n1 End If Next MsgBox strNText

tyarutiru
質問者

お礼

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

その他の回答 (1)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

何が聞きたいのか? エクセルVBAならできるが、VBSではうまく行かなかったのか?やっていないのか? ーー Googleで調べれば、 こういうVBSの関数に関する記事がある。 https://www.kanaya440.com/contents/script/vbs/function/index_text.html Mid関数やIsnumeric関数が使える。 ーー または、ロジックが分からないのか。 文字列を1文字(Midを使って)ずつ見て行って、数字の始まり位置を知(Isnumericで判定)れば仕舞。ピリオドは「&」で(後)結合する。最後だけ ピリオドを付け加えない。 http://www.dicre.com/ols/vbs/body33.html 文字列の連結  前提は、数字の「かたまり」が、文字列の中で、2か所以上ないものとしてよいのかどうか。何でも、プログラムを組むということは、最後のような、当たり前としている風な、条件を注意し、意識することだ。

関連するQ&A

  • 特殊記号 '―' の扱いについて困っています

    はじめまして、PHPにおける特殊記号の取り扱いについて質問させていただきます。 以下の処理を行っているのですが特殊記号'―'(ダッシュ)の扱いで悩んでいます。 1.文字コード'utf-8'のファイル内文字列をget_filecontentsで取得 2.取得文字列を'SJIS'に変換(mb_convert_encoding使用) 3.文字列内に'―'が存在していた場合'?'となってしまう ex)"今日の野球結果 5―6"(文字コードutf-8)  ->SJIS変換後 "今日の野球結果 5?6" 特殊文字'―'を文字コード変換できずに上記のような現象が起こっていると思うのですがこれを回避する方法がありましたらご教示お願いします。

    • 締切済み
    • PHP
  • vbsの文字列代入

    代入する文字列の中に"の文字が含まれているとき、この文字を制御文字ではなく、単なる文字であることを認識させるにはどうするのでしょうか? txt = "abcdefg"hijklm"opqrs" 途中にある""の文字を単なる文字として認識させるには? 宜しくお願いします。

  • VBA instr関数で文字列を途中からカウント

    ABCDEFGの文字列を最初から検索すると、以下の記述ではDなので4が帰ってきます。 InStr(1, "ABCDEFG", "D") 次に上記文字列を途中からカウントしたいのですが、 InStr(2, "ABCDEFG", "D") と記載しても、4しか帰ってきません。本来3になると思うのですが、なぜでしょうか?

  • エクセルのマクロを使って、例えば、「大阪太郎」を、「25」という数字に

    エクセルのマクロを使って、例えば、「大阪太郎」を、「25」という数字に一発&ごっそり変換したい。 上記の1件だけなら、エクセルの「置換」を使ってやればいいのはわかるのですが(実際、そのようにやってみたのですが、結構、大変だったものですから・・・)、実は、このような変換を、毎月、約70件こなさねばならない(つまりは、約70人分ある)ので、どうにか効率化できないかと調べた結果、「マクロ」というものを使って、そこに変換式(プログラム)を入れて、「適用」させれば、うまく行くのでは?と思い至りました。 「大阪太郎」→「25」、「東京次郎」→「26」、「北海道三郎」→「27」とかいう、そういう具合に、変換するのを、エクセルの「置換」を使わずに、変換のためのマクロ(VBA?)を一度だけ組んでしまって、後は、毎月、ポチッとボタンを押す、というようにしたいのです。 こういうことが、果たしてできるのかどうか、もしできるのなら、どういうプログラムを組めばよいのか、入り口だけでもよいので、ご教示いただけるでしょうか? (ちなみに、ウェブ検索したのですが、漢字の文字列をカナ変換するとか、そういう「変換」のためのページはたくさん出てきたのですが、私の希望する、特定の文字列を、数字に変換するためのページなどは、(ニーズが無いせいか)見つけることができませんでした。 以上、なにとぞよろしくお願いいたします。

  • 数字の挿入方法に関しまして

    以下のように、 C++で、 変数の値を、 既存の数字列に挿入したいときって、 どんな関数を使うのでしょうか? ======================= srand((unsigned)time(0)); int n = rand()% 109999; ======================= 「ABCDEFG」 という数字列の先頭に、 上記rand()で作った整数の値を挿入したいと思っています。 そして、 「挿入した整数」+「ABCDEFG 」 としたい感じです。 調べ方が悪いのか適切なものを探せませんでした。 簡単な内容でしたらすいません。 宜しくお願い致します。

  • 2バイトローマ数字小文字について(機種依存文字)

    下記のようなローマ数字小文字を対象外にしたい場合はどのようにしたらいいのでしょうか? 現在の私のプログラムではローマ数字大文字は空白に変換してくれるのですが、、、 <現在のプログラム> mb_convert_encoding()を使用して、一度変換を行った文字列と元の文字列の文字長を比較し、短い方の文字の長さまで、元の文字列から一文字ずつ連結していく。

    • ベストアンサー
    • PHP
  • 文字列を数字型に変換したい

    いつもお世話になっております。 eclipseというツールでC言語のプログラムを触っているのですが、 文字列の数字を数値型に変換して掛け算をしたいのですが、 型変換の関数はありますでしょうか??

  • webフォントが正常に表示されない

    Firefoxでのみ表示が崩れます。 最初、WOFFコンバートというフリーソフトを使用させて頂き変換したのですがファイルとしておかしいというようなエラーが複数のブラウザのコンソールで吐き出されたため、 ブラウザ上で変換できるサイトでいくつか試しました。 ですが、今度はFirefoxだけ表示がおかしく、下記のような状態になってしまいます。 Abcdefg + Abcdefgみたいな文字列があったとして Abcdefg +                                  Abcdefg ↑のようになってしまう。(IEやクロームは問題ない) ライセンス等は確認したフォント種なのですが、変換元のフォントファイルが壊れているなどなのでしょうか?(変換も何度かしなおしサイトも変えたりしましたが一向に治りません)

    • ベストアンサー
    • CSS
  • < と > に囲まれた文字列の削除

    初めて質問します。 例えば、$str = "abcdefg<hijklmn>" というような文字列を $str = "abcdefg" というような文字列に変更するにはどのような 正規表現を書けばよいでしょうか? お知恵をおかしください。お願いします。

    • ベストアンサー
    • Perl
  • 文字列から数字への変換

    文字列から数字への変換にはatoiなどを使うと思うのですが これだと文字として0を変換すると アルファベットなどを変換した場合と 同じになってしまいますよね? 0も入力を受け付けてなおかつ文字列は受け付けないように するにはどのようにすればよいのでしょうか? アドバイス・回答よろしくお願いします

専門家に質問してみよう