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

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

vb6

Vb6 如何在单击按钮时显示文本文件,vb6,Vb6,如何在单击命令按钮时显示文件（*.txt）如何在单击按钮时显示文件内容数据存储在文本文件ex1.txt中当我单击命令接口时，1.txt文件将打开，1.txt数据应显示要使用当前默认文件处理程序打开文件，请尝试使用ShellExecute API函数这里有一个。无意冒犯，但听起来您需要在VB6上安装一个。（我认为这是因为你似乎无法准确地表达你需要帮助的内容，可能是因为你对自己要做的事情了解不够）谷歌VB6教程将提供大量的链接，看起来不错希望这有帮助，如果我错了，请道歉：）在表单中添加

如何在单击命令按钮时显示文件（*.txt）

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

数据存储在文本文件ex1.txt中

当我单击命令接口时，1.txt文件将打开，1.txt数据应显示

要使用当前默认文件处理程序打开文件，请尝试使用ShellExecute API函数

这里有一个。

无意冒犯，但听起来您需要在VB6上安装一个。（我认为这是因为你似乎无法准确地表达你需要帮助的内容，可能是因为你对自己要做的事情了解不够）

谷歌VB6教程将提供大量的链接，看起来不错

希望这有帮助，如果我错了，请道歉：）

在表单中添加一个文本框，使其为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以指出该行）。

包含一个缺陷：将文本文件读入字符串的代码不是很健壮。这是一个非常常见的错误——在一些优秀的VB6网站上也有同样的有缺陷的代码。他的密码是

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

不幸的是，如果文本文件包含ASCII零字符，则这将导致“输入超过文件末尾”。此外，它也不适用于所有国家/地区（对于双字节字符集中的大多数字符串，如中文或日文，它都会抛出一个错误）

也许这些问题有点模糊：但是在VB6手册中有更好的代码来做这项工作，它也有三行，而且从来没有失败过

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

它看起来更复杂：但实际上唯一的区别是从ANSI到Unicode的转换是显式的，而不是隐式的。它运行得同样快，而且总是有效的

我想显示文件的内容。你说的“显示”是什么意思？是否要显示文件名？还是文件的内容？“显示”以允许用户编辑文件？在消息框中显示？帮助我们帮助你：）–二进制焦虑者57秒前是的，但“显示”如何？要在记事本中打开它吗？你想把它放在文本框里吗？您的问题中没有足够的信息。是否在控件中显示？在一个厕所里？打开记事本？在控制台中转储？说得更清楚些，但是怎么说呢你想通过启动记事本来显示它，还是试图将内容加载到文本框中？回答不错，但你将文本文件读入字符串的代码有缺陷（没有冒犯）。我的回答中有详细内容。很好，我在示例中更改了行。我再也没有安装vb6，所以我无法测试它。