dim Buff as stringopen "xxx.txt" for binary as #1 buff=string(lof(1),chr(0)) get #1,,buff close #1BUFF里就是你要的内容了不过前提是文件大小小于50M
每个文件绝对小于50m, 但是这个buff再怎么区分里面每一项呢?
dim FileNa() as string dim b() as string redim b(0) open "xxx.txt" for binary as #1 while not eof(1) ReDim b(UBound(b)) line input #1,b(UBound(b)) get #1,,= Split(b(UBound(b)-1) , " ") wend close #1这个方法不是怎么对的,你看着改吧,又不知道你要做什么把数据放到那里去。
Dim strFileLine as String Dim strTemp as String Dim strTempLine as String Open "c:\tt.txt" For Input As #13 Do While Not EOF(13) Line Input #13, strFileLine strTempLine = strFileLine '处理的时候可以用得到第一行第一个数据 strTemp = Left(strFileLine, InStr(1, strFileLine, vbTab) - Len(vbTab)) '剩余字串 strTempLine= Right(strTempLine, Len(strTempLine) - InStr(1, strTempLine, vbTab)) '一次类推 Loop Close #13
3 10 22 10 27 0 6 662 1 2.670 -0.510 254.440 17.400
0.92 -2.55 0.60 0.60 0.00 0.00 0.00 0.00 2.51 2.58 2.65 2.49
0.00 0.00 0.00 0.00 0.00
30000.0000000 30000.0000000 -32768 -32768 0.0
0.0 0.0 0.0 0.0 5.0 0.0 10.0 0.29 2.09
50 cm BT dB 0.44 0.331
0.29 132.31 78.38 129.6 26.6 -4.5 20.2 111.0 112.3 115.0 111.0 100 0.00
0.44 128.97 64.17 116.1 56.2 -5.6 35.9 110.2 113.3 115.9 112.4 100 0.00
0.59 140.05 61.69 123.3 66.4 -13.2 28.1 111.2 113.4 117.4 111.7 100 0.00
0.74 138.95 69.32 130.0 49.1 -15.6 36.5 107.0 107.4 115.7 113.1 100 0.00
0.89 155.93 71.32 147.7 50.0 1.6 5.2 101.8 101.4 113.2 110.1 100 0.00
1.04 151.92 87.64 151.8 6.2 -0.9 -3.3 100.2 95.3 106.7 102.3 100 0.00
1.19 133.59 64.53 120.6 57.5 -3.8 -33.8 97.6 98.9 99.8 98.1 100 0.00
1.34 148.23 65.44 134.8 61.6 -9.8 -5.8 96.9 94.7 99.1 95.5 100 0.00
1.49 135.93 75.62 131.7 33.8 -8.1 -33.8 95.7 93.9 99.6 95.2 100 0.00
1.64 153.79 85.76 153.4 11.4 -0.7 50.0 94.0 91.8 97.5 94.9 100 0.00
1.79 176.22 81.71 174.4 25.4 -7.7 -8.7 93.3 92.0 96.8 95.9 100 0.00
1.94 149.75 90.65 149.7 -1.7 -8.2 -27.6 92.3 92.3 96.7 94.5 100 0.00
2.09 135.19 106.87 129.4 -39.2 -2.8 -11.3 94.3 92.5 96.9 94.7 100 0.00
2.24 113.80 88.48 113.8 3.0 -8.2 17.3 94.5 91.0 97.1 94.0 100 2147483647
2.39 -32768 -32768 -32768 -32768 -32768 -32768 120.5 94.2 96.4 118.7 0 2147483647
2.54 -32768 -32768 -32768 -32768 -32768 -32768 255 255 123.2 255 0 2147483647
2.69 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
2.84 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
2.99 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
3.14 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
3.29 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
3.44 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
3.59 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
3.74 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
3.89 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
4.04 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
4.19 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
4.34 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
4.49 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
4.64 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
4.79 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
4.94 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
5.09 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
5.24 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
5.39 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
5.54 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
5.69 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
5.84 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
5.99 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
6.14 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
6.29 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
6.44 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
6.59 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
6.74 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
6.89 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
7.04 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
7.19 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
7.34 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
7.49 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
7.64 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647
buff=string(lof(1),chr(0))
get #1,,buff
close #1BUFF里就是你要的内容了不过前提是文件大小小于50M
但是这个buff再怎么区分里面每一项呢?
dim b() as string
redim b(0)
open "xxx.txt" for binary as #1
while not eof(1)
ReDim b(UBound(b))
line input #1,b(UBound(b))
get #1,,= Split(b(UBound(b)-1) , " ")
wend
close #1这个方法不是怎么对的,你看着改吧,又不知道你要做什么把数据放到那里去。
Dim strTemp as String
Dim strTempLine as String
Open "c:\tt.txt" For Input As #13
Do While Not EOF(13)
Line Input #13, strFileLine
strTempLine = strFileLine
'处理的时候可以用得到第一行第一个数据
strTemp = Left(strFileLine, InStr(1, strFileLine, vbTab) - Len(vbTab))
'剩余字串
strTempLine= Right(strTempLine, Len(strTempLine) - InStr(1, strTempLine, vbTab))
'一次类推
Loop
Close #13