VB 读指定行
http://zhidao.baidu.com/question/81532606.html
VB 读指定行
悬赏分：10 - 解决时间：2009-1-20 11:41
vb中如何读取指定行的内容，窗体上有两个标签，文件在C:\A.TXT,四个按钮，单击第一个，读文件的第一行到标签一，第二行到标签二；单击第二个按钮，第三行到标签一，第四行到标签二；以此类推，谢谢
提问者： imyangmo - 书生 二级
最佳答案
用文件系统可以读取指定行。。。但是如果文件内容不是很多的话用顺序文件全部读出来截断到数组后提取指定行更方便。。。
使用文件系统读取指定行：
首先需要“引用”Microsoft Scripting Runtime
Private Sub Command1_Click()
Dim FSO As New FileSystemObject
Dim TS As TextStream
Dim Str As String
If Dir("C:\A.txt") <> "" Then '判断文件是否存在
Set TS = FSO.OpenTextFile("C:\A.txt", ForReading) 'ForReading为读模式,另外有写和追加模式
Do Until TS.Line = 1 '跳到指定行时终止循环
TS.SkipLine '跳过一行
Loop
Str = TS.ReadLine '读出行,文件系统读写位置就是光标所在的位置
Print Str
Else
MsgBox "文件不存在！"
End If
'但是文件系统好像不能写指定行
End Sub
----------------------------------------------------------------
使用顺序文件获取指定行内容
Private Sub Command1_Click()
Dim Arr
Dim Str As String
Dim i As Integer
Open "C:\A.txt" For Binary As #1
Str = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
Arr = Split(Str, vbCrLf)
For i = 0 To UBound(Arr)
Print Arr(i)
Next i
End Sub
相关文档：
珍贵vb函数列表
Variant 变量的内部表示:
_______________________________________________________________
符号常量 值 内部表示 字节数
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
VB的代码存储在模块中。在VB中提供了三种类型的模块：窗体模块、标准模块和类模块。
简单的应用程序可以只有一个窗体，所用的程序都驻留在窗体模块中，而当应用程序庞大复杂时，就要另外附加窗体。最终可能有几个窗体中有一些共同都要执行的代码，为了在两个窗体中不产生重复代码，可创建一个独立的模块，用它实现代� ......
Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......
Private Sub Command1_Click()
Dim MyComm As New ADODB.Command '定义一个命令对象
Dim Rs_GetList As New ADODB.Recordset '定义一个记录集对象
Dim param As ADODB.Parameter ......
建立 VPN 拨号全部代码如下:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
......
