open CommonDialog1.Filename for input as #1 '打开文件input str '------读取一行文本'-------------------如果内容有多行的话还要加循环close #1 '-------关闭文件text1.text=str
