vb.net按行拆分 vba按行拆分

vb.net怎么按行读取数据到二维数组中，以空格分隔数据格式 -48.437500 0.000000 -0.000011 0.000011

用split函数

dim a()

a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a

得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定

大概就这样，你自己试试吧

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

代码通过测试。

VB.NET 字串用换行分割

假设你要分割的字符串是string1的话

分割代码就是：

dim s as string=strings.split(string1,vbcrlf)

这样s就是一个阵列了。s(0)是第一段内容，s(1)是第二段内容，以此类推。~~

googles8 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。

VB.NET分别提取文本框里的每一行

Public Class Form1

Dim i As Long = -1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

On Error Resume Next

Dim a() As String

i = i + 1

If i TextBox1.Lines.GetUpperBound(0) Then i = 0

a = TextBox1.Lines(i).ToString.Split(";")

TextBox2.Text = a(0)

TextBox3.Text = a(1)

End Sub

望采纳~

关于vb.net按行拆分和vba按行拆分的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。