通过四种方法查找字符A

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

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

 

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

 

 

1.Split分割

 

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

结果：1

 

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

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

结果：1

 

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

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

结果：1

 

 

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

1.         ''利用Mid函数一一比对
2.         Dim AString As String = "ABCDEFG"
3.         Dim CString As String = ""
4.         Dim ACounts As Integer = 0
5.         Dim iCount As Integer = 1
6.         While (iCount <= AString.Length)
7.             CString = Mid(AString, iCount, 1)
8.             If String.Compare(CString, "A") = 0 Then
9.                 '也可以写成:If CString="A" Then
10.                 ACounts += 1
11.             End If
12.             iCount += 1
13.         End While
14.         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中出现的次数