Dim GGP as string
     GGP="111111/222222/333333/444444/555555/666666/"
    
    用split怎么重复切割,并显示这些数据??
    
    比如:在窗口上有3个checkbox,当我3个都选中后,从第一个checkbox开始切割一次GGP,然后轮到
    
    第二个checkbox再次切割一边GGP,到第三个也一样.结束.    数据就显示在text里.    谢谢!

解决方案 »

  1.   

    没听明白楼主的意思啊?
    方法很多,我mid字符串也行...我split也行...
    你这个checkbox?干什么用的?你不说清楚...
      

  2.   

    3个都打上钩了,然后从第一个checkbox开始切割一次GGP,截取里面的数据111111,222222,333333......把这些数据轮流显示在文本框里.
    等第一次把所有的数据显示完成,再从第二个开始,重新截取GGP里面的数据,再显示一边.第三次也一样.就这么完成3次切割同一个数据.checkbox打钩就有效,执行切割\截取数据.
      

  3.   

    以下是我整个程序的一小部分.Dim Send_CSH as stringPrivate Sub Data_FengGe()                 '分割数据帧Dim CanSHu() as string
    Dim DataLen as Integer                   '总的数据CanSHu = Split(GGP, "/")                  
    If DataLen <> ZongZHenSHu Then   DataLen就是这个GGP里有多少数据.我的程序是从记事本里取数据
                                           上来放到GGP里时就得到了.                       
        Send_CSH = CanSHu(j)                                                             重点:'这里的CanSHu(j)当第一次切割到最后的时候会空, 不知道怎么弄?该如何判断这个CanSHu(j)是否为空????
        j = j + 1                    
    '每调用一次函数就切割一次数据+1,当切割第一次得到111111数据后+1,那么下次就可以切个第2个数据222222,以下都一样......
    Else 
        j = 0
        ZongZHenSHu = 0
        Send_CSH = ""
        Exit Sub
    End If
        ZongZHenSHu = ZongZHenSHu + 1
    End SubPrivate Sub Timer1_Timer()
    调用上面的函数,将Send_CSH里的数据显示在Text里可以了. 这里显示部分没有做.
    end subPrivate Sub Command1_Click()
    Dim ctl As ControlFor Each ctl In Me.Controls
        If TypeOf ctl Is CheckBox Then
            If ctl.Value = vbChecked Then
                Timer1.visigle=true                '启动Timer1
            End If
        End If
    Next
    End Sub基本上我都写出来了.各位兄弟实在还不明白,那我就郁闷了.                
      

  4.   

    楼主,请您笑纳!split("要进行拆分的字符串","分隔符")返回值为数组另外说一句:
    “原以为这里有这么几个能人,进来一看,基本上都是跟屁虫!绣花枕头一包草!哀... ”你连骂人都骂不好,表达能力实在是令人叹服。
      

  5.   

    你呀!怎么这么傻的滑稽!我说是跟屁虫还真是没错.睁大你的眼睛看清楚再说话啊!
    谁不知道SPLIT怎么用?还自以为是个老鸟,比我这个新手都不如!郁闷~!~!
      

  6.   

    从未自诩为老鸟或高手,我也从未说比你强,那是你的想法。1.fenge VS fengge 你都分不清,难怪说不清道不明。
    2.Split本身就返回数组,你的代码逻辑很怪异。
    3.Timer1.visigle=true 你自定义的属性吗?
    4.CanSHu(j)是否为空用UBound(CanSHu)判断上限
    5.给你一嘴巴
      

  7.   

    两个傻蛋!你挑都是我自己打进去的,又不是复制过来的,我怎么说也是个新手?有错误么很正常.
    最最主要的问题:就是想在这里看看,没有分的帖子有多少人回?结果不如人意啊!不够热情!难道到这里来就为了赚点分??
    失望的地方,郁闷的地方!  
    ptzxzc,整个就一傻子.连9楼都不如.就知道不理解不明白.难道我还要手把手教你理解?教你明白?
    那我还到这里来问个屁呀?不懂就别装懂是哇?  别人还给我找几个问题出来.
    你就知道跟屁!
      

  8.   

    你TMD垃圾,来问个问题都问不清楚.写J8个代码还错的一塌糊涂.
    你TMD就是个SB.TMD还说别人.
    你TMD又资格说吗?
    连自己的问题都说不清的人,还TMD问个毛啊!
    垃圾一个,人渣一个,废物一个!
      

  9.   

    ptzxzc,我看你才是人渣!垃圾!废物!白痴!
      

  10.   

    老子代码写得好了,还问个屁!真TM,SB一个!自以为了不起的东西!滚你娘的蛋!