VB读取记事本数据的详细方法

来源：百度知道 编辑：UC知道 时间：2024/09/27 15:37:07
俺对VB一点不懂,所以回答问题的时候能多细致就多细致,只要东西好,鄙人感激不尽,分不是问题!
正题:文本内容为
XXXXX XXXXX XXXXX
XXXXX XXXXX XXXXX
XXXXX XXXXX XXXXX...
每一段字符串长度不等,分隔符有的是空格,有的是TAB(没办法,软件生成的就这熊样的),要求是每次读取一行,也就是3个字符串,并将其分别显示在textbox1,textbox2,textbox3上,用热键控制,并且生成后的textbox不可以有空格.说的详细不?
俺的要求是有热键控制,就是每按一次热键,就会显示一行数据,一行的概念就是3个字符串,如果有空的或是错误,需要提示,不是关闭程序,并且可以继续下去的,另外俺用VB不超过3天,各位回答的时候注解多一点,好歹也让我知道去查什么资料,呵呵,只要俺确定能用了,最低500分赠送.大过年的求各位达人,对不住啊,大家新年发大财!

'在窗体上加入控件textbox1,textbox2,textbox3,timer1,然后复制下面代码，修改具体的文件文件名，运行即可。

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim i As Long, S As String, a() As String
Dim FileName As String, Recn As Long

Sub ShowRecn()
If Recn < 0 Then Recn = 0: Exit Sub
If Recn > UBound(a) Then Recn = UBound(a): Exit Sub
Dim aa() As String, S As String
S = Trim(a(Recn))
aa = Split(S, " ")
If UBound(aa) < 2 Then Exit Sub
Text1.Text = aa(0)
Text2.Text = aa(1)
Text3.Text = aa(2)
End Sub

Private Sub Form_Load()
Dim b() As Byte
FileName = App.Path & "\1.txt" '请根据实际情况修改
If Dir(FileName) = "" Then End
ReDim b(FileLen(FileName))
Open FileName For Binary As #1
Get #1, , b
Close #1
S = StrConv(b, vbUnicode)
S = Replace(S, vbKeyTab, " ")
a = Split(