我想请教一下如何截取字符串中的部分字符

发布网友

共2个回答

热心网友

提供VB6.0处理此类问题的思路，用Split函数将字符串返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

具体代码如下：

Option Explicit
    Dim hq_str_sh600600 As String
    Dim strsj() As String
    Dim i As Long

Private Sub Command1_Click()
    strsj = Split(hq_str_sh600600, ",")
    For i = 0 To UBound(strsj)
        Print strsj(i)
    Next
End Sub

Private Sub Form_Load()
    hq_str_sh600600 = "青岛啤酒,31.910,31.990,32.270,32.750,31.390,32.230,32.250,3731708,119766521.000,800,32.230,300,32.220,2000,32.210,1900,32.200,1000,32.110,31,32.250,400,32.290,11800,32.300,8600,32.320,11700,32.330,2017-02-03,15:00:00,00"
End Sub

其中strsj(1)即是所想取得的字符串。

追问那怎么让他显示在文本框里呢
text1=strsj(1) 么

追答使用代码:
Text1.Text = strsj(1)

来自：求助得到的回答

热心网友

你这个就是字符串中的第二个值呗?
先用Split方法, 以逗号为分隔号, 将字符串断成一个字符串数组, 然后取下标为1的那个字符串, 再使用类型转换把他转换成float或者double就行了

全部栏目

我想请教一下 如何截取字符串中的部分字符

我想请教一下如何截取字符串中的部分字符