Я новичок в Tcl. Есть строка "entry_rows_chunk2022vol34i9mn.txt", и я хочу вывести только её числа в виде "2022 34 9" Как это сделать?
Заранее спасибо
I am a beginer with Tcl. My string is "entry_rows_chunk2022vol34i9mn.txt", and I only want its numbers printed as "2022 34 9" What is the way to do this?
Thanks beforehand
Попробуйте примерно так... Идея в том, чтобы с помощью regsub command заменить все нечисловые символы пробелами:
set inputLine "entry_rows_chunk2022vol34i9mn.txt"
regsub -all -nocase {[._a-z]} $inputLine { } digitsText
lassign $digitsText firstNum nextNum lastNum
puts "result = $firstNum $nextNum $lastNum"
# result = 2022 34 9С regexp command это, вероятно, было бы проще, но этот способ я пока не разобрал.
Документация: regsub (https://www.tcl.tk/man/tcl/TclCmd/regsub.html), lassign (https://www.tcl.tk/man/tcl/TclCmd/lassign.html) и regexp (https://www.tcl.tk/man/tcl/TclCmd/regexp.html) (если захотите попробовать)
Try something like this... The approach is to use regsub command to swap every nonnumeric character for a space:
set inputLine "entry_rows_chunk2022vol34i9mn.txt"
regsub -all -nocase {[._a-z]} $inputLine { } digitsText
lassign $digitsText firstNum nextNum lastNum
puts "result = $firstNum $nextNum $lastNum"
# result = 2022 34 9Using regexp command would probably be simpler, but I haven't worked that out yet.
References: regsub (https://www.tcl.tk/man/tcl/TclCmd/regsub.html), lassign (https://www.tcl.tk/man/tcl/TclCmd/lassign.html) and regexp (https://www.tcl.tk/man/tcl/TclCmd/regexp.html) (if you'd like to try)
У меня нет старой версии Tcl для проверки, но попробуйте такой вариант:
set matches [regexp -all -inline {\d+} $entryText]
puts [join $matches]I don't have an older Tcl version for testing, but give this a try:
set matches [regexp -all -inline {\d+} $entryText]
puts [join $matches]В файле strings.xml у меня хранится SQL-запрос, и я пытаюсь построить итоговую строку в коде через String.Format. Запрос SELE…
Впервые делаю библиотеку на F# При использовании string.Format получаю сообщение, что такой функции не существует. Я что-то д…
В tcl я пытаюсь разделить Reports/Report#2.rpt и оставить только Report#2.rpt ; попробовал такой способ, но при выполнении он…
