Code:

putserv "PRIVMSG $nick :You are now logged in to $userName"set file [open test.txt r+]foreach line [split [read -nonewline $file] \n] {  if {$line == ""} { return }  if {[string match -nocase "$userName" [lindex [split $line] 0]]} {     regexp -nocase {(.+)\s(.+)\s(.+)\s(.+)\s(.+)} $line -> username host password access    set status "ONLINE"    close $fileset file [open test.txt w+] puts $file "$username $host $password $access $status"  } else {    puts $file "$line"  }

Code:

set file [open file.txt w+]foreach line [split [read -nonewline $file] \n] {  if {$line == ""} { return }  if {[string match -nocase "USERNAME" [lindex [split $line] 0]]} {    # To remove the line from file    # return    # To edit the line data    # regexp -nocase {(.+)\s(.+)\s(.+)\s(.+)\s(.+)} $line -> username host password access status    # To change the password use:    # set password "NEWPASS"    # To change online/offline status use:    # set status "ONLINE or OFFLINE"    # Write the modified data back to file    # puts $file "$username $host $password $access $status"  } else {    # We don't need to delete/modify this line, write the line back to file    puts $file "$line"  }}close $file