ある文字列でAND OR BETWEEN LIKE 以外の文字を'で囲む方法を調べています。

例えば
のびた AND すねお
なら
'のびた' AND 'すねお'

BETWEEN 2001/01/01 AND 2002/01/01
なら
BETWEEN '2001/01/01' AND '2002/01/01'

LIKE ドラ*
なら
LIKE 'ドラ*'

見たいな感じです。

INSTRやMIDだけでもできそうな気もしますが、すごい大変です。
もっと簡単な方法を知っている方いらっしゃいましたら教えていただけないでしょうか。

よろしくお願いします。

> ある文字列でAND OR BETWEEN LIKE 以外の文字を'で囲む方法を調べています。

半角スペース「 」を「' '」に置き換えて
'AND'、'OR'、'BETWEEN'、'LIKE'それぞれをAND、OR、BETWEEN、LIKEに置換え。
あとは文字列の最初と最後に「'」を付けてあげればできるかな？

※対象外文字列に「WHERE」が無いので、条件のみの文字列と判断しました。
　半角スペースが2個以上続いている場合は「''」を長さ0の文字列に置き換えてあげればOKでしょう。

琴さんの順番だと
　LIKE ドラ*
の場合がうまく行かないですね。

�@連続半角スペースは1個の半角スペースにすべて変換する
�A半角スペース「 」を「' '」にすべて置き換える
�B文字列の最初と最後に「'」を付ける
�C'AND'、'OR'、'BETWEEN'、'LIKE'それぞれをAND、OR、BETWEEN、LIKEに置換える

先頭や最後に半角スペースがあったら、これでも駄目ですけど。
あ、それも仮定するなら、�@の前に、あるいは�@と�Aのあいだに
�@’Trim()で文字列の最初と最後の半角スペースを取り除く
でOKか。

Split関数 と Join関数を使って下記のような感じにした方が簡単かな

Option Explicit

Private Sub Command1_Click()
   Debug.Print MySqlJoin("BETWEEN 2001/01/01 AND 2002/01/01")
End Sub

Private Function MySqlJoin(ByVal myString As String) As String
   Dim AddDat As Variant
   Dim i      As Long
   AddDat = Split(myString, " ")
   For i = LBound(AddDat) To UBound(AddDat)
      If AddDat(i) = "AND" Or AddDat(i) = "OR" Or _
                              AddDat(i) = "BETWEEN" Or AddDat(i) = "LIKE" Then
      Else
         AddDat(i) = "'" & AddDat(i) & "'"
      End If
   Next i
   MySqlJoin = Join(AddDat, " ")
End Function
後は、追加条件やエラー処理等を付け足して下さい。

みなさんご返答ありがとうございます。
無事解決しました！
本当にありがとうございました。

> みなさんご返答ありがとうございます。
> 無事解決しました！
> 本当にありがとうございました。

(4) 解決した場合の報告は、どのようにして解決したかを必ず報告して下さい。
よく、試してみます、ありがとうございました。　参考にさせて頂きます。　といった書き込みをされますが、貴方の為にだけに回答された訳ではありません。同様の疑問をお持ちの方を含めた人への回答です。

【掲示板ご利用に際し】 より抜粋