掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
特定文字列を取り出すには？ (ID：115450)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
みなさんありがとうございます。 具体的にはCSVデータの取り込みになりますので、電話番号のみが 入っていることが前提となります。 ただ、電話番号以外のゴミが入っているケースがありましたので 電話番号だけを取り出したいのです。 そこで、以下のような方法でやってみたのですが、 電話番号 = "tel xxx-xxxx-xxxx" '0〜9と-（）以外は除去 For liCnt = 1 To Len(電話番号) Select Case Mid(電話番号, liCnt, 1) Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "-", "(", ")" 電話番号 = 電話番号 Case Else 電話番号 = Replace(電話番号, Mid(電話番号, liCnt, 1), "") End Select Next liCnt 結果は「e xxx-xxxx-xxxx」になってしまいます。 liCntの値が一つ前の処理よりも少なくなるとFor文ではダメなんでしょうか？？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.