你好，經由google走進你的部落格，覺得你寫的TCL教學非常的好，讓人很快的對TCL/TK入手。在此有個問題想請教:
為何
set s "中文字abc 123 中中中文文文字字字"
puts [string trim $s "中"]

其結果是
文字abc 123 中中中文文文字字字

而不是
文字abc 123 文文文字字字

string trim的功能不是把string1左邊及右邊有包含在chars中的字元刪除嗎?

在此致上最高敬意

因為string trim在執行時，是由字串的「最右邊」及「最左邊」開始執行去除的動作，但只要遇到第一個不是要去掉的字，它就會停止目前這一邊的去除動作。

大大，請問一下：
set s "中文字abc 123 中中中文文文字字字"
puts [string trim $s "中文字"]

輸出：abc 123
abc 123的右邊為何會刪除全部"中中中文文文字定字"的字串，右邊並沒有出現"中文字"這樣子的字串丫，感謝。

我大概了解trim的用法了，不能看成是剔除"中文字"，是剔除在字串中有"中"或"文"或"字"，這三個字只要有其中之一出現就剔除該字，trim的用法不像我直觀所想的那樣，3Q，自問自答，Dai你的教學網很棒…

D大您好,您寫的tcl 教學很棒,很淺顯易懂,

但我被一個字串處理的小問題搞了好久,請教你一下

我現在要處理以下資料,這些資料是存在一個檔案裡,我現在要打

開這個檔案並且刪除不要的內容再存檔

範例如下:

r300::1300:vicc,test,liou
r400::1400:test,jackkuo,geneliou
r450::1450:jackkuo,geneliou,test
r500::1500:vicc,,hack

我現在已完成的步驟的流程

1.開檔 ok
2.找到我要刪除的字串 ok (如"test")
3.從每一行中刪除"test" not ok

我試了好久還是弄不出來,請您給我點建議.

嗯~方法滿多的一個簡單的方法像這樣:

*假設你連「,」也要去掉

set fd [open /etc/group r]
set data [string map {"test," "" ",test"} [read $fd]]
close $fd

set fd [open /etc/group w]
puts $fd $data
close $fd

Dai 你好
想請問一下字串比較的部份
我現在有一關鍵字例如ppy

set t1 Happy
set t2 New
regexp {(ppy)} $t1 match
#結果為1，因為有符合
regexp {(ppy)} $t2 match
#結果為0，因為不符合

但我把ppy存入變數
set key ppy
在比較的話就會產生錯誤
regexp {($key)} $t1 match
會讀不到key的值
如果加上中括號
regexp {([$key])} $t2 match
則只會拿k去做比較

我不知道要怎麼解決這問題
我現在再做字串搜尋的功能
麻煩Dai幫我解惑一下

是這樣子的，你可以把大括號換成雙引號，這樣子的話變數裡的值才會代換出來

regexp "($key)" $t2 match

關於變數代換的觀念你可以參考文件的第4章-命令模型。

Dai你好^^
現在成功的做出我想要的功能囉
一個小地方的提醒，讓我得到很大的成就呢~

成功啦!! 恭喜~恭喜~

Dai 您好:
請問一下，在字串取代中以你的範例來看的話
set tbl [list apple "蘋果" book "書"]
puts [string map $tbl "Apple大家吃,好book大家看"]
如果在tbl清單中，有許多變數，需要用到for迴圈寫
應該怎麼寫法呢? 剛嘗試一下寫不太出來

例如我有三個不同變數: test1 test2 test3
要分別都建在tbl裡面，而test1分別裡面又包含10個子變數，
應該怎麼寫這個程式?

Hi Peter,

不好意思~我有點看不太懂問題，你要不要寫一個實例說明test1~3的內容，然後你想要把它們變成tbl裡的哪些項目? 單數項目? 偶數項目? 都寫下來，然後我再用程式去解這個問題.

例如:

set test1 [list a 1 b 2 c 3 d 4]
set test2 [list e 5 f 6 g 7]
set test3 [list h 8 i 9]

set tbl [list {*}$test1 {*}$test2 {*}$test3]
puts [string map $tbl "abcdefghi"]

