- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于Replace替换问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79183)
-- 发布时间：2015/12/25 16:43:00
-- 关于Replace替换问题
根据示例：
Dim
s As String ="abc123efg"s = s.Replace("123","789")
Output.Show(s)
如果一个列的内容输入为：“我是２０１５年中华人民共和国９１５号”，怎样把其中的全角数字替换为半角数字。
主要的问题是列属性的中文输入设置为是，出来的输入法直接变成全角的了，以前用StrToNarrow进行转换，但是转换之后会把其他的字条全部转换为半角，也是很不方便。
请教有什么好的方法吗？
-- 发布时间：2015/12/25 16:51:00
--
\'\'\'
Dim str As String = "我是２０１５年中华人民共和国９１５号"
Dim ary() As String = {"１", "２", "３", "４", "５", "６", "７", "８", "９", "０"}
msgbox(str)
For Each s As String In ary
str = str.Replace(s, StrToNarrow(s))
Next
msgbox(str)
-- 发布时间：2015/12/25 17:02:00
--
思路太好了，谢谢你！
-- 发布时间：2015/12/25 17:18:00
--
思路太好了，谢谢你大红礼袍！