vb.net怎么提取字符串?
答案:3 悬赏:60 手机版
解决时间 2021-04-13 15:46
- 提问者网友:战皆罪
- 2021-04-13 12:31
比如有一个Label显示的是"12345"怎么提取它的左边两位数,右边两位数,中间一位数?并转化为可以计算的数字。
最佳答案
- 五星知识达人网友:天凉才是好个秋
- 2021-04-13 13:46
在VB中是这样的,没学过VB.net,你变换一下就可以了
按你说的,用用Left,Right和Mid
Option Explicit
Private Sub Command1_Click()
Dim Num(2)
Num(0) = Val(Left(Label1.Caption, 2))
Num(1) = Val(Mid(Label1.Caption, 3, 1))
Num(2) = Val(Right(Label1.Caption, 2))
MsgBox "Num(0)=" & Num(0) & vbCrLf & "Num(1)=" & Num(1) & vbCrLf & "Num(2)=" & Num(2)
'如果想测试是不是可以计算,可以用这一句
'MsgBox "Num(0)+1=" & Num(0) + 1 & vbCrLf & "Num(1)+1=" & Num(1) + 1 & vbCrLf & "Num(2)+1=" & Num(2) + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "12345"
End Sub有问题请追问,满意请采纳!
按你说的,用用Left,Right和Mid
Option Explicit
Private Sub Command1_Click()
Dim Num(2)
Num(0) = Val(Left(Label1.Caption, 2))
Num(1) = Val(Mid(Label1.Caption, 3, 1))
Num(2) = Val(Right(Label1.Caption, 2))
MsgBox "Num(0)=" & Num(0) & vbCrLf & "Num(1)=" & Num(1) & vbCrLf & "Num(2)=" & Num(2)
'如果想测试是不是可以计算,可以用这一句
'MsgBox "Num(0)+1=" & Num(0) + 1 & vbCrLf & "Num(1)+1=" & Num(1) + 1 & vbCrLf & "Num(2)+1=" & Num(2) + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "12345"
End Sub有问题请追问,满意请采纳!
全部回答
- 1楼网友:三千妖杀
- 2021-04-13 15:32
vb.net规定如果要比较字符串,不能用“=”,strcomp(str1,str2,n)或者string.compare(str1,str2)
例如:
dim a as string = "c"
dim b as string = "c"
dim n as integer = string.compare(a, b)
if n = 0 then
msgbox("=")
else
msgbox("<>")
end if
- 2楼网友:春色三分
- 2021-04-13 14:48
substring和MID函数都可以用于字符串截取,IsNumeric可以判断字符串是否是数字
Dim a As String = "12345"
MsgBox(a.Substring(0, 2))
MsgBox(a.Substring(2, 1))
MsgBox(a.Substring(3))
If IsNumeric(a.Substring(0, 2)) Then
'是数字
Else
'不是数字
End If
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