一个关于字符串的函数
现在有若干个字符串
Axxx
Bxxx
Cxxx
Bxxx
Dxxx
....
特征是第一个字符都是A~G之间组成,我现在想根据某str的内容,按其第一个字母给int x赋值
A: x=1
B: x=2
C: x=3
...
G: x=7
现在知道string sFirst=mid(str,1,1)可以得到字符串的第一个字母,后面不知道该如何按照sFirst来给x赋值,不知道除了一串if else的方法外有没有简单点的函数。
谢谢!
[解决办法]
Dim sFirst As String
Dim snum As Integer
sFirst = Mid(Text1.Text, 1, 1)
Select Case Asc(sFirst)
Case 65
Label1.Caption = "1 "
snum = 1
Case 66
Label1.Caption = "2 "
snum = 2
Case 67
Label1.Caption = "3 "
snum = 3
Case 68
Label1.Caption = "4 "
snum = 4
Case 69
Label1.Caption = "5 "
snum = 5
Case 70
Label1.Caption = "6 "
snum = 6
Case 71
Label1.Caption = "7 "
snum = 7
End Select
[解决办法]
x= sFirst - 64
[解决办法]
x= Asc(sFirst) - 64
[解决办法]
其实也不需要得到第一个字符
直接
asc(str)-64
[解决办法]
m = Asc(sFirst) - 64