vb求助 ，关于文件读写

toosimple

有一个文本文件，里面有若干行数据，每行的数据个数不定，每个数据用空格分开，两个数据之间的空格个数不定（至少为一个空格），文件如下所示：

源文件

1.5  2.6  30 2.3 12 0.3  20   0.9

10  0.3    20   0.9

我想把这个源文件的内容读出，然后写入另一个目标文件，在目标文件的每一行开头加上这行的数据个数，目标文件如下：

目标文件

8      1.5  2.6  30 2.3 12 0.3  20   0.9

4   10  0.3    20   0.9

请各位高手帮忙啊，谢谢了先

 

wyj7485

文件操作:

Dim MyVar

Open "文件名称(包含路径)" For Input As #1
Do While Not EOF(1)
Input #1, MyStr

...................

Loop
Close 1#

这是一个我写的分离含有不等空格字段程序,可以参考:

Function SplitSpace(MainStr As String, Pos As Integer) As String '分离含有不等空格字段程序
Dim L, i, j, n, k
Dim StrVal(0 To 10000) As Variant
Dim MyStr As String
n = 1: j = 0: i = 0
MyStr = " "

L = Len(MainStr)
While i < L
k = InStr(n, MainStr, " ")
If k = 0 Then k = L + 1
MyStr = Mid(MainStr, n, k - n)
n = InStr(n, MainStr, " ")

If MyStr = "" Then
n = n + 1
i = i + 1
Else
j = j + 1
i = i + Len(MyStr)
StrVal(j) = MyStr
End If

Wend

SplitSpace = StrVal(Pos)
End Function

tjdxtm

用Split，用空格分开，查看分开后的数组个数，就是你要添加的“数据个数”，然后在重新写文件，保存。很简单的。