Làm cách nào để cắt chuỗi con khỏi chuỗi trong tcl

Question

Tôi có chuỗi như NYMEX UTBPI. Ở đây tôi muốn lấy chỉ mục của khoảng trắng ở giữa NYMEX và UTBPI và sau đó từ chỉ mục đó đến chỉ mục cuối cùng tôi muốn cắt chuỗi con. Trong trường hợp này chuỗi con của tôi sẽ UTBPI Tôi đang sử dụng dưới đây

set part1 [substr $line [string index $line " "] [string index $line end-1]] 

Tôi nhận được dưới đây lỗi.

wrong # args: should be "string index string charIndex" 
    while executing 
"string index $line " 
    ("foreach" body line 2) 
    invoked from within 
"foreach line $pollerName { 
set part1 [substr $line [string index $line ] [string index $line end-1]] 
puts $part1 
puts $line 
}" 
    (file "Config.tcl" line 9)

Bạn có thể cho tôi ý tưởng về cách tôi có thể thực hiện một số thao tác chuỗi khác không. Bất kỳ liên kết tốt cho việc này.

Answer 1

Tôi chỉ sẽ sử dụng string range và vượt qua nó chỉ số của khoảng trắng (mà bạn có thể tìm thấy bằng chuỗi đầu tiên hoặc bất cứ điều gì).

% set s "NYMEX UTBPI" 
NYMEX UTBPI 
% string range $s 6 end 
UTBPI 

Hoặc sử dụng chuỗi đầu tiên để tự động tìm các khoảng trắng:

% set output [string range $s [expr {[string first " " $s] + 1}] end] 
UTBPI 

Answer 2

Tôi nghĩ rằng, cách tốt nhất để làm điều đó trong Tcl, là:

set s "NYMEX UTBPI" 
regexp -indices " " $s index; 
puts [lindex $index 0] 

chỉ số biến sẽ chứa chỉ mục đầu tiên và cuối cùng của mẫu phù hợp của bạn. Ở đây, như bạn đang tìm kiếm char duy nhất, đầu tiên và cuối cùng sẽ giống nhau, vì vậy bạn có thể sử dụng

puts [lindex $index 0] 

hoặc

puts [lindex $index 1] 

Mọi chi tiết, đây là doc chính thức: http://www.tcl.tk/man/tcl8.5/TclCmd/regexp.htm#M7

Answer 3

Nếu thời gian xử lý không phải là một vấn đề, chia nó thành một danh sách và đưa các yếu tố thứ 2:

set part1 [lindex [split $line] 1] 

Nếu chuỗi có thể có một số tùy ý các từ ngữ,

set new [join [lrange [split $line] 1 end]] 

Tuy nhiên, tôi muốn sử dụng gợi ý Donal và gắn bó với string hoạt động.