掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
特定文字列を取り出すには？ (ID：115454)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
過去 ListView の Item 削除なんかでサンプル載せたけど、 ループを逆に回すってのも定番ですよねぇｗ [VB6.0] Private Sub Command1_Click() Dim 電話番号 As String 電話番号 = "tel 111-2345-9999" '0〜9と-（）以外は除去 For liCnt = Len(電話番号) To 1 Step -1 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 MsgBox 電話番号 End Sub …解決したなら解決マークつけて欲しい(TT)
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.