| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1000 人关注过本帖
标题:大家近来看看该怎么做!!
只看楼主 加入收藏
XOoo
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-8-21
收藏
得分:0 

位置不同了还能叫重复麽?!.......算了....这些数据都表示什么意思?
不过如果我都写出来了,你还用编麽?不如你参考一下9楼的方法(声明:我不懂).
至于我的方法,你可以先选出有用的arr() (譬如把有用的arr()放到一个2维数组arr2(n,2)中),再逐个比较选出的数组,把"重复"的删掉,最后才输出文件.

the end

2006-08-23 22:26
samichang
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-8-22
收藏
得分:0 

我想到一个方法就是从每行中取三组连续字符分别放到rp,rpt, em ,三个自符变量中,如区10~13, 16~18,20~24,不知道该用什么语句做啊!~请高手指教!!

2006-08-25 08:21
XOoo
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-8-21
收藏
得分:0 

看不懂你的想法....介绍个论坛

http://www.vbgood.com/vbf.good?sid=kgZzSD

2006-08-25 12:13
samichang
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-8-22
收藏
得分:0 

Dim aaa(100, 6), ccc(100) As String
Private Sub Command1_Click()
k = 0
FILE_NAME = App.Path & "/test.txt"
Open FILE_NAME For Input As #1
Do While Not EOF(1)
Line Input #1, org_txt
If k >= 1 And Trim(org_txt) <> "" Then
BK = BK + 1
ccc(BK) = Trim(org_txt)
End If
If Left(Trim(org_txt), 2) = "RP" Then k = 1
Loop
Close #1

For i = 1 To BK
sss = ccc(i)
Do While InStr(sss, " ") <> 0
sss = Replace(sss, " ", " ")
Loop
ccc(i) = sss
Next i

For i = 1 To BK
ppp = Split(ccc(i), " ")
For j = 0 To UBound(ppp)
aaa(i, j) = ppp(j)
Next j
Next i

FILE_NAME = App.Path & "/out.txt"
Open FILE_NAME For Append As #1
For i = 1 To BK
If aaa(i, 6) = "AB" Or aaa(i, 6) = "MB" Or aaa(i, 6) = "CB" Then
Print #1, "bleme:rp=" & aaa(i, 0) & ",rpt=" & aaa(i, 4) & ",em=" & aaa(i, 2)
End If
Next i
Close #1

End Sub


RESULT: 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=13,rpt=12,em=0
bleme:rp=13,rpt=12,em=1
bleme:rp=13,rpt=12,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=33,rpt=32,em=0
bleme:rp=33,rpt=32,em=1
bleme:rp=33,rpt=32,em=2
bleme:rp=33,rpt=32,em=3
bleme:rp=33,rpt=32,em=10
bleme:rp=384,rpt=385,em=8
bleme:rp=384,rpt=385,em=10
bleme:rp=385,rpt=384,em=8
bleme:rp=385,rpt=384,em=10


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
但有个问题:输出文件中相关的都有重复啊,怎么把重复的屏蔽掉,可以通过删除重复的或在重复的前面加“!” 也可以,因为最终我要把OUT.TXT 再传到机器里运行,而机器是基于C语言的所以在前面加“!”的行不执行!~ 请高手再赐教一下如何实现啊?
也就是最终输出结果为:
RESULT: 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;

或:如下
RESULT: 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=13,rpt=12,em=0;
!bleme:rp=13,rpt=12,em=1;
!bleme:rp=13,rpt=12,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=33,rpt=32,em=0;
!bleme:rp=33,rpt=32,em=1;
!bleme:rp=33,rpt=32,em=2;
!bleme:rp=33,rpt=32,em=3;
!bleme:rp=33,rpt=32,em=10;
bleme:rp=384,rpt=385,em=8;
bleme:rp=384,rpt=385,em=10;
!bleme:rp=385,rpt=384,em=8;
!bleme:rp=385,rpt=384,em=10;
有高手赐教一下啊!!

2006-08-26 08:49
快速回复:大家近来看看该怎么做!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034880 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved