| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2774 人关注过本帖
标题:请问怎么把字符串数据放到数组
只看楼主 加入收藏
shuangcelia
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2016-4-20
收藏
 问题点数:0 回复次数:4 
请问怎么把字符串数据放到数组
请问一下,现在buffer里面接收了22 33 56 68这样的字符串数据,我现在想把他放到一个datatemp()数组里面,怎么用vb编程实现呀?就是怎么把字符串数据放到数组里面,非常感谢
搜索更多相关主题的帖子: 字符串 
2016-04-20 19:22
陌上过客
Rank: 2
等 级:论坛游民
威 望:4
帖 子:36
专家分:25
注 册:2015-12-27
收藏
得分:0 
你可以选择把数组设置为字符串属性,dim datatemp()as string,或者变体属性也是可以的

你成了我用尽一生去纪念的过客。。。。
2016-05-11 10:25
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4943
专家分:30067
注 册:2008-10-15
收藏
得分:0 
datatemp=split(buffer," ")        '按空格把 buffer 分解成一个数组,放到 datatemp 是,下标是从0开始。

授人于鱼,不如授人于渔
早已停用QQ了
2016-05-11 10:47
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
程序代码:
'这种方法可以检测多位结构相同的数据,如果结构不同,你可以适当修改就可以了
Dim I As Integer, SS As String, X As Integer, Y As Integer, AA(1 To 20) As String, BB(1 To 20) As Integer   '二个数组的下标可以根据需要修改即可
SS = "22 33 56 68"
X = Len(SS)
For I = 1 To X Step 3   '根据这个SS特定的数据结构可以这样,数据结构不同,不能这样
If InStr(I, SS, " ", 1) > 0 Then
Y = Y + 1
BB(Y) = InStr(I, SS, " ", 1)
AA(Y) = Left(SS, BB(Y) - 1)
End If
Next I
If BB(Y + 1) = 0 Then BB(Y + 1) = X
If AA(Y + 1) = "" Then AA(Y + 1) = SS
For I = 1 To Y + 1
If I = 1 Then AA(I) = AA(I)
If I > 1 Then AA(I) = Right(AA(I), BB(I) - BB(I - 1))
Next I
'现在在数组AA中已经存储了这些被提取的数据,你可以使用数组的数据了。


还有一个更简单的方法:
程序代码:
Dim SS As String, AA, X As Integer
SS = "22 33 56 68"
AA = Split(SS, " ", -1, 1)   '使用 Split 函数分组
X = UBound(AA)
For I = 0 To X
Text1.Text = Text1.Text & AA(I) & Space(3)
Next I

直接可以将字符串分配到数组中,在 Text1 中显示出来,你可以使用这些数组的数据了。


[此贴子已经被作者于2016-5-11 13:44编辑过]


请不要选我!!!
2016-05-11 12:43
hjxlj
Rank: 10Rank: 10Rank: 10
来 自:江西
等 级:贵宾
威 望:14
帖 子:292
专家分:1519
注 册:2013-6-25
收藏
得分:0 
放到什么类型的数组里面?楼主这个都尚未说清楚,楼上各位就一窝蜂地出谋划策,实在令人啼笑皆非。

本人QQ:775420425
2016-05-11 14:12
快速回复:请问怎么把字符串数据放到数组
数据加载中...
 
   



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

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