VBAの文字列で「"」を識別したい。

質問

何度もすみません。
日本語、英語の文字列をソートしています。
最後に"○○"という表示で「"」の識別と抽出・削除ができません。
"""となってしまい、エラーになります。
解決方法を教えてください。
よろしくお願いします。

回答No.2

naganaga_001 · ベストアンサー

お世話になります。

Replace 関数が便利です。

Dim text As String
text = """" & "hage" & """" & "hoge" & """"

' イミディエイトウィンドウに出力
Debug.Print text

' 取り除く
Dim removedText As String
removedText = Replace(text, """", "")

' 取り除いた結果をイミディエイトウィンドウに出力
Debug.Print removedText

参考URL：

http://www.geocities.jp/cbc_vbnet/function/mojireyu_function.html#replace

回答No.1

noname#22222

スーツのデザイナでプログラマではありませんが...

・「ダブルクォーテンションなしで文字列の書き込み、読み込みをしたいが？」という質問ではなさそうですね。
・多少、どこに不具合の源があるのかが不明です。
・よって、核心に迫った回答を思い付きませんでした。
・そこで、何らかのヒントになれば・・・ (TrimWQ関数ではなく、ダブルクォーテンションのコード表現です！）

Option Compare Database
Option Explicit

Private Sub cmdTrimWQ_Click()
　　Dim strWord As String

　　strWord = """" & "ダブルクォーテンション付き文字列" & """"
　　MsgBox strWord & " からダブルクォーテンションを除きます。"
　　strWord = TrimWQ(strWord)
　　MsgBox strWord
End Sub

Public Function TrimWQ(ByVal strWord As String)
　　TrimWQ = Mid$(strWord, 2, Len(strWord) - 2)
End Function