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文本加密 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况
下面这篇文章将对此做了说明
代码也在文章里面包括
计算机世界2000年第36期
实现中文文本的加密方法
武汉交通科技大学计算机科学与工程系 吴业福
本文介绍了在VB6中实现中、英文文本加� ......
VB实现VC TabControl控件
新建一个工程文件Project1，
在左侧工具栏中点右键
在出现的选项中点“Components”，在打开窗口中找到“Controls”选项也中的“Microsoft Tabbed Dialog Control 6.0”，然后点“应用”“确定”退出该页� ......
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
......
'添加个picture1和command1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Pictu ......
