VB可以使用二进制方式打开文本文件，以Get 语句读到字节数组，再使用StrConv 函数将其转换为字符串，而后使用Split函数文本的字符串数组及总句数，使用InputBox 函数来输入需要读某行文本。
 
Get 语句
 将一个已打开的磁盘文件读入一个变量之中。
 StrConv 函数
 返回按指定类型转换的 Variant (String)。
 Split函数
 
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
 InputBox 函数
 
在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。
 
以下是使用上述函数等的具体代码：
 
Private Sub Command3_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)
    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
 

方法一:
 
Dim I As Long
 Dim S As String
 I=0
 Open "d:\a.txt" For Input As #1
 Do While Not EOF(1)
 Line Input #1,S
 I=I+1
 Loop
 Close #1
 I就是行数.
 
 
 
方法二:
 

 Private Sub Form_Load()
 
 Open "d:\你的文件.txt" For Binary As #1 
 
 s = Split(Input$(LOF(1), 1), vbCrLf) 
 
 Close #1 
 
 MsgBox "共有" & UBound(s) + 1 & "行" 
 
 End 
 
 End Sub
 

 每行存数组   然后看数组的元素个数 这样写代码很简单 也容易理解 执行效率不是很差 应该还可以 算是好代码了
 

  
 

  
 

 函数理解:input(LOF(1),1)
 
在VB里input(LOF(1),1)
里面的LOF(1)和外面的那个1分别代表什么意思?
简单的说就是 input(LOF(1),1) 中的两个1分别代表什么?
 
如果改成input(LOF(2),2)那是不是都指2号文件,读取2号文件所有的内容?
 
 
 
那当然……
=================
Input(LOF(1),1)

此时的 Input 是一个函数，返回指定文件中的指定个字符。

LOF 函数返回文件长度，参数为文件号。
Input 函数，第一参数为返回字符数，第二参数为文件号。

简言之，两个1都指第1号文件。

这个语句的意思是读取1号文件的所有内容。
 

  

 

  
 
 
vb获取网页鼠标选定的文本
 
When surfing the internet you undoubtedly will come across great information you want to print out. When printing from the internet you don’t have to waste paper and ink printing out the entire site page with images and advertisements. Just print out the information you want.
 
 
 上网时，无疑会遇到您要打印的重要信息。 从Internet进行打印时，您无需浪费纸张和墨水，即可在整个站点页面上打印图像和广告。 只需打印出所需的信息即可。 
 
 
Highlight the specific information you want to print out with your mouse:
 
 
 突出显示要用鼠标打印出的特定信息： 
 
 

  
 
 
Now hit “CTRL+P” to launch the print menu, or File \ Print from the menu.
 
 
 现在按“ CTRL + P”启动打印菜单，或从菜单中选择“文件\打印”。 
 
 

  
 
 
In this window “All” is selected by default. Change it by checking “Selection” then OK.
 
 
 默认情况下，在此窗口中选择“全部” 。 通过选择“选择”，然后单击“确定”进行更改。 
 
 
This will only print out the text you have highlighted and will work for specific images also. Just highlight the image and use the same process.
 
 
 这只会打印出您突出显示的文本，并且也适用于特定图像。 只需突出显示图像并使用相同的过程即可。 
 
 
This should work in Firefox and Internet Explorer.
 
 
 这应该可以在Firefox和Internet Explorer中使用。 
 
 

  
翻译自: https://www.howtogeek.com/howto/uncategorized/print-only-selected-text-from-web-pages/
 
 
vb获取网页鼠标选定的文本

     Dim tline As String

         FileOpen(1, "文本.txt", OpenMode.Input)

         Do Until EOF(1)

             tline = LineInput(1)

             If InStr(tline, "姓名：") Then Label1.Text = (Replace(tline, "姓名：", ""))

         Loop

         FileClose(1)