tera term的TTL脚本命令之filereadln

以你之姓@ 2022-05-11 08:14 263阅读 0赞

# filereadln #

从文件里读取一行。

filereadln <file handle> <strvar>

## 使用说明 ##

从<file handle>指定的文件中读取一行。  
该行被写入字符串变量<strvar>。  
文件指针移动到下一行的开头。  
如果文件指针在读取行时到达文件末尾，则系统变量“result”设置为1。否则，“result”设置为零。  
当一行只包含一个新行时，字符串变量为空，“result”设置为零。

## 例子 ##

; Open a file.
    fileopen fhandle 'test.txt' 0
    
    :loop
    ; Read a line from the file.
    filereadln fhandle line
    if result goto fclose
    ; Display the line.
    messagebox line 'test.txt'
    ; Repeat until the end of the file.
    goto loop
    
    :fclose
    ; Close the file.
    fileclose fhandle

; Open a file.
    fileopen fhandle 'test.txt' 0
    while 1
        ; Read a line from the file.
        filereadln fhandle line
        if result=1 then 
              break
        endif
        ; Display the line.
        messagebox line 'test.txt'
        ; Repeat until the end of the file.
    endwhile
    ; Close the file.
    fileclose fhandle

; Search a keyword and replace in the file.
    infile = 'testdata.txt'
    outfile = 'testdata_output.txt'
    
    oldkeyword = 'BBB'
    newkeyword = 'zzz'
    
    fileopen ifd infile 0
    fileopen ofd outfile 0
    
    while 1
    	filereadln ifd line
    	if result=1 then
    		break
    	endif
    	strreplace line 1 oldkeyword newkeyword
    	filewriteln ofd line
    endwhile
    
    fileclose ifd
    fileclose ofd
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
    [testdata.txt]
    AABBBCCCCDDDDD
    ###DDCCCBBBBAAAAA####
    1234567890
    
    [testdata_output.txt]
    AAzzzCCCCDDDDD
    ###DDCCCzzzBAAAAA####
    1234567890