| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 384 人关注过本帖, 1 人收藏
标题:[原创]Split函数分割文本总结+VB二级考试方法【分割文本】
取消只看楼主 加入收藏
tonoy
Rank: 2
等 级:论坛游民
帖 子:24
专家分:72
注 册:2013-8-25
收藏(1)
 问题点数:0 回复次数:0 
[原创]Split函数分割文本总结+VB二级考试方法【分割文本】
程序代码:
Private Sub Command1_Click()
Dim i As Integer
Dim a() As String
q = "a b c b d"
a = Split(q, , -1)
For i = 0 To UBound(a)
List1.AddItem a(i) '可换为print a(i) 这里用一个list控件
Next i
End Sub
给新手学习分割文本 下面使用二级VB考试文本分割example

--------------------------------------------------------------
程序代码:
Private Sub Command1_Click()
Dim S1 As String, S2 As String
Dim I1 As Integer '
S1 = "a b c d e f g"
I1 = 1

 Do
  Do While Mid(S1, I1, 1) <> " " And I1 <= Len(S1)
  S2 = S2 & Mid(S1, I1, 1)
  I1 = I1 + 1
  Loop

 List1.AddItem S2

 S2 = ""

 I1 = I1 + 1

 Loop While I1 <= Len(S1)
End Sub
这例程是考试内容 不允许用split

给新手 多支持
搜索更多相关主题的帖子: color 
2013-08-25 18:06
快速回复:[原创]Split函数分割文本总结+VB二级考试方法【分割文本】
数据加载中...
 
   



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

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