輸出會是 : 123456789

Dai 您好:
昨天已解決這個問題 !

請問一下:如果我輸入是abcde，輸出是要edcba，請問如何寫出反向輸出??

用string reverse就可以了，例如:

set v1 "abc"
puts [string reverse $v1]

這樣會輸出

cba

錯字
在9.2
"string令令" 應為 "string命令"

程式與輸出內容不同
在 字串取代
程式碼為:
001 set tbl [list apple "蘋果" book "書"]
002 puts [string map $tbl "Apple大家吃,好book大家看"]
003 puts [string map -nocase $tbl "Apple大家吃,好book大家看"]

輸出:
Apple大家吃，好書本大家看
蘋果大家吃，好書本大家看

錯誤處:
多了"本"，程式碼中只轉換成"書"

謝謝指定已修正。

在你的文章
===================
9.6 字串比對
字串比對算是比較少用的功能 <=這句話有點不好
===================
原因: (reference from "TCL Tutorial 基本語法與指令")

字串的比較儘量使用 string compare 或 string equal，例如：

if {[string compare $s1 $s2] == 0} {
# s1 and s2 are equal
}

if {[string equal $s1 $s2]} {
# s1 and s2 are equal
}

避免使用 == 來比較字串，雖然下列程式碼中，比較的兩個字串有不一樣的內容，仍會輸出 ack 的訊息，這是因為 TCL 會試圖將字串轉換為數字再進行比較，於是16進位的0xa會等於十進位的10，這可不是我們所期望的結果，因此建議儘量使用 string compare 或 string equal 來取代這種寫法：

if { “0xa” == “10”} { puts “ack” }

hi 匿名的朋友,

我遺漏這種狀況的考慮，謝謝指教~

希望你能將字串比對和"=="的差異提一下
也可以舉上面所提到的例子
讓你的文章更加完美
也是因為比較網友會看下面的討論
所以會忽略一些使用上的小地方
謝謝 ^^

Hi 匿名的朋友,

哈 ~ 不好意思!!

我想當兵讓我懶散了，立刻補上...。

Hi dai,

string first 跟 string last 可以找出第一個跟最後一個字串,
但若我想找出log中的第二個或第三個,要怎麼寫才對??
比如:
我的文件內容是:
2011/02/11
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/12
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/13
1.apple : 54 元
2.book: 120元
3.coke:20 元

以下是我寫的部份(可以找出最後一筆):
set log [send_exp_getbuf $::serial]
set Info [string range $log 0 end]
set result [string first " " $Info [string last "book:" $Info]]
set result [string range $Info $result [string first "\n" $Info $result]]

Hi,

請試試下面的程式:

set info {
2011/02/11
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/12
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/13
1.apple : 54 元
2.book: 120元
3.coke:20 元
}
set idx1 [string first "book:" $info 0]
while {$idx1 >= 0} {
set idx2 [string first " " $info $idx1]
puts [string range $info $idx1 [expr $idx2-1]]
set idx1 [string first "book:" $info $idx2]
}

Hi Dai,
謝謝,現在可以了,但我若只要第二筆資料需要改什麼?
因現在是整個資料全抓,please help me...

嗯~方法很多，其中一種像這樣:

set info {
2011/02/11
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/12
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/13
1.apple : 54 元
2.book: 120元
3.coke:20 元
}
set idx1 [string first "book:" $info 0]
set idx1 [string first "book:" $info [incr idx1]]
set idx2 [string first " " $info $idx1]
puts [string range $info $idx1 [expr $idx2-1]]

Hi dai,
因為我的set info{內容},內容會隨著每次抓取不一樣,
上面的方法可以用成陣列來寫嗎?
這樣可以讀取如第四筆或其他每一筆,而不侷限是第幾筆,
可以這樣做嗎?

hi,

你想要的功能Tcl都做得到，而且不困難~~

有問題可以隨時留言，一起討論 呵呵

