Vérifiez si la chaîne contient un fragment dans Tcl

J'ai un ensemble de mots, par exemple, {6-31G*, 6-311G*, 6-31++G*, 6-311++G**}. Comme vous pouvez le voir, la commune fragment est "6-31". Ce que je dois faire en Tcl, maintenant, est de vérifier si la chaîne de sous $variable contient ce fragment. Je sais que je pourrais le faire avec une expression régulière comme ceci:

if {[regexp {^6-31} $variable]} {
  puts "You provided Pople-style basis set"
}

mais quelle autre solution pourrais-je l'utiliser (juste par curiosité)?

OriginalL'auteur user2300369 | 2016-12-09

  1. 11

    Juste pour vérifier si une chaîne contient une sous-chaîne particulière, je ne l'utiliserais chaîne

    set substring "6-31"
if {[string first $substring $variable] != -1} {
    puts "\"$substring\" found in \"$variable\""
}

    Vous pouvez également utiliser glob-correspondance avec string match ou switch

    switch -glob -- $variable {
    *$substring* {puts "found"}
    default      {puts "not found"}
}

    OriginalL'auteur glenn jackman