Československá literární komunita
Tak jako generace autorů před vámi, publikujte svoji psanou tvorbu. Podělte se o svoje názory a sbírejte zpětnou vazbu na svoje díla. Inspirujte se a učte od nejlepších.
Přidejte se~ Tilda ~
02. 05. 2007
0
6
984
set thefile [open "slovnik.txt" r]
set outfile [open "vlno.rtf" w]
set pslovo 0
while {1} {
set c [gets $thefile line]
if { $c < 0} {
break
}
set c [string first " " $line]
set a [expr $c]
set nslovo [string range $line 0 $a]
if { $nslovo == $pslovo} {
set pslovo $line
set out ~
set konec [string range $line $c end]
append out $konec
puts $outfile $out
set pslovo $nslovo
} else {
puts $outfile $line
set pslovo $nslovo
}
}
close $thefile
close $outfile
set outfile [open "vlno.rtf" w]
set pslovo 0
while {1} {
set c [gets $thefile line]
if { $c < 0} {
break
}
set c [string first " " $line]
set a [expr $c]
set nslovo [string range $line 0 $a]
if { $nslovo == $pslovo} {
set pslovo $line
set out ~
set konec [string range $line $c end]
append out $konec
puts $outfile $out
set pslovo $nslovo
} else {
puts $outfile $line
set pslovo $nslovo
}
}
close $thefile
close $outfile
6 názorů
Daphnia-queer_of_the_Juice
02. 05. 2007Daphnia-queer_of_the_Juice
02. 05. 2007
...to si hodim jako cteni pred spanim (pokud ovsem nekdo neprijde nebo nepudu spat jinam....zn.: jarni uklid)...a propos...takle doma to u mne ted vypada.----
--mozna hur...)))