掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
特定文字列を取り出すには？ (ID：115451)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
削除したぶん引けばええやん？？ [VB6.0] Private Sub Command1_Click() Dim 電話番号 As String Dim wDeleteCount As Integer Dim wMidIndex As Integer 電話番号 = "tel 111-2345-9999" wDeleteCount = 0 '0〜9と-（）以外は除去 For liCnt = 1 To Len(電話番号) wMidIndex = liCnt - wDeleteCount Select Case Mid(電話番号, wMidIndex, 1) Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "-", "(", ")" 電話番号 = 電話番号 Case Else 電話番号 = Replace(電話番号, Mid(電話番号, wMidIndex, 1), "") wDeleteCount = wDeleteCount + 1 End Select Next liCnt MsgBox 電話番号 End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.