UC知道VB字符串分段
来源：百度知道 编辑：UC知道 时间：2024/07/06 14:17:13
现在我有一串代表IP的字符串例如123.233.78.8（随便举例的一个IP）在文本框Text1中，如何把各个字段的IP提取出来？即最后把结果123，233，78，8四个值赋给四个变量ip1,ip2,ip3,ip4?请将核心的获取代码告诉我。
注意：IP长度虽然不超过三个，但是每一段的长度是可变的，这是我无法解决的地方。
50分，应该不算少吧，即使没有关键代码，也可以简单说说方法，先谢谢各位了
我自己解决了，大家费心了，把分数给第12位回复的人吧，我喜欢12
Dim IPSeg() As String
IPSeg = Split("123.233.78.8", ".")
For i = 0 To 3
MsgBox IPSeg(i)
Next i
注意：IP长度虽然不超过三个，但是每一段的长度是可变的，这是我无法解决的地方。
50分，应该不算少吧，即使没有关键代码，也可以简单说说方法，先谢谢各位了
我自己解决了，大家费心了，把分数给第12位回复的人吧，我喜欢12
Dim IPSeg() As String
IPSeg = Split("123.233.78.8", ".")
For i = 0 To 3
MsgBox IPSeg(i)
Next i
dim s() as string
's = split("123.233.78.8", ".")
s = split(Text1.text, ".")
ip1=s(0)
ip2=s(1)
ip3=s(2)
ip4=s(3)
其实很简单的，你先想想怎样把text1.text中的
字符全部赋值给一个变量如：zf。再用
for i=1 to len(text1.text)
dzf=mid（zf,i,1）
if asc(dzf)=46 then t=t+1 '46是"."的asc码
ip(t)=ip(t) & dzf
next i
基本思想就是把zf单个验证。如果遇到"."就使t=t+1存进下个ip。