Ｐａｇｅ 866 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼文字列の検索（数字） シオ 03/3/12(水) 11:00 ┗Re:文字列の検索（数字） つん 03/3/12(水) 11:18 ┗Re:文字列の検索（数字） シオ 03/3/12(水) 11:38 ─────────────────────────────────────── ■題名 ： 文字列の検索（数字） ■名前 ： シオ ■日付 ： 03/3/12(水) 11:00 -------------------------------------------------------------------------
| こんにちは。 教えて頂きたく投稿します。 フォルダ内にTEST001，TEST002，〜TEST999といった文字列があるとします。 その文字列の、数値が現れる先頭番号を検索するプログラムはどうすればいいでしょうか？（文字列の長さはすべて固定です） exlen関数では対処不能ですよね？ 宜しくお願いします。 |
| シオ さん、こんにちは >フォルダ内にTEST001，TEST002，〜TEST999といった文字列があるとします。 >その文字列の、数値が現れる先頭番号を検索するプログラムはどうすればいいでしょうか？（文字列の長さはすべて固定です） フォルダ内に文字列・・というのがちょっとわかりませんけど、 とりあえず、文字列の中から、数値を検索すればいいんですよね？ こんな感じでしょうか？ Sub test() Dim strData As String Dim strTarget As String Dim i As Long strData = "TEST001" For i = 1 To Len(strData) strTarget = Mid$(strData, i, 1) If IsNumeric(strTarget) = True Then MsgBox "最初の数値の値は " & strTarget & "で、位置は " & i & "番目です" Exit Sub End If Next i End Sub >exlen関数では対処不能ですよね？ この関数って聞いたことないなあ・・・ヘルプでもひっかかってけえへんかったし。 どんな関数ですかー？ |
| つんさん、早速のレスありがとうございました。 おかげで解決しました、助かりました。なにせ初心者な者で。 それに訳の分からない関数の事言ってましたね、そんな関数ありません！ すいません。。。 文字列もファイル名です、ハイ。 どうも慌てん坊な所があります、以後気をつけます。 回答、どうもありがとうございました。 |