Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10920 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【19161】文字列の切り取りについて けんた 04/10/24(日) 6:37

【19162】Re:文字列の切り取りについて Hirofumi 04/10/24(日) 7:43

【19163】Re:文字列の切り取りについて Hirofumi 04/10/24(日) 8:32

【19166】Re:文字列の切り取りについて ちゃっぴ 04/10/24(日) 12:33

【19167】Re:文字列の切り取りについて Kein 04/10/24(日) 13:02

【19169】Re:文字列の切り取りについて ちゃっぴ 04/10/24(日) 13:52

【19170】Re:文字列の切り取りについて Kein 04/10/24(日) 14:17


	【19161】文字列の切り取りについて

けんた - 04/10/24(日) 6:37 -


	引用なし

	パスワード

はじめまして。お知恵をお借りしたくて投稿いたしました。
セルA1に下記のいずれか一つのSQL文が入るとします。
SQL文中の()内の文字(1,2,3,4,5など)を取り出してA2に出力したいと考えて
います。
こういった場合、どうすればよいのでしょうか？
それぞれSQL文の長さが違うためMid()関数ではうまくいきそうにありません。
よろしくお願いいたします。

Insert into A values(1,2,3,4,5);
または
Insert into B values(1,2,3);
または
Insert into C values(1,2);


	【19162】Re:文字列の切り取りについて

Hirofumi - 04/10/24(日) 7:43 -


	引用なし

	パスワード

こんなFunctionを作って、ユーザー定義関数として使うか、
VBAのコードから使うかすれば善いのでは？

Public Function GetData(vntValue As Variant) As Variant

　　Const cstrFindTop As String = "values("
　　Const cstrFindEnd As String = ")"
　　
　　Dim lngPosTop As Long
　　Dim lngPosEnd As Long
　　Dim lngLenght As Long
　　
　　lngLenght = Len(cstrFindTop)
　　lngPosTop = InStr(1, vntValue, cstrFindTop, vbTextCompare)
　　lngPosEnd = InStr(1, vntValue, cstrFindEnd, vbTextCompare)
　　
　　GetData = Mid(vntValue, lngPosTop + lngLenght, _
　　　　　　　　　　　　　　lngPosEnd - lngPosTop - lngLenght)
　　
End Function

ユーザー定義関数として使うなら、A2のセルに

=GetData(A1)

で善いのでは？


	【19163】Re:文字列の切り取りについて

Hirofumi - 04/10/24(日) 8:32 -


	引用なし

	パスワード

この方が確実かも？

Public Function GetData(vntValue As Variant) As Variant

　　Const cstrFindTop As String = "values("
　　Const cstrFindEnd As String = ");"
　　
　　Dim lngPosTop As Long
　　Dim lngPosEnd As Long
　　Dim lngLenght As Long
　　
　　GetData = ""
　　lngLenght = Len(cstrFindTop)
　　lngPosTop = InStr(1, vntValue, cstrFindTop, vbTextCompare)
　　If lngPosTop = 0 Then
　　　　Exit Function
　　End If
　　lngPosEnd = InStr(lngPosTop + lngLenght + 1, _
　　　　　　　　　　　　　　vntValue, cstrFindEnd, vbTextCompare)
　　
　　GetData = Mid(vntValue, lngPosTop + lngLenght, _
　　　　　　　　　　　　　　lngPosEnd - lngPosTop - lngLenght)
　　
End Function


	【19166】Re:文字列の切り取りについて

ちゃっぴ - 04/10/24(日) 12:33 -


	引用なし

	パスワード

　> SQL文中の()内の文字(1,2,3,4,5など)を取り出してA2に
> 出力したいと考えています。

こういった場合、正規表現を使いこなせるようになると
効率的な文字列抽出ができるようになります。

'要参照 Microsoft VBScript Regular Expressions 5.5

Sub GetArgs(strTarget As String)
　　Dim objRegExp　 As VBScript_RegExp_55.RegExp
　　Dim colMatches　As VBScript_RegExp_55.MatchCollection
　　Dim objMatch　　As VBScript_RegExp_55.Match
　　
　　Set objRegExp = New VBScript_RegExp_55.RegExp
　　With objRegExp
　　　　.Global = True
　　　　.IgnoreCase = True
　　　　.Pattern = "$[^\($]*\)"
　　　　Set colMatches = .Execute(strTarget)
　　End With
　　
　　For Each objMatch In colMatches
　　　　With objMatch
　　　　　　Debug.Print Mid$(.Value, 2, .Length - 2)
　　　　End With
　　Next objMatch
End Sub

ここら辺でお勉強ください。

Clinick's Clinic on Scripting: 正規表現による Visual Basic Scripting Edition (VBScript) の機能強化
http://www.microsoft.com/japan/msdn/columns/scripting/scripting051099.asp


	【19167】Re:文字列の切り取りについて

Kein - 04/10/24(日) 13:02 -


	引用なし

	パスワード

Sub Rep_St()
　 Dim x As Long, y As Long
　 Dim ReS As String
　
　 With Range("A1")
　　　x = InStr(1, .Value, "(")
　　　y = InStr(1, .Value, ")") + 1
　　　ReS = Mid$(.Value, x, y - x)
　 End With
　 Range("A2").Value = ReS
End Sub

ぐらいでいいのでは ?


	【19169】Re:文字列の切り取りについて

ちゃっぴ - 04/10/24(日) 13:52 -


	引用なし

	パスワード

▼Kein さん：
>Sub Rep_St()
>　 Dim x As Long, y As Long
>　 Dim ReS As String
>　
>　 With Range("A1")
>　　　x = InStr(1, .Value, "(")
>　　　y = InStr(1, .Value, ")") + 1
>　　　ReS = Mid$(.Value, x, y - x)
>　 End With
>　 Range("A2").Value = ReS
>End Sub
>
>ぐらいでいいのでは ?

私も、前はそんな感じでやっていたのですが･･･

データが常にきれいな形(必ず"("→")")ならよいですが、
汚いデータだと「y - x」が負の値の時のエラー処理とかが
面倒くさくて、正規表現に切り替えた経緯があります。


	【19170】Re:文字列の切り取りについて

Kein - 04/10/24(日) 14:17 -


	引用なし

	パスワード

"(" か ")" が見つからないときに中止するなら

If x = 0 Or y = 0 Then Exit Sub

を追加するぐらいで出来ますね。
正規表現を使うのも良いのですが、既知の条件に応じてなるべく簡単なコードにする、
というのも後々のメンテを考えると大切だと考えます。ま、配布を目的にするなら、
汎用性や予測できないエラーを考えて、いろいろと対策が必要ですけどね。質問者は
その点について触れていないので、提示された条件でストレートにコードを
組めば良い、と思いましたが。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10920 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free