掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
特定文字列を取り出すには？ (ID：115453)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Do〜Loopを使うって手もある。 Private Sub Command1_Click() Dim sTel$, sBuff As String Dim lPos As Long sTel = "tel 111-2345-9999" lPos = 1 Do Until (lPos > Len(sTel)) sBuff = Mid$(sTel, lPos, 1) If Not (sBuff Like "[0-9()-]") Then sTel = Left$(sTel, lPos - 1) & Mid$(sTel, lPos + 1) Else lPos = lPos + 1 End If Loop Debug.Print sTel End Sub ※普段あんまりLike使わないから書き方間違ってるかも？ 一応動きますが、詳しい方フォロー願いますm(__)m
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.