以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  全角符号与半角符号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171787)
--  作者：wh420
--  发布时间：2021/9/9 11:52:00
--  全角符号与半角符号
下面的代码如何用REPLACE把全角转换成半角判断？

If ary(i, j) <> Nothing  AndAlso Typeof ary(i,j) Is String AndAlso dic.ContainsKey(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), "")) Then
--  作者：有点蓝
--  发布时间：2021/9/9 13:53:00
--  
没看懂，把什么字符转换为半角？
--  作者：wh420
--  发布时间：2021/9/9 14:34:00
--  
任意的全角符号转成半角，例如括号，标点符号等。
--  作者：有点蓝
--  发布时间：2021/9/9 14:35:00
--  

[此贴子已经被作者于2021/9/9 14:35:10编辑过]
--  作者：有点蓝
--  发布时间：2021/9/9 14:36:00
--  
StrToWide将字符串转换为全角
StrToNarrow将字符串转换为半角
--  作者：wh420
--  发布时间：2021/9/9 14:48:00
--  
如果要加到上面那句代码中应该怎么加？
--  作者：有点蓝
--  发布时间：2021/9/9 14:52:00
--  
If ary(i, j) <> Nothing  AndAlso Typeof ary(i,j) Is String AndAlso dic.ContainsKey(StrToNarrow(ary(i,j)).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), "")) Then