求知 文章 文库 Lib 视频 iPerson 课程 认证 咨询 工具 讲座 Model Center   Code  
会员   
要资料
 
 
 

Tcl 教程
Tcl环境设置
Tcl特殊变量
Tcl基本语法
Tcl命令
Tcl数据类型
Tcl变量
Tcl运算符
Tcl决策
Tcl循环
Tcl数组
Tcl字符串
Tcl列表
Tcl字典
Tcl过程
Tcl包
Tcl命名空间
Tcl文件I/O
Tcl错误处理
Tcl内置函数
Tcl正则表达式
 
 

TCL文件I/O
1002 次浏览
34次  

TCL支持文件处理使用内置命令,如:open, read, puts, gets 和 close.

一个文件代表了一个字节序列,不要紧,如果它是一个文本文件或二进制文件。

打开文件

TCL使用open命令在Tcl中打开文件。打开文件的语法如下。

open fileName accessMode

在这里,文件名是字符串文字,用它来命名文件名,accessMode可以是以下值之一:

关闭文件

要关闭一个文件,请使用close命令。close 的语法如下。

Hello World!

当程序完成使用该文件已被打开的一个程序中的任何文件都必须关闭。在大多数情况下,文件不需要被明确地关闭;它们会自动关闭,当文件对象会自动终止。

写入文件

puts命令用于写入一个打开的文件。

puts $filename "text to write"

一个简单写入文件的例子如下所示。

#!/usr/bin/tclsh
set fp [open "input.txt" w+]
puts $fp "test"
close $fp


当上述代码被编译和执行时,它创建根据目录的新文件input.txt(在该程序的工作目录)。

读取文件

以下是简单从文件中读取的命令:

set file_data [read $fp]

读与写一个完整的例子如下所示。

#!/usr/bin/tclsh
set fp [open "input.txt" w+]
puts $fp "test"
close $fp
set fp [open "input.txt" r]
set file_data [read $fp]
puts $file_data
close $fp

当上述代码被编译和执行时,它读取在前面的部分创建的文件,并且产生以下结果:

test

下面是另一个例子读取文件,文件一行一行直到结束。

#!/usr/bin/tclsh
set fp [open "input.txt" w+]
puts $fp "test\ntest"
close $fp
set fp [open "input.txt" r] while { [gets $fp data] >= 0 } {
puts $data
}
close $fp


当上述代码被编译和执行时,它读取在前面的部分来创建的文件,并且产生以下结果:

test
test

您可以捐助,支持我们的公益事业。

1元 10元 50元





认证码: 验证码,看不清楚?请点击刷新验证码 必填



1002 次浏览
34次
 捐助