13518219792
Split只能处理一个字符作为分隔符,你这种情况得自己手工处理, 不能使用Split.
成都创新互联是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发，网站制作，网站设计，网站模板，微信公众号开发，软件开发，小程序开发，十余年建站对成都VR全景等多个领域，拥有丰富的网站运维经验。
可以这样写:
s = data.Trim.Split(CChar("|"))
s(0) = s(0).Replace("file","")
VB.NET数据类型VB.NET中有12种不同的数据类型，可以分成三类：数值类型、文本类型和混合类型。数值类型是VB.NET数据类型的主要类型，共7种。数值类型的数据类型见下表。 数据类型表示方式取 值 范 围说 明整型Integer–2147483648～2147483647用于表示简单整数字节型Byte0～255用于简单算术运算。由于这个类型的变量可以在一个字节中存储，所以运算速度最快短整型Short–32768～32767是整型的一种形式，相对表示范围较小长整型Long–9223372036854775808～9223372036854775807是整型的一种形式，相对表示范围较大单精
度型Single–3.402823E38～–1.401298E-45(对于负数)和1.401298E-45～3.402823E38(对于正数)用于存放单精度浮点数双精
度型Double–1.79869313486232E308～–4.94065645841247E-324(对于负数)和4.94065645841247E-324～1.79869313486232E308(对于正数)用于存放双精度浮点数小数Decimal当小数位为0的时候，为–79228162514264337593543950335～
79228162514264337593543950335；当小数位为28的时候，为–7.9228162514264337593543950335～
7.9228162514264337593543950335常用于存储货币值 数值类型的数据类型 用于存放文本的数据类型有两个。文本类型的VB.NET数据类型见下表。 数 据 类 型表 示 方 式说 明字符串型String用于存放任何形式的字符串，包括一个字符或者多行字符字符型Char用于存放一个字符，它以0～65535之间数字的形式存储文本类型的数据类型 其中需要说明的是： (1) 对于String类型，可以存放任何形式的字符串，它可以是纯粹的文本，也可以是文本和数字的组合或者是数字、日期等。例如"This is a book. "和"12345"都是字符串。对于字符串类型的数据，可以进行相关的字符串操作，例如连接、截断等。 (2) 对于Char类型，可以存储的只是一个字符，注意，这个字符的存储编码必需是一个数字。在计算机系统中，可以显示很多符号(不仅仅是英文字母)，为了能够正确地显示，国际上有通用的标准(例如Unicode编码)，为每个字符设定了一个标准的数值来表示这个字符。其余的数据类型还有：Date数据类型、布尔数据类型和Object数据类型，其说明见下表。 数 据 类 型表 示 方 式说 明日期型Date必须用mm/dd/yyyy的格式表示，也可以存储时间(可以存储00:00:00～23:59:59之间的任何时间)布尔型Boolean取值为True和False对象型Object 其他数据类型 其中需要说明的是：在VB.NET中，对于Boolean类型的数据，当需要把布尔类型的值转换为数值类型的时候，会把True当成1来处理，把False当作0来处理。当需要把VB.NET数值类型的值转换为布尔类型的时候，会把0转换为False，而把其他的非0数值转换为True。
有些文本中的换行符不一定是vbCrLf，也有可能是vbCr或vbLf，你可以这样试试：
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)
Dim b() As String
b() = Split(list1.text, " ")
text1.text = b(0)
text2.text = b(1)
是这样用的
不能赋值给具体的数组元素
不需要用数组：
假设已经存在的图片文件存放在 C：\图片 文件夹里，并假设新创建的文件夹位于C：\图片 文件夹里。
在窗体上添加一个按钮，代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Long = -1
Dim P As Long = -1
Dim Pn As String
Dim MyNum As Integer = 100 '每100个文件存放在一个文件夹里
Dim MyPath As String
Dim MyFileName As String
Button1.Enabled = False
MyPath = "C:\图片\" '指定已有图片的路径
MyFileName = UCase(Dir(MyPath, FileAttribute.Normal)) ' 找寻第一项。
Do While MyFileName "" ' 开始循环。
If InStr(MyFileName, "JPG") 0 Or InStr(MyFileName, "GIF") 0 Or InStr(MyFileName, "PNG") 0 Then
n = n + 1
If n \ MyNum P Then
P = P + 1
Pn = CStr(n \ MyNum + 1)
MkDir(MyPath Pn)
End If
FileCopy(MyPath MyFileName, MyPath Pn "\" MyFileName)
End If
MyFileName = UCase(Dir()) ' 查找下一项
Loop
Button1.Enabled = True
End Sub
代码通过测试。
Function a(s As String) As String
Dim i = s.IndexOf("/")
If i 0 Then
Return s.Substring(0, i)
ElseIf i = 0 Then '第一个字符为"/"
If s.LastIndexOf("/") 0 Then '不只一个"/"
Return s.Substring(0, s.Substring(1).IndexOf("/") + 1)
Else
Return Nothing '只有一个"/"
End If
Else '不含"/"或是空串
Return Nothing
End If
End Function
基本上不出错了
