原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
1个把十六进制数转换为十进制数的小程序 riple
一个把十六进制数转换为十进制数的小程序： riple
proc h2d {{hex_num 0}} {
set tmp1 0x
append tmp1 $hex_num
set tmp2 [format %d $tmp1]
return $tmp2
}
一个读取二进制文件的小程序： riple
# Show current directory
set tmp [pwd]
puts \n Current dir : $tmp
# Open file
puts \n Type in the file name
gets stdin disk_file_name
set disk_file_fileid [open $disk_file_name r]
fconfigure $disk_file_fileid -translation binary
# Main loop
while {1} {
# Set read original address
puts \n Type in the addrByte
gets stdin addrByte
seek $disk_file_fileid $addrByte start
# read binary
puts \n Type in the numByte
gets stdin numByte
set disk_read [read $disk_file_fileid $numByte]
binary scan $disk_read H* tmp0
puts \nReturned [expr [string bytelength $tmp0] / 2] Byte(s) :
puts $tmp0
puts \n
}
# Close file
close $disk_file_fileid
一个顺序执行初始化、写入、读出的交互式创建文件的小程序 riple
proc wr_file {{file_id} {Byte_content 5A} {Byte_num 512}} {
set loop_end $Byte_num
set loop_num 0
while {$loop_num $loop_end} {
puts -nonewline $file_id $Byte_content
set loop_num [expr $loop_num + 1]
}
flush $file_id
}
proc rd_file {{file_id} {Byte_num 512}} {
return [read $file_id [expr $Byte_num * 2]]
}
# show current directory
set tmp [pwd]
puts \n Current dir : $tmp
# open file
file mkdir disk_sector
puts \n Type in the file name
gets stdin disk_file_name
set disk_fileid [open disk_sector/$disk_file_name w+]
fconfigure $disk_fileid -translation binary
# init file
puts \n INIT FILE
puts \n Type in the Byte content
gets stdin Byte_content
puts \n Type in the Byte number
gets stdin Byte_num
wr_file $disk_fileid $Byte_content $Byte_num
# write file
puts \n WRITE FILE
puts \n Type in the Byte content
gets stdin Byte_content
puts \n Type in the Byte address
gets stdin Byte_addr
puts \n Type in the Byte number
gets stdin Byte_num
seek $disk_fileid [e
文档评论（0）