非常简单给你代码 跟我刚才写的稍做了下修改可以显示所有"/"后面的数字,你参考一下吧,
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里怎样获得一个字符在整行文本中的位置等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)