Tcl/Tk open and read file

转载

mob604756f06ed8 2011-04-03 21:57:00

文章标签 代码 文章分类 代码人生

if { [catch {open $filn r } f ] } {
Report 3 "Could not open initialisation file $filn"
return 0
}

set textin [split [ read $f ] "\n"]
CloseFile $f

本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。

上一篇：Install g77 fortran compiler in Ubuntu 9.10

下一篇：什么是API?

提问和评论都可以，用心的回复会被更多人看到评论

发布评论

相关文章

无涯教程-File文件 - file_exists()函数

file_exists() - 语法bool file_exists ( string $file_open );检查文件或目录是否存在。file_open ...

php
Ansible file模块

force：需要在两种情况下强制创建软连接，一种是源文件不存在但之后会建立的情况下；另一种是目标软连接已经存在，需要先取消之前的软连接，然后创建新的软链，有两个选项：yes｜nogroup：定义文件/目录的属组mode：定义文件/目录的权限owner：定义文件/目录的属主path：必选项，定义文件目录的路径recurse：递归的设置文件的属性，只对目录有效，相当于chmod 644 -R

Ansible file模块
java提示no such file or directory

在使用Java时，如果遇到“no such file or directory”的错误提示，通常是因为程序无法找到指定的文件或路径。以下是一些可能的原因和解决方案：文件路径错误：确认文件路径是否正确，路径中是否有拼写错误。确保路径中的目录和文件确实存在。相对路径与工作目录：如果使用的是相对路径，确保相对路径是相对于当前工作目录的。在运行Java程序时，可以通过以下代码打印出当前的工作目录：Syst

相对路径 Java System
Tcl Tk Introduction

摘要Abstract：Tcl/Tck脚本可以很容易实现用户自定义的命令，方便的创建图形化的用户界面GUI，所以Tcl和Tk的应用领域几乎覆盖了图形和工程应用的全部范围，包括计算机辅助设计、软件开发、测试、仪器控制、科学可视化及多媒体方面。即可以使用Tcl/Tk实现AVEVA中的PML类似的功能，允许用户自己编写简单程序实现程序的二次开发。关键字Key Words：AVEVA, PDMS, PML

AVEVA PDMS PML Tcl/Tk Script Modeling
TCL/TK 的安装

主页: http://www.tcl.tkhttp://www.tcl.tk/software/tcltk/download.html解压缩源码包tarzxvf tcl8.6.1-src.tar.gztarzxvf tk8.6.1-src.tar.gz2. 安装cd tcl8.6.1cd unix./configure --prefix=/usr/tcl --enable-sharedmake

安装 tcl/tk
linux tcl tk 安装

Linux system is known for its powerful capabilities for developers and programmers due to its open-source nature and wide range of features. One of the popular programming languages used in Linux is T

ide sed vim
Open a file, and then readin a file tcl tk

if { [catch {open $filn r } f ] } { Report 3 "Could not open initialisation file $filn" return 0 } set textin [split [ read $f ] "\n"] CloseFile $f set full_text "" foreach line $textin { if { [string range $line end end] == "\\" } { append buffer [string rang

代码
tcl tk file

fifile atime name ?time? file attributes name file attributes name ?option? file attributes name ?option value option value...? file channels ?pattern? file copy ?-force? ?--? source target file copy ?-force? ?--? source ?source ...? targetDir file delete ?-force? ?--? pathname ?pathname ... ? file

sed unix ide hive 代码
namesapce tcl tk

=>namespace current::DCS::SocketProtocol=>set m_theObject [[namespace current] ::#auto]::socketProtocol0=>set m_theObject [[namespace current] ::#auto]::socketProtocol1=>set m_theObject [[namespace current] ::#auto]::socketProtocol2=>set m_theObject [[namespace current] ::#auto]::sock

代码
info tcl tk

info proc info commands

代码
catch tcl tk

if [catch {load $library dcs_c_library} err] {puts "-----------------------------------------------------------------------------"puts $err }

代码
cget tcl tk

package require Itclitcl::class Person { public variable name "" public variable phone "" public variable email "" constructor {args} {set aaa "sd"eval configure $args }destructor {}}Person aaa -name "aa" -phone "1243" -email "ab@cc.co

代码
tcl tk lappend

lappend - 将元素添加到列表末尾语法lappend varName ?value value value ...?

代码
configbody tcl tk

package require Itclitcl::class sampleconf { ;# a sample class with a single public variable public variable publicv ;# this var is adjusted using the configure -publicv... constructor {} { } method setpublicv {dn} { set publicv "$dn" puts $dn } method shwopublicv {} { puts $publicv } }# c

代码
constructor $this tcl tk

class ::classname{ private variable m_device private variable m_label public method getLabel { device } { return $m_label($device) } public method getDevice { label } { return $m_device($label) } constructor { mapList } { puts "constructor $this" puts "list: $mapList" array set m

代码
show image tcl tk

package require Img set image [image create photo -file /home/name/Desktop/Untitled.bmp] label .txt -text 'aaa'label .l -image $image pack .lpack .txt

desktop 代码
initial class tcl tk

class Singleton { private common _instance {} ;# static instance variable # # Define a "static method" Instance. # proc Instance {} { if { $_instance == {} } { set _instance [Singleton ABC] } return $_instance } # end of Instance constructor {} { set caller [info level [expr [info level] -

代码
constructor with args tcl tk

Application DcssUserProtocolDCS::DcssUserProtocol dcss \ $dcssHostName \ $dcssPort \ -useSSL [::config getDcssUseSSL] \ -authProtocol $authProtocol \ -_reconnectTime 1000 \ -callback "" \ -networkErrorCallback ""class in DcssUserProtocolconstructor {server port args}-------------

css 代码
check package tcl tk

set package_loading_result(img::jpeg) [catch {package require img::jpeg 1.3}]set package_loading_result(img::gif) [catch {package require img::gif 1.3}]set package_loading_result(img::png) [catch {package require img::png 1.3}]# Check for package loading successset l_failures 0foreach i_package [arr

代码
configure cget tcl tk

class Person { public variable name "" public variable phone "" public variable email "" constructor {args} { eval configure $args } }This class has three public attributes: the person's name, phone number and e-mail address. Any extra args passed to the constructor

sed 代码

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

Tcl/Tk open and read file

Tcl/Tk open and read file

51CTO博客