You are here

line 마지막의 특수문자 삭제 방법

창피해서 혼자 이것저것 해보다 안되어 문의드립니다.

AA.BB.CC.DD ==> AA/BB/CC 로 만들고 있습니다.

set FileRead [open "file" r]
set temp [open "temp.txt" w+]
while {[eof $FileRead] != 1} {
gets $FileRead lineInfo
regsub -- {[^.]+$} $lineInfo {} lineInfo
regsub -all \\. $lineInfo \/ lineInfo
=============================================> AA/BB/CC/ 이거까지 만들었는데.
regexp -nocase {\/$} $lineInfo $stack ==> 마지막 /$를 선택해서 선택만 지울수가 없네요.

puts $temp $lineInfo
}
close $temp

도움을 부탁드립니다.