案例十八Login文件的操作 学习目标 学会灵活运用FreeFile函数、FileOpen函数、StreamReader类、My.Computer,File 对象和ReadAllText方法等 案例说明 建立一个写字板，能够完成文件的保存、打开、格式设置及剪切、复制、粘帖 技能与要点 知识点 要领与方法 使用FreeFile函 DimiAsInteger 数获得文件号 i=FreeFile() 使用FileOpen函 DimiAsInteger 数打开文本文件 i=FreeFile() FileOpen(i,log2.txt,OpenMode.Append) FileOpen(i,OpenFileDialg1.FileName,OpenMode.Input) 从文本文件中读 使用LineInput函数。例如： 取一行 DimLineOfTextASString LineOfText=LineInput(i) 检查是否到达文 使用EOF函数。例如： 件末尾 DimLineOfText,AllTextAsString DoUntilEOF(1) LineOfText=Linelnput(1) AllText=AllText+LineOfText+vbCrLf Loop 关闭打开的文件 使用FileClose函数。例如：FileClose(i) 使用Linelnput显 使用LineInput函数将文本从打开的文件中复制到一个字符串变量， 示文本文件 然后将该字符串变量赋值给一个文本框对象。例如： DimAlIText,LineOfTextAsString DoUntilEOF(①从文件中读取文本
案例十八 Login 文件的操作 学习目标 学会灵活运用 FreeFile 函数、FileOpen 函数、StreamReader 类、My．Computer．File 对象和 ReadAllText 方法等 案例说明 建立一个写字板，能够完成文件的保存、打开、格式设置及剪切、复制、粘帖 技能与要点 知识点 要领与方法 使用 FreeFile 函 数获得文件号 DimiAsInteger i=FreeFile() 使用 FileOpen 函 数打开文本文件 DimiAsInteger i=FreeFile() FileOpen(i,log2.txt,OpenMode.Append) FileOpen(i,OpenFileDialg1.FileName,OpenMode.Input) 从文本文件中读 取一行 使用 LineInput 函数。例如： DimLineOfTextASString LineOfText=LineInput(i) 检查是否到达文 件末尾 使用 EOF 函数。例如： DimLineOfText,AllTextAsString DoUntilEOF(1) LineOfText=LineInput(1) AllText=AllText+LineOfText+vbCrLf Loop 关闭打开的文件 使用 FileClose 函数。例如：FileClose(i) 使用 Linelnput 显 示文本文件 使用 LineInput 函数将文本从打开的文件中复制到一个字符串变量， 然后将该字符串变量赋值给一个文本框对象。例如： DimA1lText,LineOfTextAsString DoUntilEOF(i)从文件中读取文本
LineOfText=LineInput(i) AllText=AllText+LineOfText+vbCrLf Loop TxtNote..Text=AllText显示文件内容 使用 在窗体的声明区域增加语句ImportsSystemIO,然后使用 StreamReader类 StreamReader。例如，在名为TextBoxl的文本框对象中显示文件， 显示文本文件 代码如下： DimStreamToDisplayAsStreamReader StreamToDisplay=NewStreamReader("c:\vb05sbs\chapl3\textbrowserb adbillsv.txt") TextBoxl.Text=StreamToDisplay.ReadToEnd StreamToDisplay.Close() TextBoxl.select(0.0) 使用My对象显 使用My.Computer.File对象和ReadAllText方法。假设同时使用 示文本文件 名为ofd的打开文件对话框对象和名为txtNote的文本框对象，代码 如下： DimAllTextAsString="" ofd.Filter()="Textfiles.TXT) ofd.ShowDialog() Ifofd.FileName◇"Then AllText=My.Computer.FileSystEan.ReadAliText(old.FileName) txtNote.Text=AllTextdisplayfile EndIf 显示【打开】对 为窗体添加一个OpenFileDialog控件，然后使用打开文件对话框对 话框 象的ShowDialog方法。例如： OpenFileDialog1.ShowDialog() 创建新文本文件 使用FileOpen函数。例如： FileOpen(1,saveFileDialog1.FileName,OpenMode.Output) 显示【另存为】 为窗体添加一个SaveFileDialog控件，然后使用保存文件对话框对
LineOfText=LineInput(i) A1lText=AllText+LineOfText+vbCrLf Loop TxtNote.Text=AllText 显示文件内容 使用 StreamReader 类 显示文本文件 在窗体的声明区域增加语句 ImportsSystemIO，然后使用 StreamReader。例如，在名为 TextBoxl 的文本框对象中显示文件， 代码如下： DimStreamToDisplayAsStreamReader StreamToDisplay=NewStreamReader("c:\vb05sbs\chapl3\textbrowserb adbillsv.txt") TextBoxl.Text=StreamToDisplay.ReadToEnd StreamToDisplay.Close() TextBoxl.select(0,0) 使用 My 对象显 示文本文件 使用 My．Computer．File 对象和 ReadAllText 方法。假设同时使用 名为 ofd 的打开文件对话框对象和名为 txtNote 的文本框对象，代码 如下： DimAllTextAsString="" ofd.Filter()="Textfiles|.TXT") ofd.ShowDialog() Ifofd.FileName<>""Then AllText=My.Computer.FileSystEan.ReadAliText(old.FileName) txtNote.Text=AllTextdisplayfile EndIf 显示【打开】对 话框 为窗体添加一个 OpenFileDialog 控件，然后使用打开文件对话框对 象的 ShowDialog 方法。例如： OpenFileDialog1.ShowDialog() 创建新文本文件 使用 FileOpen 函数。例如： FileOpen(1，saveFileDialog1.FileName，OpenMode.Output) 显示【另存为】 为窗体添加一个 SaveFileDialog 控件，然后使用保存文件对话框对
对话框 象的ShowDialog方法。例如： SaveFileDialogl.ShowDialog 写入文件 使用Print或PrintLine函数。例如： PrintLine(i,txtNotev.Text) 将文本字符转换 便用Asc函数。例如： 成ASCI代码 DimCodeAsShort Code=Asc("A")返回65 将ASCI代码转 使用Chr函数。例如： 换成文本字符 DimLetterAsChar Letter-=Chr(65)返回A 从字符串中间提 使用Substnng方法或Mid函数。例如： 取子字符串 DimCols,MiddleAsString Cols="FitstSecondThirdn" Middle=Cols.Substring(6,6)Middle=Second
对话框 象的 ShowDialog 方法。例如： SaveFileDialogl.ShowDialog 写入文件 使用 Print 或 PrintLine 函数。例如： PrintLine(i，txtNotev.Text) 将文本字符转换 成 ASCII 代码 便用 Asc 函数。例如： DimCodeAsShort Code=Asc("A")返回 65 将 ASCII 代码转 换成文本字符 使用 Chr 函数。例如： DimLetterAsChar Letter=Chr(65)返回 A 从字符串中间提 取子字符串 使用 Substnng 方法或 Mid 函数。例如： DimCols,MiddleAsString Cols="FitstSecondThirdn" Middle=Cols.Substring(6,6)返回 Middle=Second