我将要读的文件如下跟下面类似:
11 12 13 14 15 16 17 18 19
21 22 23 23 25 26 27 28 29
** ** ** ** ** ** ** ** **
我怎么依次读出文件中的数?我是从C中转过来的新手。对VB不熟悉。请GGJJ们帮帮忙.
11 12 13 14 15 16 17 18 19
21 22 23 23 25 26 27 28 29
** ** ** ** ** ** ** ** **
我怎么依次读出文件中的数?我是从C中转过来的新手。对VB不熟悉。请GGJJ们帮帮忙.
解决方案 »
- MDIForm窗体两个form 怎么相互激活Form_Activate
- 问一个关于显示image字段的图片的小问题
- 急...我先用vb编程做了程序的主窗体,但我现在又做了一个登录窗体,当我运行程序时首先出现的是程序主窗体,但我想首先出现登录窗体.
- VB移动无标题窗体问题
- 请教vb如何给一堆文件打包、压缩,然后在解压!程序如何写
- 在网上下载一个新的VB控件,怎么用呀?能不能帮一下?(高分相送)
- 软件注册问题!解决者给分!急!急!急!急!急!急!急!急!
- GDI高手进来哦
- 我该怎样操作才能发行我的软件?
- 如何将ACCESS数据库中的数据永久删除?用代码,分不多,但很简单呀
- 转换WAV文件的声道,如何实现?
- 数字音乐编写
split()函数读入数组就可以了
可以给个例子吗?
再用split以空格分割字符串就行了
Split函数
描述返回一个下标从零开始的一维数组,它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分:部分 描述
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串(""),Split则返回一个空数组,即没有元素和数据的数组。
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略,则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串,则返回的数组仅包含一个元素,即完整的 expression字符串。
count 可选的。要返回的子字符串数,–1表示返回所有的子字符串。
compare 可选的。数字值,表示判别子字符串时使用的比较方式。关于其值,请参阅“设置值”部分。
设置值compare参数的设置值如下:常数 值 描述
vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文字比较。
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。
Dim strTemp As String, arrRet() As Variant, i As Long
i = 0
'读取文件
Open "C:\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, strTemp
strTemp = Replace(strTemp, Space(1), vbTab)
ReDim Preserve arrRet(i)
arrRet(i) = Split(strTemp, vbTab)
i = i + 1
Wend
Close #1
Dim j As Long
'打印结果
For i = 0 To UBound(arrRet)
strTemp = ""
For j = 0 To UBound(arrRet(i))
strTemp = strTemp & " " & arrRet(i)(j)
Next j
Debug.Print strTemp
Next
End Sub