如何在单击按钮时显示文本文件

Question

单击命令按钮时如何显示文件(*.txt)

使用VB 6

VB 6新手

如何在单击按钮时显示文件的内容

数据存储在文本文件中,ex 1.txt单击命令时,1.txt文件将打开,1.txt数据应显示

需要VB 6代码帮助？

Answer 1

将一个文本框添加到窗体,使其multiline = true,向窗体添加一个按钮.在按钮中单击处理程序添加:

Private Sub Button1_Click()
  Dim iFile As Long
  Dim strFilename As String
  Dim strTheData as String

  strFilename = "C:\1.txt"

  iFile = FreeFile

  Open strFilename For Input As #iFile
   strTheData = StrConv(InputB(LOF(iFile), iFile), vbUnicode)
  Close #iFile
  text1.text=strThedata
End Sub

这将读取文件中的文本并将其添加到文本框中.

编辑:改变读取内容的行更加健壮,正如MarkJ在这个答案中指出的那样(Cred转向MarkJ指出这一点.)

Answer 2

Stefan的答案包含一个缺陷:将文本文件读入字符串的代码不是很强大.这是一个非常常见的错误 - 在一些优秀的VB6网站上存在同样有缺陷的代码.他的代码是

Open strFilename For Input As #iFile
strTheData = Input$(LOF(iFile), #iFile)
Close #iFile  

不幸的是,如果文本文件包含ASCII零字符,则会抛出错误 62"输入超过文件末尾".此外,它并不适用于所有国家/地区(它会对中文或日文等双字节字符集中的大多数字符串引发错误).

也许这些问题有点模糊:但是在VB6手册(这里)中有更好的代码来完成这项工作,它也是三行,它永远不会失败.

Open strFilename For Input As #iFile
strTheData = StrConv(InputB(LOF(iFile), iFile), vbUnicode)
Close #iFile  

它看起来更复杂:但实际上唯一的区别是从ANSI到Unicode的转换是显式的而不是隐式的.它运行速度同样快,而且始终有效.