Dim GGP as string
GGP="111111/222222/333333/444444/555555/666666/"
用split怎么重复切割,并显示这些数据??
比如:在窗口上有3个checkbox,当我3个都选中后,从第一个checkbox开始切割一次GGP,然后轮到
第二个checkbox再次切割一边GGP,到第三个也一样.结束. 数据就显示在text里. 谢谢!
GGP="111111/222222/333333/444444/555555/666666/"
用split怎么重复切割,并显示这些数据??
比如:在窗口上有3个checkbox,当我3个都选中后,从第一个checkbox开始切割一次GGP,然后轮到
第二个checkbox再次切割一边GGP,到第三个也一样.结束. 数据就显示在text里. 谢谢!
方法很多,我mid字符串也行...我split也行...
你这个checkbox?干什么用的?你不说清楚...
等第一次把所有的数据显示完成,再从第二个开始,重新截取GGP里面的数据,再显示一边.第三次也一样.就这么完成3次切割同一个数据.checkbox打钩就有效,执行切割\截取数据.
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基本上我都写出来了.各位兄弟实在还不明白,那我就郁闷了.
“原以为这里有这么几个能人,进来一看,基本上都是跟屁虫!绣花枕头一包草!哀... ”你连骂人都骂不好,表达能力实在是令人叹服。
谁不知道SPLIT怎么用?还自以为是个老鸟,比我这个新手都不如!郁闷~!~!
2.Split本身就返回数组,你的代码逻辑很怪异。
3.Timer1.visigle=true 你自定义的属性吗?
4.CanSHu(j)是否为空用UBound(CanSHu)判断上限
5.给你一嘴巴
最最主要的问题:就是想在这里看看,没有分的帖子有多少人回?结果不如人意啊!不够热情!难道到这里来就为了赚点分??
失望的地方,郁闷的地方!
ptzxzc,整个就一傻子.连9楼都不如.就知道不理解不明白.难道我还要手把手教你理解?教你明白?
那我还到这里来问个屁呀?不懂就别装懂是哇? 别人还给我找几个问题出来.
你就知道跟屁!
你TMD就是个SB.TMD还说别人.
你TMD又资格说吗?
连自己的问题都说不清的人,还TMD问个毛啊!
垃圾一个,人渣一个,废物一个!