数据切片VB.net

vb.net的split函数问题

Split只能处理一个字符作为分隔符,你这种情况得自己手工处理, 不能使用Split.

可以这样写:

s = data.Trim.Split(CChar("|"))

s(0) = s(0).Replace("file","")

VB.net每种数据类型特点?

Vb.net 怎样将split分割的字符串放进数组

有些文本中的换行符不一定是vbCrLf,也有可能是vbCr或vbLf,你可以这样试试：

a = split(textbox1.text, vbcr)

或

a = split(textbox1.text, vblf)

在vb.net中怎样将字符串用split分割,赋值数组,并赋值给变量变量（如图）

Dim b() As String

b() = Split(list1.text, " ")

text1.text = b(0)

是这样用的

不能赋值给具体的数组元素

vb.net 怎么把数组分成若干份

不需要用数组：

假设已经存在的图片文件存放在 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)

MyFileName = UCase(Dir()) ' 查找下一项

Loop

Button1.Enabled = True

End Sub

代码通过测试.

vb.net 分割字符串

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 '只有一个"/"

Else '不含"/"或是空串

Return Nothing

End Function

基本上不出错了

以上就是土嘎嘎小编为大家整理的数据切片VB.net相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！