You are here

아래 Array 질문 올린 사람입니다. 제 코드도 올립니다. 아무쪼록 도움 부탁드립니다.

set file1 [open "C:/usr/home/dongyo/data.txt" r] #뭐이건 나중에 그냥 다시 바꿔주면 되니까요, 나중에 pass뛰우면 되니까.
set str [gets $file1]

set testREQ " Copy Rate"
set testIN " IN source"
set testOUT " IN dest"
set keeplooking 0

foreach line [split [read $file1] "\n"] {
set MatchREQ [string match *$testREQ* $line]
set MatchIN [string match *$testIN* $line]
set MatchOUT [string match *$testOUT* $line]
set i 0
set MaxT 0

if {$MatchIN} {
set DvIN [string index [lindex $line 5] 0]
continue
}
if {$MatchOUT} {
set DvOUT [string index [lindex $line 5] 0]
continue
}
if {$MatchREQ} {
set time [lindex $line 5]
set ary($i) "$DvIN and $DvOUT and $time "
puts " $ary($i)"
incr i
set keeplooking 1
continue
}
if {$keeplooking == 0} {
continue
}
set keeplooking 1
}

close $file1

갑이 이렇게 산출 되는데
b and d and 119.880394
d and c and 2884.544380
b and d and 522.152530
d and c and 2894.704543
b and d and 119.880394
d and c and 2884.544380
b and d and 522.152530
d and c and 2894.704543

저는 나오는 숫자들을 한개씩 해서 array 를 늘리려고 하는데
이거 왜 자꾸 모든 숫자 들이 array에 한꺼번에 들어갑니다.

예를 들어서,
ary(0)에는 단 하나만, 집어 넣으려고 하는데
다들어가서 비교가 불가능하게 되버립니다.
출력 되는 데로 차례대로 집어 넣어서

나중에 array안에 있는것을 추출해서,
비교 하려고 하는데 쉽지가 않습니다.
예를 들어서, 저의 생각은 저렇게 자료를 어레이에 집어 넣은 후에
차례 대로 그 안의 맞는 짝에 맞는 것을 비교해서 b and d 는 band d끼리 d and c 는 d and c 끼리,
나중에는 제일 큰 숫자만 출력하고 어떤 쪽인지만 하려고 하는데

일주일동안 생각해 봤는데
혼자서 책을 보고 하면 될줄아았는데 여기서 막히네요.

조언 부탁드립니다.

첨부 파일파일 크기
Plain text icon data.txt222.89 KB