Tcl — Струны

#!/usr/bin/tclsh

puts "Hello\tWorld\n\nTutorialspoint";

Когда приведенный выше код компилируется и выполняется, он дает следующий результат —

Hello   World

Tutorialspoint

Строковая команда

Список подкоманд для строковых команд приведен в следующей таблице:

сравнить строку1 строку2

Сравнивает строку1 и строку2 лексографически. Возвращает 0, если равно, -1, если строка1 предшествует строке2, иначе 1.

первая строка1 строка2

Возвращает индекс первого появления строки1 в строке2. Если не найден, возвращает -1.

индексная строка

Возвращает символ по индексу.

последняя строка1 строка2

Возвращает индекс последнего вхождения string1 в string2. Если не найден, возвращает -1.

длина строки

Возвращает длину строки.

строка соответствия шаблона

Возвращает 1, если строка соответствует шаблону.

строка диапазона index1 index2

Вернуть диапазон символов в строке от index1 до index2.

гирлянда

Возвращает строчную строку.

струна тупер

Возвращает заглавную строку.

обрезать строку?

Удаляет триммерные символы в обоих концах строки. Триммерными символами по умолчанию является пробел.

триммерная строка?

Удаляет символы в левом начале строки. Триммерными символами по умолчанию является пробел.

аккуратная строка?

Удаляет триммерные символы в левом конце строки. Триммерными символами по умолчанию является пробел.

индекс поиска строки

Возвращает индекс в строке поиска символа после слова, содержащего символ в индексе.

поиск слов

Возвращает индекс в строке поиска первого символа в слове, содержащем символ в индексе.

Примеры некоторых часто используемых подкоманд Tcl string приведены ниже.

Сравнение строк

Live Demo

#!/usr/bin/tclsh

set s1 "Hello"
set s2 "World"
set s3 "World"
puts [string compare s1 s2]
if {[string compare s2 s3] == 0} {
   puts "String \'s1\' and \'s2\' are same."; 
} 

if {[string compare s1 s2] == -1} {
   puts "String \'s1\' comes before \'s2\'.";
}

if {[string compare s2 s1] == 1} {
   puts "String \'s2\' comes after \'s1\'.";
}

-1
String 's1' comes before 's2'.
String 's2' comes after 's1'.

#!/usr/bin/tclsh

set s1 "Hello World"
set s2 "o"
puts "First occurrence of $s2 in s1"
puts [string first $s2 $s1]
puts "Character at index 0 in s1"
puts [string index $s1 0]
puts "Last occurrence of $s2 in s1"
puts [string last $s2 $s1]
puts "Word end index in s1"
puts [string wordend $s1 20]
puts "Word start index in s1"
puts [string wordstart $s1 20]

First occurrence of o in s1
4
Character at index 0 in s1
H
Last occurrence of o in s1
7
Word end index in s1
11
Word start index in s1
6

#!/usr/bin/tclsh

set s1 "Hello World"
puts "Length of string s1"
puts [string length $s1]

Length of string s1
11

#!/usr/bin/tclsh

set s1 "Hello World"
puts "Uppercase string of s1"
puts [string toupper $s1]
puts "Lowercase string of s1"
puts [string tolower $s1]

Uppercase string of s1
HELLO WORLD
Lowercase string of s1
hello world

#!/usr/bin/tclsh

set s1 "Hello World"
set s2 "World"
puts "Trim right $s2 in $s1"
puts [string trimright $s1 $s2]

set s2 "Hello"
puts "Trim left $s2 in $s1"
puts [string trimleft $s1 $s2]

set s1 " Hello World "
set s2 " "
puts "Trim characters s1 on both sides of s2"
puts [string trim $s1 $s2]

Trim right World in Hello World
Hello 
Trim left Hello in Hello World
 World
Trim characters s1 on both sides of s2
Hello World

#!/usr/bin/tclsh

set s1 "test@test.com" 
set s2 "*@*.com"
puts "Matching pattern s2 in s1"
puts [string match "*@*.com" $s1 ]
puts "Matching pattern tcl in s1"
puts [string match {tcl} $s1]

Matching pattern s2 in s1
1
Matching pattern tcl in s1
0

#!/usr/bin/tclsh

set s1 "Hello" 
append s1 " World"
puts $s1

Hello World

#!/usr/bin/tclsh

puts [format "%f" 43.5]
puts [format "%e" 43.5]
puts [format "%d %s" 4 tuts]
puts [format "%s" "Tcl Language"]
puts [format "%x" 40]

43.500000
4.350000e+01
4 tuts
Tcl Language
28

#!/usr/bin/tclsh

puts [scan "90" {%[0-9]} m]
puts [scan "abc" {%[a-z]} m]
puts [scan "abc" {%[A-Z]} m]
puts [scan "ABC" {%[A-Z]} m]