| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1048 人关注过本帖
标题:关于统计次数的问题
只看楼主 加入收藏
夜猫猫
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-5-10
收藏
 问题点数:0 回复次数:7 
关于统计次数的问题
给定一个文本(内用若干词条,但词条有重复),用程序实现统计词条的重复次数,并按照重复次数的不同,将词条分组。
附加:如果是大文本的情况下,运行时间非常长。。。请个位指点。。

附注:我尝试用了以下三种方法:
一、用ubound(split())来统计,然后存入数组
二、用replace()来统计,然后存入数组
三、用循环嵌套,然后存入数组



先谢谢了。
搜索更多相关主题的帖子: 词条 统计 文本 嵌套 附注 
2007-12-14 15:53
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
句号.逗号,顿号,空格也要考虑..体力活.

我的msn: myfend@
2007-12-14 16:03
夜猫猫
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-5-10
收藏
得分:0 
谢谢楼上朋友。
补充一下:这里的文本是经过格式化处理的。举个例子:如 a b c d e f g b c e z f l t w z c(中间都用空格分开)
2007-12-14 16:06
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
以前写的一道二级题..
二级VB题,测试文件中出现最多的字母及次数

Option Explicit
Option Base 1
Private s As String
Private Sub Command1_Click()
    Open App.Path & "\dj5.txt" For Input As #1
        s = Input$(LOF(1), #1)         '读入数据到s变量里
    Close
    Command1.Enabled = False
    Command2.Enabled = True
End Sub
Private Sub Command2_Click()
    Dim i As Long
    Dim ArrayN(26) As Integer
    Dim ArrayIndex As Integer
    Dim MaxColumn As Integer
    Dim Max As Integer
    Dim MidStringAscii As Integer
    Dim MidString As String
    Dim UcaseString As String
   
    UcaseString = UCase(s)          '转换成大写,方便判断它的Ascii码
    For i = 1 To Len(UcaseString)
        MidString = Mid(UcaseString, i, 1)
        MidStringAscii = Asc(MidString)        '得到这个字符的Ascii码
        If (MidStringAscii >= Asc("A") And MidStringAscii <= Asc("Z")) Then
            '保证这个字符是26个字母,因为不用判断逗号,感叹号!这些
            ArrayIndex = MidStringAscii - Asc("A") + 1      '得到下标
            ArrayN(ArrayIndex) = ArrayN(ArrayIndex) + 1
        End If
    Next
   
    Max = ArrayN(1)
    MaxColumn = 1
    For i = 2 To 26
        If (ArrayN(i) > Max) Then
            Max = ArrayN(i)
            MaxColumn = i
        End If
    Next
   
    Text1.Text = CStr(Chr(MaxColumn + Asc("A") - 1))
    Text2.Text = CStr(ArrayN(MaxColumn))
End Sub

我的msn: myfend@
2007-12-14 16:13
夜猫猫
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-5-10
收藏
得分:0 
谢谢版主回答,不过这个方法在处理大文本下肯定会更慢。如果大文本中带有的不全是字母,或是字串,或是数字,该方法的灵活性就不太好了。。

烦请大家继续指点。。
不必给出代码,提些思路就好。。。。
2007-12-14 18:10
ytsm0526
Rank: 2
来 自:西安市
等 级:论坛游民
威 望:2
帖 子:203
专家分:60
注 册:2007-10-28
收藏
得分:0 
还得脑子活啊

作舍道边,三年不成。
多抽出一分钟时间学习,让你的生命更加精彩!,
2007-12-14 21:28
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
我总觉得我种明显的算法题还是用C语言,做数据结构比较好一点,VB也可以做,就是不够快

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2007-12-15 12:45
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 
[url]http://www.[/url]
参照下这个看看吧! 第32期 高频词的提取,感觉类似!

[[italic] 本帖最后由 心中有剑 于 2007-12-17 13:34 编辑 [/italic]]

2007-12-17 13:30
快速回复:关于统计次数的问题
数据加载中...
 
   



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

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