VB6.0中如何实现逐行读入文本文件?

来源：百度知道编辑：UC知道时间：2024/05/21 15:54:29

在VB6.0中想实现读入文本文件XXX.TXT,并且是逐行读入方式,每一行字符即成为一个变量,所有行读完,即可实现每行变量依次组成一个数组,请问如何实现???
语法越简单越好.

VB6.0可以用一次读取文本文件全部文本内容，然后使用Split函数来实现一行一行提取文本框行内容。

Split函数，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

以下代码是可以提取文本文件任何一行内容的：

Private Sub Command1_Click()
    Dim strWj As String
    Dim strj() As String
    Dim aryContent() As Byte
    Dim i As Long