提问

删除英文vb中

  • 回答数

    6

  • 浏览数

    197

回答 关注
！首席12333
首页 > 英语培训 > 删除英文vb中

6个回答 默认排序
  • 默认排序
  • 按时间排序

LD中国王海如

已采纳

dim i as long,str as stringstr=text1.textfor i=1 to len(str)select case asc(mid(str,i,1))case vbkey0 to vbkey9, asc(vbcr), asc(vblf) : case else: mid(str,i,1)=" "end selectnext i

删除英文vb中
321 评论（10）

尹才宝贝

你是没有考虑你取出的那个字符是回车键，所以你的条件语句里面少了asc值等于10的情况（换行的情况）没有考虑。当是换行是不应该用空格给取代要原样输出
314 评论（8）

夜雨初晴999

Mid(p, s, 1) '不是要找的字母，那就添加到result中text_3.text=result '显示结果
185 评论（10）

反叛的路鲁修

private sub command1_click()dim i,t for i=1 to len(text1.text) t = asc(mid(text1.text,i,1)) if ( t>65 and t< 91 ) or ( t>96 and t<123 ) text2.text = text2.text + mid(text1.text,i,1) end ifnext iend sub
280 评论（9）

huangmanjing

因为你把回车（13）和换行（10）也替换掉了，所以你的条件语句中要把这两个排除掉。
267 评论（13）

林小贱灬

直接用replace 不行啊？
196 评论（13）

相关问答

向你推荐

热门问题

热门百科