VB textbox中字符判断出现次数并按多至少排列
VB textbox中字符判断出现次数并按多至少排列
新建一个vb窗体
加入两个textbox 分别是text1和text2
加入一个Command1
如果在text1中输入如下数据
王小虎 李小冰 林小明 王小虎 李小冰 林小明
王小虎 王小虎 杨东
点击Command1时
text2对text1输入的字符进行判断出现次数并按多至少排列
text2内容如下显示
出现4次:王小虎 '换行
出现2次:李小冰 林小明 '换行
出现1次:杨东
应该如何写代码呢.?
将文本读入一个字符串，用split函数会返回一个字符串数组，这样就把名字分开了。然后用Dictionary对象以名字做为键，次数做为值就可以很方便的统计出每个姓名出现的次数
可以麻烦提供下代码让我学习下吗?
Text1放入原文
VB code:
Private Sub Command1_Click()
Dim StrSS$, s$(), i&, j&, n&, Pass%, StrS$
ReDim ss$(1, 0)
StrSS = Replace(Form1.Text1.Text, vbCrLf, Space(1))
s = Split(StrSS, Space(1))
For i = 0 To UBound(s)
Pass = 0
If Trim(s(i)) <> "" Then
For j = 0 To UBound(ss, 2)
If ss(0, j) = Trim(s(i)) Then Pass = 1: ss(1, j) = Val(ss(1, j)) + 1: Exit For
Next j
If Pass = 0 Then
ReDim Preserve ss(1, n)
ss(0, n) = Trim(s(i)): ss(1, n) = 1: n = n
相关问答：
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
