[已解决]不规则空格替换为2个空格，盼版主回复

oob111

文本文件c:\1.txt
从头有两行数据
11111 2222 3333  0   0.001  1 2
33331 2222 0000  102   0.101  1 2
每行有7个数据
1：先是能否作为7个变量读出来
2：如果不好读出来，请把7个变量中间的空格改为规则的2个空格再读出来，谢谢
1.rar (122 Bytes, 下载次数: 5)

2013-10-25 10:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sliang28

2013-10-25 14:27

oob111 发表于 2013-10-25 13:51
可以另存到数组arr(1 to 2,1 to 7)，方便使用，然后输出到c:\2.txt

写入时每个数据间间隔两个空格

跳转到最佳答案楼层

danio112

什么叫七个变量读出来

oob111

y1=11111,y2=2222呀

danio112

用excel打开它，自动分列，然后再读取

上清宫主

放进数组吧。
办法多多：按行读入后，正则、split、循环……都成，甚至用分列

oob111

求上清给个正解

silenthunter

Private Sub test1()
Dim Str As String, Arry
Str = "11111 2222 3333  0   0.001  1 2"
'用正则表达式来分割每个字符段，保证中间无论有多少空格都不会影响判断。
With CreateObject("vbscript.regexp")
   .Global = True
   .Pattern = "\s+"
   Str = .Replace(Str, "*")
End With
Arry = Split(Str, "*") '产生一维数组变量。
End Sub

oob111

sliang28

数据读出来放在那里?
怎么放?

oob111

可以另存到数组arr(1 to 2,1 to 7)，方便使用