有如下过程：Subproc()DimchAsStringOpen“file.txt”ForInputAs#Open“file_bak.txt”ForOutputAs#DoWhileNotEOF()ch=Input$(，#)Print#，ch;LoopClose#，#EndSub这一过程的功能是____