egghelp/eggheads community

White lines in textfile after write

2006-11-23T15:41:12-04:00

wouldnt just

Code:

proc save:deaud {} {   set a [open "deaud.txt" w]      puts -nonewline $a [join $::deauds \n]   close $a}

do the trick?

PS: I would move "[close $file]" to the next line and remove [] braces. close is not suposed to return anything but an empty string, but I still wouldn't add a probably empty string to something I want to parse as a consident list.

Statistics: Posted by De Kus — Thu Nov 23, 2006 3:41 pm

White lines in textfile after write

2006-11-21T15:02:10-04:00

You split the line twice, once again with the foreach..

Statistics: Posted by rosc2112 — Tue Nov 21, 2006 3:02 pm

White lines in textfile after write

2006-11-21T00:27:26-04:00

Hmz, for some reason that aint working

the text file now looks like this:

Code:

Zinloos GewelddeadscriptswerkoverlegmaczutloppieNewlinesHet oude god-scriptTiefusLineBreaks

Where the newly added lines are added from loppie (with this script) (the older lines where manually added with vi)

The script now looks like this:

Code:

bind pub - !deaud add:deaudset deauds [split [read [set file [open "deaud.txt"]]] \n][close $file]unset fileset god [split [read [set file [open "god.txt"]]] \n][close $file]unset fileproc add:deaud {n u h c a} { global deauds global god if { [set b [split $a]] != "" } { if {[lsearch -exact $deauds [set b [split $a]]] == -1} { if {[lsearch -exact $god [set b [split $a]]] == -1} {  lappend deauds $b  putmsg $c "$b toegevoegd aan de deaudenlijst."  save:deaud } {  putmsg $c "$b staat al op de godenlijst." } } {  putmsg $c "$b staat al op de deaudenlijst." } } {    set qot_fd [open "deaud.txt" r]    for {set qot_cnt 0} { ![eof $qot_fd] } { incr qot_cnt } {        gets $qot_fd qot_list($qot_cnt)    }    close $qot_fd    set qot_cnt [expr $qot_cnt - 2]    set qot_sel $qot_list([set qot_cur [rand [expr $qot_cnt + 1]]])    putmsg $c "$qot_sel moet deaud. ([expr $qot_cur + 1] van [expr $qot_cnt + 1])" }}proc save:deaud {} {set a [open "deaud.txt" w]foreach line [split $::deauds \n] {   if {$line != "" && $line != "\n"} {    puts $a [join $line \n]   }} close $a}

What am i doing wrong?

Statistics: Posted by QQleQ — Tue Nov 21, 2006 12:27 am

White lines in textfile after write

2006-11-20T23:32:02-04:00

Code:

foreach bn $::deauds {  puts $a [join $bn \n] }

Should do it..

I'd also put in a

Code:

if {$bn != ""} {    puts $a [join $bn \n]}

so its not saving blank lines..

Statistics: Posted by rosc2112 — Mon Nov 20, 2006 11:32 pm

White lines in textfile after write

2006-11-20T22:09:03-04:00

Hi there

All this script does is writing sentences or words to a textfile.. if its not in either deaud.txt or god.txt already.

Its working like a charm, however, i cant seem to get rid of some strange white lines (line breaks) in the text file. They keep comming back, even though i edit them out using vi.

Help apreciated.

Code:

bind pub n !deaud add:deaudset deauds [split [read [set file [open "deaud.txt"]]] \n][close $file]unset fileset god [split [read [set file [open "god.txt"]]] \n][close $file]unset fileproc add:deaud {n u h c a} { global deauds global god if { [set b [split $a]] != "" } { if {[lsearch -exact $deauds [set b [split $a]]] == -1} { if {[lsearch -exact $god [set b [split $a]]] == -1} {  lappend deauds $b  putmsg $c "$b toegevoegd aan de deaudenlijst."  save:deaud } {  putmsg $c "$b staat al op de godenlijst." } } {  putmsg $c "$b staat al op de deaudenlijst." } } {    set qot_fd [open "deaud.txt" r]    for {set qot_cnt 0} { ![eof $qot_fd] } { incr qot_cnt } {        gets $qot_fd qot_list($qot_cnt)    }    close $qot_fd    set qot_cnt [expr $qot_cnt - 2]    set qot_sel $qot_list([set qot_cur [rand [expr $qot_cnt + 1]]])    putmsg $c "$qot_sel moet deaud. ([expr $qot_cur + 1] van [expr $qot_cnt + 1])" }}proc save:deaud {} { set a [open "deaud.txt" w] foreach bn $::deauds {  puts $a $bn } close $a}

Statistics: Posted by QQleQ — Mon Nov 20, 2006 10:09 pm