ダブルコーテーションの検索

山下 2004-01-22 23:46:28 No: 81645

文字列の検索で、["文字"]というテキストの１文字目から、最後までを
１文字ずつ検索したいんです。
Mid関数で１文字目より、１文字ずつと検索の方法はわかっているのですが、
IF条件で、○文字目がダブルコーテーションだった場合という条件文を
書きたいんですけど、どうやってかけばいいでしょうか？
「文」という文字だった場合という条件だと
Mid(検索文字列,1文字目より,1文字とる) ＝ "文" と普通にかける
んですけど、ダブルコーテーションだと[ """ ]になっちゃうので、
当然エラーになってしまいます。
ダブルコーテーションだった場合の検索（全角、半角も区別したいんです）
はどうすればいいでしょうか？

いちゆ 2004-01-22 23:51:32 No: 81646

dim st as string
dim i as long
st=inputbox("input")

for i=1 to len(st)
  select case mid$(st,i,1)
    case """"
      msgbox """"
  end select
next

わざわざSelectを使ってみました。

YA 2004-01-23 04:52:38 No: 81647

変数で参照したらどうでしょう

Dim strQuot As String

strQuot = Chr(34) 'ダブルクォテーション

ムラタ 2004-01-23 22:39:34 No: 81648

これでは駄目ですか？

if InStr(Text1, Chr(34)) = ○文字目 then

* ○文字目は数値です。

いちゆ 2004-01-23 23:41:13 No: 81649

InStrの場合はvbBinaryCompareモードでないとね。