vb 中获取某个字符的个数

VB6的代码：

创新互联公司是一家专业提供长白企业网站建设,专注与网站建设、成都网站建设、H5页面制作、小程序制作等业务。10年已为长白众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

Dim s As String

Dim Need as string '需要找的字符

Dim i as integer,Count as integer

s="abc.def.gh.i.gkl.mn"

Need = "."

Count = 0

For i=1 To Len(s)

if Mid(s,i,1)=Need then Count=Count+1

Next

Print Count

VB2005的代码:

Dim s As String = "abc.def.gh.i.gkl.mn"

Dim Need as string ="." '需要找的字符

Dim i ,Count as integer

For i=0 To s.length-1

if Mid(s,i,1)=Need then Count += 1

Next

Console.WriteLine(count)

(假设Option Strict为Off)

看了2楼的代码，思路很好的

不过Split函数要对多个字符串拆分赋值

还要用Preserve重新定义数组

在s过长时操作十分占用CPU

而如果字符串含有Unicode字符则不能用Byte数组处理

所以使用Mid函数（或.net的SubString函数）速度比较快

如果不限使用版本的话

VB2005中新增数据类型Char则是最好选择

Char类型的数组代替String操作起来快很多倍

vb.net 如何实现输出一串字符串中的所有字符以及每个字符的出现次数？

使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。

Private Sub Command1_Click()

s = InputBox("请输入一个英文字符串：")

Dim a(128) As Integer

For i = 1 To Len(s)

t = Asc(Mid(s, i, 1))

a(t) = a(t) + 1

Next i

For i = 1 To 127

If a(i) 0 Then Print Chr(i); ":"; a(i)

Next i

End Sub

VB.net有什么函数能统计“汉字、全角字符”这些占用两个字节的数量？

VB使用Unicode编码，任何字符（包括半角的字母、数字、符号及全角的汉字、符号等）都是占用两个字节的。

Len() 函数返回字符串的字符个数（要注意，一个汉字也是算作一个字符的）

比如： Len("百度baidu")的返回值为7

LenB() 函数返回字符串的占用字节数

比如： LenB("百度baidu")的返回值为14

VB下统计字符串中所含某字符的个数

首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1

Private Sub Command1_Click()

Dim ii As Integer, Ccount As Integer 

For ii = 1 To Len(Text1)

If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1

Next ii 

Label1.Caption = "共有"  Count  "个e"

End Sub

扩展资料：

字符串函数（String processing function）也叫字符串处理函数，指的是编程语言中用来进行字符串处理的函数，如C，pascal，Visual以及LotusScript中进行字符串拷贝，计算长度，字符查找等的函数。

Visual Basic

定位函数

InStr,InStrRev,InStrB

截取函数

Mid,Right,Left

替换函数

Replace

分割函数

Split

格式化输出

Format

比较函数

StrComp,Like

长度计算

Len,LenB

编码转换

StrConv

大小写转换

LCase,UCase

重复产生

String,Space

参考资料来源：百度百科-字符串函数

VB.NET中，如何得到文本框中字符个数?

兄弟呀这个这么简单 用这个语法吧 MsgBox(TextBox1.Text.Length)‘就是用消息窗口显示几个字符

网站题目：vb.net获取字符个数,vb中截取特定的字符串
文章链接：http://hbruida.cn/article/dssiced.html