VB6 怎麼將中文符“”號替換
TXT檔內容 小新:“你好阿”
怎替換文字檔中的“”
是中文輸入法的符號8跟9不是普通""
“ 替換成「
” 替換成」
下面字符替換沒辦法用
字串 = Replace(字串, "“", "「")
Private Sub Command1_Click() Dim str As String '测试要替换的字符串为:“12345” str = Text1.Text 'str = Chr(-24144) & "12345" & Chr(-24143) '直接赋值给字符串变量,要用这种形式。 Debug.Print str '不要用MsgBox输出结果,看不到中文引号的 str = Replace(str, Chr(-24144), "「") '替换“为「 str = Replace(str, Chr(-24143), "」") '替换”为 」 Debug.Print str '替换好后,用MsgBox或Debug.print都能看到正确的结果 End Sub