TCL - split-string von beliebige Anzahl von Leerzeichen, um eine Liste

Sagen, ich habe einen string wie diesen:

set str "AAA    B C     DFG 142               56"

Nun möchte ich eine Liste wie folgt:

{AAA B C DFG 142 56}

Dass ich verwenden möchten, split-Funktion, aber in diesem Fall bekomme ich einige zusätzliche leere Listen {}. Wie kann ich die Liste oben?

InformationsquelleAutor Narek | 2011-04-20
  1. 13
    set text "Some arbitrary text which might include \$ or {"
set wordList [regexp -inline -all -- {\S+} $text]

    Sehen: Aufteilen einer Zeichenkette In Wörter.

    • Wow, ich wusste nicht regexp zurückkehren könnte eine Liste. Hätte ich dies getan, das ist fast so gut [split [regsub { {2,}} $string " "] " "]. Die regsub ersetzt alle Sequenzen von Leerzeichen der Länge 2 oder mehr mit einem einzigen Raum, der dann die teilt auf, die.
    • set wordList [regexp -inline -all -- {\S+} $text] hier was bedeutet "--" bedeuten?
    • Narek, die -- kennzeichnet das Ende der switches.
    • Das ist notwendig, falls der reguläre Ausdruck beginnt mit einem " - " - Zeichen, plus es ist einfach eine gute Angewohnheit, in zu erhalten (für diese und viele Tcl-Befehle, wo der erste nicht-switch-argument kann vielleicht Benutzer-input: file delete -- $file, switch -exact -- $word, ...)
    • BTW finden Sie unter stackoverflow.com/questions/3369458/... und hume.com/html84/mann/regexp.html für -alle-und -inline-flags.
    InformationsquelleAutor ba__friend
  2. 6

    Können Sie Folgendes tun:

    set str "AAA    B C     DFG 142               56"
set newStr [join $str " "]

    Es wird Folgendes ausgegeben:

    {AAA B C DFG 142 56}
    • Warum funktioniert es? Ich weiß join - Erstellen Sie eine Zeichenfolge durch Zusammenfügen-Liste, die Elemente, aber Ihr output ist eine Liste? und Ihre Eingabe nicht in eine Liste... Es ist seltsam...
    • String, Liste, es ist alles das gleiche (technisch gesehen). Die Ausgabe, die gegeben wurde, kann problemlos aufgeteilt werden in separate Liste von Elementen, etc. Sie möchten, dass Ihre Ausgabe in eine Liste obwohl, nicht wahr?
    • Dies funktioniert, weil die Eingabe kann analysiert werden, wie eine gültige Liste. Hatte die Eingabe war "AAA }B C DFG 142 56", es würde scheitern, weil das kann nicht analysiert werden, wie eine Liste.
    InformationsquelleAutor Scott
  3. 4

    Den textutil::split Modul aus tcllib hat eine splitx proc, das genau das tut, was Sie wollen

    package require textutil::split
set result [textutil::split::splitx $str]
    InformationsquelleAutor glenn jackman
  4. 1

    Als von Tcl 8.5, auch die folgenden Werke: 

    list {*}$str

    (sofern der string ist auch eine richtige Liste, wie in der Frage). Die Ausgabe der gewünschten Liste.

    Dokumentation:
    Liste,
    {*} (syntax)

    InformationsquelleAutor Peter Lewerin
Schreibe einen Kommentar