永发信息网

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有问题请追问,满意请采纳!
全部回答
  • 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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