vb.net数组截取 vbnet 数组

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)

End If

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

Loop

Button1.Enabled = True

End Sub

代码通过测试。

相关问答

Q1: Vb.net 字符串截取

｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务。

如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具，网上有大量代码，或参阅微软在线帮助。这里就不贴了。

Q2: VB.net2010按指定字符截取字符串

Dim str0 As String, idx As Long, str1 As String, str2 As String

str0 = "122012312｝R4561_456}7894321}1234123123}"

idx = str0.IndexOf("}")

Do While idx = 0

str1 = str0.Substring(0, idx)

str2 = str0.Substring(idx + 1)

'在文本框中添加显示str1、str2,代码略

str0 = str2

idx = str0.IndexOf("}")

Loop

Q3: vb如何分别截取指定字符之前和之后的内容？

方法和详细的操作步骤如下：

1、第一步，删除字符串C两端的空格，见下图，转到下面的步骤。

2、第二步，完成上述步骤后，截取C的最左边的n个字符，见下图，转到下面的步骤。

3、第三步，完成上述步骤后，截取C的最右侧n个字符，见下图，转到下面的步骤。

4、第四步，完成上述步骤后，从C中的第m个字符截取n个字符，见下图，转到下面的步骤。

5、第五步，

完成上述步骤后，返回C中包含的字符数，汉字中的空格算作一个字符，见下图，转到下面的步骤。

6、第六步，

完成上述步骤后，将C中的大写字母变为小写字母，见下图，转到下面的步骤。

7、第七步，完成上述步骤后，将C中的小写字母转换为大写字母，见下图。这样，就解决了这个问题了。

vb.net数组截取的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet 数组、vb.net数组截取的信息别忘了在本站进行查找喔。