用c可以逐行读取的csv,但是用Vb却不能逐行读？

使用 Visual Basic (VB) 读取 CSV 文件也是可以逐行读取的，不同于 C。

两者在读取文件的方式上可能有差别，但 VB 中有多种方法可以逐行读取文件，例如：使用 File System Object、TextStream 对象等。需要注意的是，读取 CSV 文件的方式可能因为每个编程语言的不同而有所差别，需要根据自己的需求和编程语言的特性来决定使用哪种方法。

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

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

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

Private Sub Command1_Click()

    Dim strWj As String

    Dim strj() As String

    Dim aryContent() As Byte

    Dim i As Long

    Dim j As Long

    CommonDialog1.CancelError = True ' 设置“CancelError”为 True

    On Error GoTo ErrHandler

    CommonDialog1.Flags = cdlOFNHideReadOnly    ' 设置标志

    ' 设置过滤器

    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

    CommonDialog1.FilterIndex = 2    ' 指定缺省的过滤器

    CommonDialog1.ShowOpen    ' 显示“打开”对话框

    ' 显示选定文件的名字

    'MsgBox CommonDialog1.FileName

    Open CommonDialog1.FileName For Binary As #1

        ReDim aryContent(LOF(1) - 1)

        Get #1, , aryContent

    Close #1

    strWj = StrConv(aryContent, vbUnicode)

    RichTextBox1 = strWj

    Text1 = strWj

    strj = Split(strWj, vbCrLf)

    i = UBound(strj)

    Text2 = i + 1

    j = InputBox("输入需要显第几句", j)

    j = j - 1

    Label1.Caption = j + 1 & "：" & strj(j)

    Exit Sub

ErrHandler:

    ' 用户按了“取消”按钮

    Exit Sub

End Sub

vb读取text中的每一行，首先读取出text的全部内容，然后分割出每行，再逐行输出。具体代码如下：

Private Sub Command1_Click()

Dim a as string,b as string,i as long

a=text1.text '第一步获取text全部内容

b = Split(a, vbCrLf) '第二部分割每一行

For i = 0 To UBound(a)

Print b(i) '输出每行的内容

Next

End Sub

---