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学习 字号： 大大 中中 小小 mid(字符串，从第几个开始，长度) 在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"
instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找，返回字符串2在字符串1中� ......
VB实现VC TabControl控件
新建一个工程文件Project1，
在左侧工具栏中点右键
在出现的选项中点“Components”，在打开窗口中找到“Controls”选项也中的“Microsoft Tabbed Dialog Control 6.0”，然后点“应用”“确定”退出该页� ......
VB调用系统的"打印机设置"和"页面设置".
Option Explicit
Const FW_NORMAL = 400
Const DEFAULT_CHARSET = 1
Const OUT_DEFAULT_PRECIS = 0
Const CLIP_DEFAULT_PRECIS = 0
Const DEFAULT_QUALITY = 0
Const DEFAULT_PITCH = 0
Const FF_ROMAN = 16
Const CF_PRINTERFONTS = &H2
Const C ......
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 ......
建立 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
......
