• ベストアンサー

ダブルコーテーションの置換

半角ダブルコーテーションを全角に置換したくて Replace(StrTemp, """", "”") としたんですが、うまくいきません。 第一引数の""""が問題なのかと思ったら、どうも後の"”"が問題みたい・・・ 試しに""”"としてみたら、VBのコードエディタに""""に直されてしまいました。 なぜなんでしょう?

noname#14004
noname#14004

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

  • ベストアンサー
  • OsieteG00
  • ベストアンサー率35% (777/2173)
回答No.2

失礼しました。 全角はこちらが一般的です。 Chr(&H8167) Chr(&H8168)

noname#14004
質問者

お礼

OsieteG00さん、imogasiさん、ありがとうございました。お二人の言う通り、文字コードを指定することで解決しました。 やはり全角の方が問題だったようです。 それにしても・・・ MsgBox "あ”あ" ↑これでもVBに怒られました。 MsgBox "”"は、やはり""""にされてしまうし。 全角文字なのに、何でいけないんでしょうね?

その他の回答 (2)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

VBの質問ですよね。 VB6.0からReplace関数があるようです。 VBなんですが、エクセルVBAでやってみました。 Sub test01() x = Cells(1, 1) Cells(1, 2) = Replace(x, Chr(34), Chr((-32408))) End Sub でうまくいくようです。VBでも同じでしょう。 全角”はVBのVBE・コーディング上では、シングルコーテーションに置き換えるオートコレクトが働くのではないでしょうか。

  • OsieteG00
  • ベストアンサー率35% (777/2173)
回答No.1

半角のダブルコーテーションをchr(34)に替えてみてください。 全角のダブルコーテーションはChr(-32408)Chr(-32409)

関連するQ&A

  • ダブルコーテーションを全角に置換するには

    InputBoxで入力した"を、Replace関数で”にしたいのですが、 Replace(str, """", "”")をすると、コンパイルエラーになります。 Sub macro() Dim str As String str = InputBox("文字を入れてください") Debug.Print Replace(str, """", "") End Sub というマクロを作りました。 画像のように、半角のダブルコーテーション「"」を入れたら、 Replace関数で全角のダブルコーテーション「”」に変えるにはどうすればいいでしょうか? 「最初からInputBoxに全角入れればいいやん!」 は、なしにしてください。 ファイル名を作っていて、ダブルコーテーションは全角でないとつけられないのです。

  • ダブルクォーテーションが置換できません

    いつもお世話になっております。 PHP初心者です。 シングルクォーテーションとダブルクォーテーションを文字列として入力したいと思い、以下のように記述しました。 -------------------------------------------------- $naiyo = $_POST['naiyo']; $search = array('\'','"'); $replace = array('\'\'','\"'); $naiyo2 = str_replace($search,$replace,$naiyo); -------------------------------------------------- シングルクォーテーションは置換された(文字列として表示された)のですが、ダブルクォーテーションは表示されず、ダブルクォーテーション以下の文字列が消えてしまいます。 置換ができていないというよりも、そもそもダブルクォーテーションが検索に引っかかってもいないようです。 どのようにすればダブルクォーテーションも置換できるか、お分かりの方がいらっしゃいましたらご教示ください。 よろしくお願いいたします。

    • 締切済み
    • PHP
  • VBAで全角のダブルクォーテーションを削除

    VBAで全角のダブルクォーテーションを削除する関数を書きたいのですが、その方法が解りません。 VBEditorで全角クォーテーションを書いても、半角に変換されてしまいます。 Replaceなどで削除する場合、どのように書けばいいのでしょうか。

  • MS-Wordで半角ダブルクォーテーションの入力する方法

    MSワードで、半角ダブルクォーテーション「" "」を入力しても、自動で全角ダブルクォーテーション「“ ”」に変換されてしまいます。半角ダブルクォーテーションの入力方法を教えてください。 ワードで開いて見たり印刷して見る分には、半角でも全角でも違いがありませんが、プログラミングのサンプル・コードを記述しているため、ダブルクォーテーションを含むコードをコピペするとダブルクォーテーションを1個1個半角に変換してもらわないけいけないので、困っています。 こちらの環境は、日本語版Vistaで英語版MS-Word2003を使用しています。日本語のWordの設定方法や、別のバージョンの設定方法などでも構いませんので、やり方が分かる方いましたら教えてください。よろしくお願いします。

  • ダブルクォーテーション置換時の謎について

    ダブルクォーテーションの入った文字列からダブルクォーテーションを削除するため、置換を使ったのですが何かの数字コードに化けてしまいました。 これはどういう理由でこのような現象になったでしょうか。 5という数字のみ出てきて欲しいのですが。 ご回答よろしくお願いいたします。 以下、サンプルプログラムです。 ------------------------------------------------- $aotype= "\"5"; print "$aotype\n"; $aotype= ~s/\"//g; print "$aotype\n";

    • ベストアンサー
    • Perl
  • ダブルクォーテーションの削除(置換)

    $a = qq/"aaaaaa","bbbbb"/; print $a; → "aaaaa","bbbbb" としたときの、変数 $a の中にある ダブルクォーテーションを削除したいのですが、 $a =~ s/"//; では何も変化が無くて、 $a =~ tr/"/ /; では半角スペースに置換できるのですが、 $a =~ tr/"//; では何も変化がありません。 上手く出来る方法はどの様な方法でしょうか? 教えていただければありがたいです。 よろしくお願いいたします。

    • ベストアンサー
    • Perl
  • ダブルクォーテーションのreplaceの方法

    JavaScriptで文字を置換する際に AAA = new String(AAA).replace(/ZZZ/g, "QQQ"); にしますよね、これで文字列中のダブルクォーテーション「"」を 任意の文字に変換したいのですが、何か良い方法はないでしょか? よろしくお願いします。

  • VBAの文字列の中に”(全角のダブルコーテーション)を使う

    VBAのStringの中に”(全角のダブルコーテーション)を使おうとしているのですが、VisualBasicEditorにより自動的に ""(半角のダブルコーテーション2つ)に変換されてしまいます。 Dim str as String str = "abc”def"    ↓ str = "abc""def" 文字列中に全角のダブルコーテーションを使う方法を教えてください。よろしくお願いします。

  • 正規表現:囲われた文字列の置換

    シングルクオーテーションで囲われた文字列のシングルクオーテーションの前に文字を追加するように、正規表現を用いて置換しようと考えています。 全角文字は[^\x01-\x7E]で検索できるのはわかったのですが、シングルクオーテーションで囲われて、全角文字を含む場合という表現ができません。 下記のような、文字列を対象としています。置換をするのは、全角文字を含む文字列のみです。  全角文字のみ  半角文字のみ  全角半角文字両方 下記ののように置換したいです。 置換前: '全角文字や半角文字','testです','test'.'テスト'.'てすとtest','123' 置換後: A'全角文字や半角文字',A'testです','test'.A'テスト'.A'てすとtest','123' よろしくお願いします。

  • 縦書きの注釈で半角のダブルクォーテーションマーク

    現在ワード2003で卒業論文を書いています。 「メニューの挿入→参照→脚注」で注釈をつけているのですが、そこで参考にした本を書く際に、洋書のタイトルをダブルクォーテーション("")の半角で囲って出したいのですが、なぜか全角表示でおかしな感じになってしまいます。 変換で半角を選択したのにエンターキーを押すと勝手に全角になってしまうんです。 これはどうすれば良いのでしょうか。 回答よろしくお願いします。

専門家に質問してみよう