| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 701 人关注过本帖, 1 人收藏
标题:一个棘手的问题。请高手指点
只看楼主 加入收藏
ctps
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-8-14
收藏(1)
 问题点数:0 回复次数:7 
一个棘手的问题。请高手指点
现在有一个LIST控件,里面有N个字符串,现在又有很大的一个数组,存有大量字符串, 如何快速判断这些字符串是否是这个LIST控件中有的,如果这个LIST字符串中没有这个字符串,就把数组中这个字符串给剔除掉。有没有比较好的方法?不要遍历,因为那样太慢。。呵呵
搜索更多相关主题的帖子: 棘手 问题 
2010-01-02 21:49
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
那就用hash吧!~
2010-01-03 00:18
ctps
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-8-14
收藏
得分:0 
回复 2楼 bczgvip
哈希?用在这儿?如何用?
顶起
2010-01-07 18:25
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
vb 用哈希 那才叫麻烦。当我米说过吧。
自己做个例子工程发出来,那样或许懒人们会动动肩膀。

也可以试试看速度怎么样吧,例子:
Private Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

dim s$
s = "abcdefg"
SendMessage list1.hwnd,LB_FINDSTRING , -1, byval s
'在 list1 里找字符串 ‘abcdefg’
2010-01-07 18:37
freeforever
Rank: 4
等 级:业余侠客
威 望:3
帖 子:368
专家分:201
注 册:2005-11-2
收藏
得分:0 
回复 4楼 bczgvip
看不懂,请解释一下,谢谢

其实我也很无聊!
2010-01-20 14:49
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
程序代码:
Option Explicit
Private Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
    Dim i&
    For i = Asc("A") To Asc("Z")
        List1.AddItem Chr$(i)
    Next
    For i = 1 To 500
        List1.AddItem i
    Next
    Text1.Text = vbNullString
End Sub

Private Sub Text1_Change()
    Dim s$, i&
    s$ = Text1.Text
    i& = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal s)
    Debug.Print i&, s$
    If i > 0 Then
        List1.ListIndex = i&
    End If
End Sub
2010-01-22 09:06
freeforever
Rank: 4
等 级:业余侠客
威 望:3
帖 子:368
专家分:201
注 册:2005-11-2
收藏
得分:0 
神了,第一次见这样用,谢谢

其实我也很无聊!
2010-01-22 10:03
xlin1033xl
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:160
专家分:129
注 册:2007-6-24
收藏
得分:0 
很不错的用法,顶一下

-------------程序*酒*人生
2010-01-29 12:42
快速回复:一个棘手的问题。请高手指点
数据加载中...
 
   



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

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