Şunu aradınız:: inumber (Çince (Modern) - Japonca)

close #inumber
close #inumber

seek #inumber,2
seek #inumber,2

get #inumber,,stext
get #inumber,,stext

print lof(#inumber)
print lof(#inumber)

dim inumber as integer
dim inumber as integer

seek #inumber,1 rem 起始位置
seek #inumber,1 rem 開始位置

while not eof(#inumber)
while not eof(#inumber)

print #inumber, " 第一行文本 "
print #inumber, " first line of text "

line input #inumber, sline
line input #inumber, sline

put #inumber,, " this is new text "
put #inumber,, " this is new text "

open afile for input as inumber
open afile for input as inumber

open afile for output as #inumber
open afile for output as #inumber

put #inumber,, " this is a new text "
put #inumber,, " this is a new text "

print #inumber, " another line of text "
print #inumber, " another line of text "

open afile for random as #inumber len=32
open afile for random as #inumber len=32

print #inumber, " this is a line of text "
print #inumber, " this is a line of text "

print #inumber, " this is a new line of text "
print #inumber, " this is a new line of text "

msgbox fileattr(#inumber, 1 ),0, " access mode "
msgbox fileattr(#inumber, 1 ),0, " access mode "

put #inumber,20, " this is the text in record 20 "
put #inumber,20, " this is the text in record 20 "

put #inumber,, " this is the first line of text " rem 用文字填充行
put #inumber,, " ここはテキストの始めの行です。 " rem テキストで行を埋める