如可将全角的数字转为半角的?

晨光暮曲 2004-11-26 05:14:51
如:将“1”转换为“1”!
...全文
158 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
francais 2004-11-26
  • 打赏
  • 举报
回复
看懂了
dayanmao 2004-11-26
  • 打赏
  • 举报
回复
学到了~~up
tj123 2004-11-26
  • 打赏
  • 举报
回复
replace
creazyfish 2004-11-26
  • 打赏
  • 举报
回复
呵呵,我来晚了.
viena 2004-11-26
  • 打赏
  • 举报
回复
StrConv(string1, vbNarrow)
嗯,个方法不错
aohan 2004-11-26
  • 打赏
  • 举报
回复
上面的方法不错
northwolves 2004-11-26
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim x As String
x = "12345"
MsgBox x & vbCrLf & StrConv(x, vbNarrow)
End Sub
viena 2004-11-26
  • 打赏
  • 举报
回复
Replace(string1, "2", "2")
依此类推,写10句Replace
viena 2004-11-26
  • 打赏
  • 举报
回复
Replace(string1, "1", "1")

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