Hi dai,
因為我的資料會一直抓,如果用以下範例:
set idx1 [string first "book:" $info 0]
set idx1 [string first "book:" $info [incr idx1]]
set idx2 [string first " " $info $idx1]
puts [string range $info $idx1 [expr $idx2-1]]
確實會抓第二筆,但是一開始的第二筆,
若以下資料是會抓最後一筆:
set log [send_exp_getbuf $::serial]
set Info [string range $log 0 end]
set result [string first " " $Info [string last "book:" $Info]]
set result [string range $Info $result [string first "\n" $Info $result]]
若我想要抓最後第二筆或最後第三筆,請問要怎麼改才對?要改哪裡?

Hi Dai,
因為我抓的資料會一直產生,如果用以下的會永遠抓到資料的第二筆
set idx1 [string first "book:" $info 0]
while {$idx1 >= 0} {
set idx2 [string first " " $info $idx1]
puts [string range $info $idx1 [expr $idx2-1]]
set idx1 [string first "book:" $info $idx2]
}
但如果我用以下的會抓到新的資料的最後一筆
set log [send_exp_getbuf $::serial]
set Info [string range $log 0 end]
set result [string first " " $Info [string last "book:" $Info]]
set result [string range $Info $result [string first "\n" $Info $result]]

現在的問題是我要怎麼改才會抓到新的資料的最後第二筆或最後第三筆?

看起來你的資料格式是以空白做分隔，結尾是換行。
1111 2 333 44 555 6 777 888 9 0000\n
假設你的資料為上述格式。

大概像以下這樣:
set Info "1111 2 333 44 555 6 777 888 9 0000\n"
set result [lindex [split $Info " "] end-2]
puts $result

以上，最後第二筆就end-1，最後第三筆就end-2，如果數量不夠的話result會為空字串。
不過以上的做法限制為字串間的空白只能有一個，如果有多個的話會抓錯。頭尾不能出現多餘的空白。
如果頭尾會出現多餘的空白的話可以先使用string trim先做處理，如下:
set Info "1111 2 333 44 555 6 777 888 9 0000\n"
set result [lindex [string trim [split $Info " "] " "] end-2]
puts $result

以上

不好意思 沒看上下文 XD
應該是這樣:
set Info {2011/02/11
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/12
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/13
1.apple : 54 元
2.book: 120元
3.coke:20 元
}
set index 1
set interval 4
set order 2
set result [lindex [split $Info "\n"] [expr ($index*$interval)+$order]]
puts $result
以上

Dear ,這個方法會有點問題說,若我的info是每次都不一樣會加其他的字元,
每次的位置不一定,是不是應該要過濾如取book後值??
set Info {2011/02/11
1.apple : 50 元
####--------
2.book: 100元
3.coke:15 元
2011/02/12####--------
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/13####--------
1.apple : 54 元
####--------
2.book: 120元
3.coke:20 元
}

Dear Dai,
資料會一直抓,每次抓要怎麼改才會抓到新的資料的最後第二筆或最後第三筆?
thanks.

Dear Dai,
可能是我的表達方式不好,我想要每次抓的"book後面的值",因為我會拿這些值去做其他比對,而每次資料會一大串,然後我在去過濾資料.
ps:且我想抓起每次的最後第二筆或第三筆

我用另一種方式 你試試看,我把最後3筆book找出來

set Info {2011/02/11
1.apple : 50 元
####--------
2.book: 100元
3.coke:15 元
2011/02/12####--------
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/13####--------
1.apple : 54 元
####--------
2.book: 120元
3.coke:20 元
}

set lines [lreverse [split $Info "\n"]]

set cut 0

foreach l $lines {
set idx1 [string first "book:" $l]
if {$idx1 < 0} {continue}
lassign $l b m
set books($cut) $m
if {[incr cut] &gt= 3} {break}
}

parray books

Hi Dai ,
有點狀況,執行後會顯示;
nvalid bareword "gt"
in expression "[incr cut] &gt = 3";
should be "$gt" or "{gt}" or "gt(...)" or ...
(parsing expression "[incr cut] &gt = 3")
invoked from within
"if {[incr cut] &gt = 3} {break}"
("foreach" body line 6)
invoked from within
"foreach l $lines {
set idx1 [string first "book:" $l]
if {$idx1 < 0} {continue}
lassign $l b m
set books($cut) $m
if {[incr cut] &gt = 3} {break}
}"

