Question

VB字符串从指定字符串分割

一个很简单的问题.但是我不会 - -~请大神们帮忙！

如下字符串:
123456----hdahdkahd----2013.1.1

要求把hdahdkahd 单独分割出来 显示到文本框里面!查看答案
等答案 谢谢哦！

Answer 1

可以参考下面的代码：

Private Sub Command1_Click()

Dim s As String

s = "123456----hdahdkahd----2013.1.1"

Dim a

a = Split(s, "----")

If IsArray(a) Then

Text1.Text = a(1)

End If

End Sub

扩展资料：

语法

Split(expression[, delimiter[, count[, compare]]])

Split函数部分语法：

expression必需的，包含子字符串和分隔符的字符串表达式。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。

参考资料来源：百度百科-split函数

Answer 2

亲 ， 用Split函数 分割字符串得到数组

Private Sub Command1_Click()

    Dim s As String

    s = "123456----hdahdkahd----2013.1.1"

    Dim a

    a = Split(s, "----")

    If IsArray(a) Then

        Text1.Text = a(1)

    End If

End Sub

Answer 3

楼主对其中字符串格式没有描述，所以无法作答。下面我仅以某种情况为例，写个示例代码：
dim S as string
dim xa as long, xb as long
S="123456----hdahdkahd----2013.1.1"
S=replace(s,"----","-")
xa=instr(s,"-")+1
xb=instr(xa,s,"-")-xa
Text1=mid(s,xa,xb)
手机打字就是很难受，上面代码若有拼写错误，改下好了。

Answer 4

Private Sub Command1_Click()
Dim s As String
Dim st As String
Dim i, l As Integer
s = "123123-123-sdfsdfsdfs--2342342"
st = ""
l = Len(s)
For i = 1 To l
If 97 < Asc(Mid(s, i, 1)) And Asc(Mid(s, i, 1)) < 122 Then
st = st & Mid(s, i, 1)
End If
Next i
Text1.Text = st
End Sub
要分啊 呵呵

Answer 5

x=split("123456----hdahdkahd----2013.1.1","----")
Text1.Text=x(1)