Q&A
ありがとうございました。教えていただいた方法で解決できました。
こんばんは
s = Replace(s, Chr(&H8167), "●" & Chr(&H8167) & "●") '“
s = Replace(s, Chr(&H8168), "●" & Chr(&H8168) & "●") '”
s = Replace(s, Chr(&H8165), "●" & Chr(&H8165) & "●") '‘
s = Replace(s, Chr(&H8166), "●" & Chr(&H8166) & "●") '’
としているのですがChr(&H8167)はChr(&H8168)もヒットしてしまいます。この逆もです。
同じくシングルクォーテションも同様です。
なにか逃げ道はないでしょうか
よろしくお願いします
回答2件
0
ベストアンサー
Zuishinさんの回答に補足で
モジュール先頭にOption Compare TextやOption Compare Database（データベースの設定次第）がある場合そのような動作になります。
対処は以下のようにReplaceの第5引数に比較モードを指定します。
vba
1s = Replace(s, Chr(&H8167), "●" & Chr(&H8167) & "●", , , vbBinaryCompare) '“ 2 3'"または 4 5s = Replace(s, Chr(&H8167), "●" & Chr(&H8167) & "●", Compare:=vbBinaryCompare) '“
また上記のOption Compare ~の設定はReplace以外にもVBA由来の各種文字列関数、=演算子、Like演算子などに影響があります。
投稿2018/02/04 12:05
総合スコア2166
0
試してはいませんがバイナリモードを使ってみてはどうでしょうか？
VB6・VBA関数メモ：Replace関数
投稿2018/02/04 11:29
総合スコア28673
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/02/05 00:43