OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

VBで「”」文字を取り除く方法

  • 困ってます
  • 質問No.177601
  • 閲覧数241
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 50% (1/2)

VB6で「”」(全角)があった場合、それを取り除く処理を行ないたいのですが、
うまくいかずエラーの赤色表示になってしまいます。
どのように記述すればうまくいくのでしょうか?教えて下さい。
ちなみに半角の場合は、InStr(wk_kensa, """") でうまくいきました。

以下が、そのエラーとなってしまう部分の記述です。

dim wk_kensa as string, wk_kensa1 as string
wk_kensa = "例えば ”を取り除く"
If InStr(wk_kensa, "”") > 0 Then
wk_kensa1 = Mid(wk_kensa, 1, InStr(wk_kensa, "”") - 1)
wk_kensa = wk_kensa1 & Mid(wk_kensa, InStr(wk_kensa, "”") + 1, 50)
end if

よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル11

ベストアンサー率 49% (139/279)

”を"と解釈してしまうようですね。

Dim wk_kensa As String, wk_kensa1 As String
wk_kensa = "例えば " & Chr(&H8168) & "を取り除く"
If InStr(wk_kensa, Chr(&H8168)) > 0 Then
wk_kensa1 = Mid(wk_kensa, 1, InStr(wk_kensa, Chr(&H8168)) - 1)
wk_kensa = wk_kensa1 & Mid(wk_kensa, InStr(wk_kensa, Chr(&H8168)) + 1, 50)
End If

とすれば、ご希望の動作をすると思います。
お礼コメント
iwaz

お礼率 50% (1/2)

「”を"と解釈してしまうようですね。」>>そのとおりです。
上のようにやってみてうまくいきました。
早速のご回答どうもありがとうございました。
投稿日時 - 2001-12-01 07:16:10
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