阿 抱歉~ 請把 &gt 換成 大於 的符號

set Info {2011/02/11
1.apple : 50 元
####--------
2.book: 100元
3.coke:15 元
2011/02/12####--------
1.apple : 50 元
2.book: 100元
3.coke:15 元
2011/02/13####--------
1.apple : 54 元
####--------
2.book: 120元
3.coke:20 元
}

set rule "book: "
for {set data ""; set index 0; set len 0} {[set index [string first $rule $Info $index]] != -1} {incr len} {
set index [expr $index+[string length $rule]]
lappend data [string range $Info $index [expr [string firs "\n" $Info $index]-1]]
}
puts "$data"
puts "共$len 筆資料."
puts "倒數第一筆:[lindex $data [expr $len-1]]"
puts "倒數第二筆:[lindex $data [expr $len-2]]"
puts "倒數第三筆:[lindex $data [expr $len-3]]"

可以自行選擇你要的資料，更改rule可以找其他條件的資料

HI Dai
你的教學讓我學到很多東西
我想請問一下
有沒有方法可以去掉一個字串裡
某兩個字元範圍的內容嗎
像是 apple123bananaorange
刪掉apple到banana範圍內容
最後想要得到orange的內容
謝謝

這樣的狀況我會用下面的程式:

puts [string rnage "apple123bananaorange" end-5 end]

如果不確定中間會有哪些字
只確定開頭跟結尾的字元呢
比如說我只確定apple和banana是固定的
但中間123是不確定的
一定要把整個字串都輸入嗎?
謝謝

嗯~ 上一個例子，不需要在意字串的內容，因為它固定是取右邊6個字

如果你需要更強的字串處理功能，Tcl也內建了regexp及regsub的命令

它們應該足夠應付大部分的字串處理

我有個問題想請教
set a "M28SPLL1024X40R2011VTES35D121BSIRLQF"
set b "M28SPLL1024X46R2011VTES35D121BSIRLQF"
set c "M28SPLL1024X5R3011VTS38D121BSIRLQF"
我想從 a 找出 1024 , 40 , 2011 , 121
我想從 b 找出 1024 , 46 , 2011 , 121
我想從 c 找出 1024 , 5 , 3011 , 121
怎樣用一同樣一段程式分別帶入a , b, c 就可以得到結果?
謝謝.

嗯 ~ 方法很多..例如:

set a "M28SPLL1024X40R2011VTES35D121BSIRLQF"
set result [regexp -all -inline {[0-9]+} $a]
puts [concat [lrange $result 1 end-2] [lindex $result end]]

謝謝您的詳細解說 讓我能快速入手
另外我有個不請之求
是否能舉例下 string match pattern ? 符合任意一個字元 的用法嗎?
因為我執行 puts [string match "?t" "t"]
結果是false 是否多說點這pattern的意思

不好意思 再問一個問題
因為我有看到 {*} 是用來split list
set af "a 2"
set {*}$af
puts $a
為什麼輸出會是2

PS.TCL版本為8.6

? : 表示符合任意單一字元
* : 表示符合任意字元(0~N個字元)

string match ? t ==> 1

{*}的意義是expand不是split

在執行 set {*}$af 的時候，直譯器會把命令先代換為 :

set {*}"a 2"

然後再展開變成:

set a 2

最後的結果就是a被設定為2

網頁改錯：
普偏→普遍

puts [string tolower "abcABC"]

程式輸出：

abcabc

因為需要計算字串出現的次數，上網找了其他人的解法提供給大家。
set message "Hi; Hi; Tcl is good. Hi"
set num [regsub -all Hi $message {} junk]
--
num = 3

謝謝分享 ~

修正了 普偏→普遍 謝謝~

板主您好：
請問有什麼方式可以把不間斷資料排列輸出？
我的資料格式如下：
25.05159774 121.57423254 25.05160454 121.57382632 25.05161836 121.57351003
希望排列成下面格式輸出：
25.05159774 121.57423254
25.05160454 121.57382632
25.05161836 121.57351003
期待您的建議

