tcl生成opensees

binary

binary format formatString ?arg arg ...?
binary scan str formatString ?varName varName ...?
binary encode format ?-option value ...? data
binary decode format ?-option value ...? data

binary用于操作二进制字符串。包含四个子命令：binary format可以将普通的Tcl字符串转换为二进制字符串。binary scan将二进制字符串转换为普通的Tcl字符串。binary encode将二进制字符串进行编码。binary decode将编码后的二进制字符串解码。二进制字符串的其他操作是由其他Tcl命令完成的。 二进制字符串字符的范围是\u0000-\u00FF，所以如果不想丢失数据，需要先通过encoding convertto进行转换。

format

binary format formatString ?arg arg ...?

binary format按格式字符串formatString生成并返回二进制字符串。formatString是格式字符串。如果arg参数的数量与格式字符串中的字段数量不匹配，则会产生一个错误。格式字符串中的标志字符会被忽略。

scan

binary scan str formatString ?varName varName ...?

binary scan将二进制字符串转换为普通的Tcl字符串，返回转换执行的次数。str为要解析的输入字符串，每个字符一个字节，超过1字节的字符的高位会被截断。formatString是格式字符串，表示如何解析字符串。varName为变量名，用于保存str解析的结果。如果没有足够的字节用于解析，则保持相应的变量不变，并返回已设置的变量的数量。如果没有足够的输入用于解析，则会产生错误。

encode/decode

binary encode format ?-option value ...? data
binary decode format ?-option value ...? data

encode和decode是Tcl8.6新增的子命令。在进行编码/解码时，需要同时指定使用的编码名称，并且可以指定可选的编码特定的选项。

格式	命令	选项	说明
base64	encode	-maxlen length	指定输出被分隔为长度不超过length的行，默认不分割。
		-wrapchar char	当输出被-maxlen选项分割时，使用指定的char字符做为行分隔符。默认为换行符“\n”。
	decode	-strict	如果指定此选项，则在解码器遇到空白字符时会抛出错误。否则忽略空白字符。
hex	decode	-strict	如果指定此选项，则在解码器遇到空白字符时会抛出错误。否则忽略空白字符。
uuencode	encode	-maxlen length	指定输出被分隔为长度不超过length的行，默认每行61个字符。由于编码限制，length必须在3-85之间。
		-wrapchar char	当输出被-maxlen选项分割时，使用指定的char字符做为行分隔符。默认为换行符“\n”。
	decode	-strict	如果指定此选项，则在解码器遇到空白字符时会抛出错误。否则忽略空白字符。

简单示例

set binStr [binary format f2 {1.2 3.4}]
binary scan $binStr f2 var
puts $var
set oriStr abcdef
set base64Str [binary encode base64 $oriStr]
binary decode base64 $base64Str