Datei Lesen, schreiben und Anhängen in TCL

In TCL, wie man anfügen, verschiedene Inhalte in einer einzigen Datei mit der for Schleife oder foreach Schleife?

  • Was meinst du mit "verschiedenen Inhalt"?
InformationsquelleAutor galvin Verghese | 2011-04-11
  1. 22

    Meinst du sowas?

    set fo [open file a]
foreach different_content {"text 1" "text two" "something else" "some content"} {
  puts $fo $different_content
}
close $fo

    Öffnen Sie die Datei file im Modus a (append) und schreiben Sie den file-descriptor ($fo im Beispiel).

    Update: Wenn Sie Anhängen möchten, variable Inhalte, Sie müssen das Skript ändern zu:

    set fo [open file a]
foreach different_content [list $data1 $data2 $data3 $data4] {
  puts $fo $different_content
}
close $fo
    • danke für die schnelle Antwort.
    • ich habe ja meine Liebe, der seine arbeiten fine, thank u so viel............
    • ok gut. Aber ich habe noch ein problem. Das problem ist, dass nehme an, wenn ich erkläre das so: set data1 "connect / as sysdba;\n" set data2 {spool $TMP/"DBTEST"_dbmode.txt} set data3 "\nWählen Sie einen OPEN_MODE, NAME, CONTROLFILE_TYPE AUS V\$DATABASE;\n" und so weiter.... Wenn ich schreiben möchte in einer Datei, so, wie kann ich ersetzen die data1,data2 ..... Werte. Genau das, was ich will, ich will den $data1 Wert im foreach-Schleife, die so, wie soll ich tun, Bitte helft mir.. set data4 "spool off;\n"
    • Ich bin nicht voll sicher, ob ich dich richtig verstanden habe, aber ich aktualisiert meine Antwort.
    • die situation sehen
    • sehen Sie die situation, die ich definieren Sie die variable Wert Lass es sein : set data1 "Das ist Data1 Wert" und der zweite Satz data2 "Das ist Data2 Wert" Jetzt will ich schreiben den Wert der Variablen data1 und data2 mit der foreach-Schleife, also Wie kann ich das machen soll, Bitte helft mir. Hier mache ich so : set fo [open $filename w] foreach different_content {data1 data2} { puts $fo $different_content } close $fo } Aber es funktioniert nicht .???????????????
    • Wenn Sie es so schreiben Sie "data1" und "data2" in die Datei. Sie haben zu tun, z.B. foreach different_content "$data1 $data2" {puts $fo $different_content}

    InformationsquelleAutor bmk
  2. 1

    Der folgende code erstellt eine text-Datei im Ordner 'P' und schreibt in Sie.

    set fid [open p:\\temp.txt w]

puts $fid "here   is the first line."

close $fid
    InformationsquelleAutor Balachandar
  3. 0

    Den folgenden code in Ordnung ist für das Lesen aus einer Datei, wo sample.tcl Datei steht in " p " - Ordner.

    Überschrift

    set fp [open "p://sample.tcl" r]

set file_data [read $fp]

puts $file_data

close $fp
    InformationsquelleAutor Balachandar
Schreibe einen Kommentar