System.String类中定义的主要方法及其功能

String的常用方法/属性 说明
Clone 对象的复制
Compare 字符串比较
Concat 字符串连接
Copy 把字符串对象复制到另一个对象上
StartWith 测试开始字符串
EndsWith 测试结尾字符串
Equals 比较字符串是否相等
Format 格式化字符串
Insert/Remove 插入/删除字符
Replace 替换指定字符
substring 获取子串
IndexOf 特定字符在字符串中的位置
Length 字符串长度

我在以下的例子中将利用到上述表中的部分函数，大家也可以练习一下。

1.Split分割

Dim AString As String = "ABCDEFG" '定义一个字符串类型的变量AString，初始值为ABCDEFG
Dim array() As String '定义一个字符串类型的数组array
Dim ACounts As Integer '定义一个整数类型的变量ACounts，用于存放A的数量
Array = AString .Split("A") '利用Split函数分割
ACounts = UBound(array) '得到数组上限即可得到A的数量
Label1.Text = ACounts '输出A的数量
结果：1

2.利用String类的查找方法IndexOf

Dim AString As String = "ABCDEFG"
Dim ACounts As Integer = 0
While AString.IndexOf("A") >= 0
'利用while语句查找AString中是否有A，如果大于等于0，则表示有
'如果小于0则表示没有
ACounts += 1
'删掉已经找到的字符A
AString = AString.Remove(AString.IndexOf("A"), 1)
End While
Label1.Text = ACounts
结果：1

3.依次验证字符串中的每一个字符串是否是A字符

Dim AString As String = "ABCDEFG"
Dim CString As String = ""
Dim iCount As Integer = 0
Dim ACounts As Integer = 0
While (iCount <= AString.Length - 1) '遍历AString，一一比对
CString = AString.Substring(iCount, 1) '子字符串
'如果字符串相等，compare函数返回值为0
If String.Compare(CString, "A") = 0 Then '比较是否为A，如果是，ACounts加1
ACounts += 1 'A 字符个数加1
End If
iCount += 1
End While
Label1.Text = ACounts
结果：1

4.利用Mid函数依次获取字符串中的每个字符，并验证其是否是字符A

''利用Mid函数一一比对
Dim AString As String = "ABCDEFG"
Dim CString As String = ""
Dim ACounts As Integer = 0
Dim iCount As Integer = 1
While (iCount <= AString.Length)
CString = Mid(AString, iCount, 1)
If String.Compare(CString, "A") = 0 Then
'也可以写成:If CString="A" Then
ACounts += 1
End If
iCount += 1
End While
Label1.Text = ACounts
结果：1

解释：

本例借助String 类中定义的各种函数，采用四种方法在字符串Astring中查找字符A，并统计字符A在字符串AString中的出现次数。方法一是利用String类的Split函数，以字符A为分割符，将字符串AString 划分为一个字符串数组，统计数组的元素的个数即可知道字符A的出现次数。方法二是使用String类的 IndexOf函数查找字符串中字符A出现的位置，如果找到字符A，则使用Remove方法将字符A从原字符串中删除。方法三是循环调用String类的Compare函数，依次验证原字符串中所有的字符，并统计字符A出现的次数，循环次数由字符串AString的长度(Length)确认。方法四是使用VB6.0中定义的MID函数，依次验证A在AStirng中出现的次数。