VB6 怎麼將中文符“”號替換 - 编程论坛

#2

风吹过b2022-03-07 18:46

这行命令没问题啊

只有本站会员才能查看附件，请登录

#3

yuma2022-03-08 18:34

可以把引号写成ASCII形式的，如chr(34)

字串 = Replace(字串, Chr(-24144), "「") '替换“
字串 = Replace(字串, Chr(-24143), "」") '替换”

[此贴子已经被作者于2022-3-8 18:43编辑过]

#4

kedian19682022-03-10 09:10

可能台灣版VB把“”當成""所以程式碼不能用

只有本站会员才能查看附件，请登录

字串 = Replace(字串, Chr(-24153), "「")
字串 = Replace(字串, Chr(-24152), "」")

#5

yuma2022-03-15 21:02

上面说的不准确，总结一下。

程序代码：

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

只有本站会员才能查看附件，请登录

#6

jhboys2022-03-22 16:13

Conn.Execute "UPDATE A11KHDD SET ZC=REPLACE(ZC,CHAR(32),'') where DH='" & HYPara1.R0.Fields("DH") & "'"
之前的代码,没问题,

#7

chenyucheng2022-07-02 23:05

变量名用中文？

#8

chenyucheng2022-07-03 01:07

回复 3楼 yuma

补码？另外要注意字符集问题，你们是简体中文系统用GBK的，他是繁体中文用BIG5的