读取c:\test.txt 数据并写入及生成 c:\out.txt文本

目的: 只提取RP和RPTWIN 有数据的行.提取数据为:RP值, RPTWIN值,及EM值,并当EM状态为AB,MB,CB时候提取!黑体部分为需要提取的数据!!!

c:\test.txt 内容如下:
<exemp:rp=all,em=all;

EM DATA

RP TYPE EM EQM TWIN CNTRL PP STATE
12 RP4L1A 0 CLT-0 13 PRIM CB
12 RP4L1A 1 CLT-1 13 PRIM CB
12 RP4L1A 2 CLT-2 13 SEC CB

13 RP4L1A 0 CLT-0 12 SEC CB
13 RP4L1A 1 CLT-1 12 SEC CB
13 RP4L1A 2 CLT-2 12 PRIM CB

32 RP4L1G 0 TSM-0 33 PRIM AB
32 RP4L1G 1 TSM-0 33 PRIM AB
32 RP4L1G 2 TSM-1 33 SEC MB
32 RP4L1G 3 TSM-1 33 SEC MB
32 RP4L1G 4 TSM-1 33 SEC WO
32 RP4L1G 10 TSM-5 33 SEC MB


33 RP4L1G 0 TSM-0 32 SEC AB
33 RP4L1G 1 TSM-0 32 SEC AB
33 RP4L1G 2 TSM-1 32 PRIM MB
33 RP4L1G 3 TSM-1 32 PRIM MB
33 RP4L1G 4 TSM-1 32 PRIM WO
33 RP4L1G 10 TSM-5 32 SEC MB


384 RP4S1A 8 ETMALT- 385 PRIM MB
384 RP4S1A 10 ASDS3-5120 385 PRIM MB

385 RP4S1A 8 ETMALT- 384 SEC MB
385 RP4S1A 10 ASDS3-5120 384 SEC MB

386 RPPS1 0 MIWUTS-320&&-335 PRIM CB

387 RPG2A 0 C7ST2C-320&&-323 PRIM MB
388 RPG3A 0 C7ST2C-324&&-327 PRIM CB

生成 c:\out.txt文本内容如下:

bleme:rp=12,rpt=13,em=0;
bleme:rp=12,rpt=13,em=1;
bleme:rp=12,rpt=13,em=2;
bleme:rp=32,rpt=33,em=0;
bleme:rp=32,rpt=33,em=1;
bleme:rp=32,rpt=33,em=2;
bleme:rp=32,rpt=33,em=3;
bleme:rp=32,rpt=33,em=10;

bleme:rp=384,rpt=385,em=8;
bleme:rp=384,rpt=385,em=10;

恳请高手帮忙解决啊!!!
谢谢!!!!!

先lineinput
再循环用replace(," "," ")把多余的空格去掉
用split()把数据分割
分析得到的数组
........
没有了

Dim TextLine As String
Dim arr() As String

Open "c:\test.txt" For Input As #1 ' 打开文件。
Open "c:\out.txt" For Output As #2
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Do While Val(InStr(TextLine, " "))
TextLine = Replace(TextLine, " ", " ")
Loop
arr() = Split(TextLine)
'然后分析数组arr().如果符合要求，就把它写到文件#2中，这个不用我写了吧...
'还是写下,譬如：
'If Right(arr(7), 1) Like "B" Then
' TextLine = "bleme:rp=" & arr(1) .....
' Write #2, , TextLine
'End If
Loop
Close

很久没碰过vb了....辛苦啊..

你按F8单步执行,并添加监视arr(),TextLine等(随你喜欢),记得打开监视窗口(view菜单下的watch window),观察变量数值的变化,再想想该怎样分析.

If Right(arr(7), 1) Like "B" Then '假定七号是判断的关键.Right(arr(7), 1) Like "B" 就是arr(7)=ab,mb或cb(原数据没有其它b了)
TextLine = "bleme:rp=" & arr(1) '.....这个是生成你输出的东西,应该会吧...用 & 符号砌出来的
Write #2, , TextLine
End If

谢谢！~兄台帮忙！~我还是很模糊~，因为还有重复的行，怎么不提取呢？ 如：
32 RP4L1G 0 TSM-0 33 PRIM AB
33 RP4L1G 0 TSM-0 32 SEC AB ！这行就是重复的！
能否举个例子啊！

如生成： bleme:rp=32,rpt=33,em=0;

太感谢谢啦~~

有沒有考慮過將這個文件作爲一個 Text 的數據庫格式來存取

Microsoft Text Driver 這個驅動能很好支持文本格式的數據庫.

兄台:
提取数据是不能重复的,不然将产生这样的结果:

如: bleme:rp=32,rpt=33,em=0;
bleme:rp=33,rpt=32,em=0; 这个和上面的只是数据的位置交换了,但是一样的,属于重复啦~~如何屏蔽呢?.
能帮忙帮我做一下吗?
谢谢你!!!

[此贴子已经被作者于2006-8-23 13:56:50编辑过]