大概像這樣:
set data "25.05159774 121.57423254 25.05160454 121.57382632 25.05161836 121.57351003"
for {set i 0} {$i < [llength $data]} {incr i 2} {
puts [lrange $data $i [expr $i + 1]]
}

版主您好，小弟近日在學習tcl語言
感謝您的文章讓我獲益良多
在此提供幾個我在文章中發現到的小錯誤
以期文章能更完美地呈現

1.totitle的文字描述部分打成totile
2.puts [string tolower "abcABC"]的output打成bcabc

如有冒犯或造成不便還請見諒

已經修正了，謝謝 ~

請問大大
如何將「中文字」取代成「*」呢？
英文或數字我都可以轉換了
就剩中文字

如果不用正規表示式，大概是這樣的做法~

set str "中文及abcd"
set len [string length $str]
array set map [list]
for {set i 0} {$i < $len} {incr i} {
set c [string index $str $i]
if {$c ni [list 這邊是26個字母及數字組成的清單]} {array set map [list $c "*"]}
}
puts [string map [array get map] $str]

Hi! Dai你好
假設我的資料格式如下
A.A
12321 21231
221378 32213
B.B
439850 409385
123 34024
32233 44445
2132 655
C.C
209384 20939
1223 495
11 11

我要抓下面這段資料要怎麼做
B.B
439850 409385
123 34024

Hi! Dai你好
假設我的資料格式如下
A.A
12321 21231
221378 32213
B.B
439850 409385
123 34024
32233 44445
2132 655
C.C
209384 20939
1223 495
11 11

我要抓下面這段資料要怎麼做
B.B
439850 409385
123 34024
32233 44445
2132 655

set data {
A.A
12321 21231
221378 32213
B.B
439850 409385
123 34024
32233 44445
2132 655
C.C
209384 20939
1223 495
11 11
}

set idx1 [string first "B.B" $data]
set idx2 [string first "C.C" $data $idx1]

puts [string range $data $idx1 [expr $idx2-1]]

Hi! Dai你好
謝謝你的回覆，其實我想要寫一個key B.B 就會跑出
B.B
439850 409385
123 34024
32233 44445
2132 655
但是後面接的C.C必須要打開要被處理的檔案才會知道是不是
接的是C.C，也有可能是其他 ?.? 這種格式，
再麻煩請你幫忙指導一下~ Thanks!

Hi! Dai你好!
根據你提供的方法，我已經寫好了。
只是現在遇到另一個問題，就是如果要處理的檔案太大，
就會abort，不知道有甚麼方法可以解，謝謝!

Tcl_SetObjLength: negative length requested: -2147483646 (integer overflow?)
Abort

這是我寫的
#!/usr/bin/tclsh
puts {ex: Please input "test.db out.db keep_drc"}
gets stdin drc
set infile [open [lindex $drc 0] "r"]
set outfile [open [lindex $drc 1] "w"]

set i 2

while {![eof $infile]} {
set data [read $infile]
set drcall [regexp -all -inline {\w+\.\w+\.\w+\.*\w*} $data]
}

while {$i < [llength $drc]} {
set input [lindex $drc $i]
set end1 [lsearch $drcall $input]
set end2 [lindex $drcall [expr $end1+2]]
set idx1 [string first $input $data]
set idx2 [string first "$end2" $data $idx1]
puts $outfile [string range $data $idx1 [expr $idx2-1]]
incr i
}

close $infile

由程式片段無法看出你的意圖，若只就片面來看，假設你輸入了 "test.db out.db keep_drc"
1. 兩個while的邏輯應該有問題，因為它們都只會執行一次，即是說就算沒有寫while也不影響執行原來的功能
2. test.db的檔案內容無法推測，也有可能是因為檔案的內容產生問題，ex. test.db是一個超大的檔案，你必需要分段讀取，不可以用read一次讀入所有的檔案內容

請教一下~~~
可以在一大堆文件裡面就只挑選出特定字串 並且計算一共有幾個嗎?
舉例-->挑選出GDS這個字串

# count 為特定字串的數量
set content "OOXXGDSOXOXOXAXOXOXOXGDSOXOXOXA";
set searchitem "GDS";
set count [regsub -all $searchitem $content "" ""];