VB问题--读取字符串中特定位置

VB问题--读取字符串中特定位置,第1张

非常简单给你代码 跟我刚才写的稍做了下修改可以显示所有"/"后面的数字,你参考一下吧,

Dim n1() As String, n2 As String, st1 As String

st1 = "/25/12/98/20/36/58/65"

n1 = Split(st1, "/")

n2 = n1(5) '//将第5个"/"后面的数存到n2中

Print "共有 " & UBound(n1) & " 个""/"" 第5个""/""后面的数是 " & n2

For i = 1 To UBound(n1)

Print "第" & i & "个""/""后面的数是 " & n1(i)

Next i

可使用Split函数来实现截取路径最后一个"a"后的字符。

Split函数,返回一个下标从零开始的一维数组,它包含指定数目的子字符串

具体代码如下:

Private Sub Form_Click()

Dim ljStr As String

ljStr = "C:\Program Files\Microsoft Visual Studio\VB98\ado"

DebugPrint Split(ljStr, "\")(UBound(Split(ljStr, "\")))

End Sub

用函数instr

它是返回一个字符串在另一个字符串中最先出现的位置

格式为instr([start,]string1,string2)

比如InStr(1, A,B)表示在字符串A中,从位置1开始,返回最先出现字符串B的位置···

private sub text1_change()

dim a as string

dim b as string

a=label1caption

b=ucase(text1text)

pos=instr(a,b)

label4caption=b & "" & pos

end sub

ucase会变成大写

处于选中状态:

text1set focus

text1selstart=0

text1sellength=len(text1text)

Private Sub Command1_Click()

Dim a, i

a = Split(Text1Text, vbCrLf & vbCrLf)

For i = LBound(a) To UBound(a)

If Left$(a(i), 2) = "1组" Then

Text2Text = IIf(Len(Text2Text) = 0, a(i), Text2Text & vbCrLf & vbCrLf & a(i))

End If

Next i

End Sub

以上就是关于VB问题--读取字符串中特定位置全部的内容,包括:VB问题--读取字符串中特定位置、vb 获取最后一个"a"字符所在位置、VB里怎样获得一个字符在整行文本中的位置等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9599923.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-30
下一篇 2023-04-30

发表评论

登录后才能评论

评论列表(0条)

保存