Ｐａｇｅ 249 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼文字列の中の指定のアルファベットから前や後ろの文字を取得したい sino 03/4/10(木) 17:00 ┗Re:文字列の中の指定のアルファベットから前や後ろの文字を取得したい イケガミ 03/4/11(金) 21:58 ─────────────────────────────────────── ■題名 ： 文字列の中の指定のアルファベットから前や後ろの文字を取得したい ■名前 ： sino <asahi-g@asahigroup.net> ■日付 ： 03/4/10(木) 17:00 -------------------------------------------------------------------------
| 文字列の中の指定のアルファベットから前や後ろの文字を取得したいのですが？ 例えば品名のレコードの中に「60HR0.2」とか「100HM 10／500」とかいう感じでデータがあるんです。このレコードを「60」と「0.2」、「100」と「10／500」に分けて2つのレコードにしたいのです。 1週間に1回ぐらい別の部署から上記のようなデータが来るのですが（向こうではまとめて入力した方が便利なので）、私の方ではアルファベットの前後の数字を別に扱う方が便利なのです。 そこで追加クエリでデータを追加する際に自動的に前後の数字を振り分けてインポートする方法をとりたいのですが、どうしたらいいのか分かりません。 どなたかお願いします！ （拙い説明で申し訳ありません） |
| > 文字列の中の指定のアルファベットから前や後ろの文字を取得したいのですが？ 以下のような自作関数を作ればいいと思います。 例として、アルファベットの前を取得するものです。 Function Test(String1 As String) As String Dim lngIdx As Long Test = "" For lngIdx = 1 To Len(String1) If Mid(String1, lngIdx, 1) >= Chr(65) _ And Mid(String1, lngIdx, 1) <= Chr(90) Then Test = Left(String1, lngIdx - 1) Exit For End If Next lngIdx End Function 後を取得する関数は、一度考えてみてください。 |