| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 493 人关注过本帖
标题:[求助] 新手求助 删除字符问题
只看楼主 加入收藏
xy_fdgg
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2011-3-8
结帖率:90%
收藏
 问题点数:0 回复次数:2 
[求助] 新手求助 删除字符问题
text1“000 001 010 011 100 101 110 111 012”
chk(0)caption(00); chk(1)caption(01);chk(2)caption(02)
我才刚开始学vb  请朋友们帮忙  谢谢大家了
我想的是 当我选中 chk(0),chk(1),chkk(2) 这三个 复选框的时候 删除掉 text1 中包涵00 ,01 和02 的字符(用空格格开的三个字符是一组) 最后的结果是 text1 中只剩下111
搜索更多相关主题的帖子: 朋友 
2011-03-31 12:05
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
程序代码:
Option Explicit

Private Sub Form_Load()
    Dim sTmp As String
    sTmp = "000 001 010 011 100 101 110 111 012"
    Dim aStr() As String
    aStr = Split(sTmp, " ")
    Dim aRet() As String
    aRet = Filter(aStr, "00", False)
    aRet = Filter(aRet, "01", False)
    aRet = Filter(aRet, "02", False)
    Debug.Print Join(aRet, " ")
End Sub
2011-03-31 16:42
xy_fdgg
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2011-3-8
收藏
得分:0 
回复 2楼 bczgvip
谢谢
2011-03-31 19:12
快速回复:[求助] 新手求助 删除字符问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019043 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved