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

---

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

編集    削除

---

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を使ってみました。

編集    削除

---

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

Dim strQuot As String

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

編集    削除

---

これでは駄目ですか？

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

* ○文字目は数値です。

編集    削除

---

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

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。