62,268
社区成员
发帖
与我相关
我的任务
分享
Dim a As String = "34.55,56.78,78.99"
Dim strarray As String()
strarray = a.Split(",")
Dim intI As Integer
Dim length As Integer = strarray.Length
Dim b(length) As Double
If strarray.Length > 0 Then
For intI = 0 To strarray.Length - 1
b(intI) = Convert.ToDouble(strarray(intI))
Next
End If
Dim a As String = Session(“aa”).ToString()
Dim b As Double()
Dim strarray As String()
strarray = a.split("double字符串分隔符")
Dim intI As integer;
If strarray.length > 0 Then
b = new Double(strarray.length)
For intI = 0 To strarray.length - 1
Double(intI) = Convert.ToDouble(strarray(intI))
next
End If