VB 读取 TXT一段文字的下一行
我的TXT文件内容:
梦幻龙族
http:\\ml.playcool.com\
17173
http:\\www.17173.com\
___
我用一个listbox 显示了TXT里面的 梦幻龙族 和 17173
如果我点一下listbox 里的梦幻龙族或者17173,能不能实现msgbox对应下一行的网址?(求代码)
不会问问题,谢谢各位大虾!
'or 按照你的: getvalue list1.text
Private Sub GetValue(Find As String)
on error resume next
Dim a As Long, b As String, c() As String
a = FreeFile
Open "c:\a.txt" For Binary As #a '读取txt文件
b = Space$(LOF(a))
Get #a, , b
Close #a
c() = Split(b, vbCrLf)
For i = LBound(c) To UBound(c)
if lcase(c(i))=lcase(find) then Msgbox c(i+1):exit for
Next i
End Sub
VB 读取 TXT一段文字的下一行
Dim a As Long, b As String, c() As String a = FreeFile Open "c:\\a.txt" For Binary As #a '读取txt文件 b = Space$(LOF(a))Get #a, , b Close #a c() = Split(b, vbCrLf)For i = LBound(c) To UBound(c)if lcase(c(i))=lcase(find) then Msgbox c(i+1):...
...单击一次按钮,在text控件中显示txt文件中的下一行内容.
正常的打开文件，然后单击事件中 用line Input 读取文件一行，每读取一行文件指针就自动移到下一行。当然要用Eof 函数来判断文件已是否读到尾了。比如在load 事件中打开文件，或在另一个按钮事件中打开文件 Dim fileNumber As IntegerConst Filename = "c:\\123.txt" '文件名及地址自己改一下 Private...
VB如何读取TXT文件,一行一行读取,读取一行msgbox“这一行的内容”,然后...
Private Sub Command1_Click() Dim i As Long Dim j As Long Dim strj() As String ' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置过滤器 CommonDialog1.Fil...
VB获取文本文件的最后一行怎么做到?
VB获取文本文件的最后一行，可以在循环中使用Line Input # 语句一行读文本文件，直到到达文件的结尾。Line Input # 语句，从已打开的顺序文件中读出一行并将它分配给 String变量。EOF 函数，返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。具体代码：Pr...
VB 怎么读取TXT数据 第一行显示在TEXT1 第二行显示在TEXT2
Private Sub Form_Load()Text1.Text = ""Text2.Text = ""If fso.FileExists("c:\\abc.txt") Then '判断文件是否存在 Dim sum_row As Integer sum_row = 1 Open "c:\\abc.txt" For Input As #7 Line Input #7, first_row '按行读取 Text1.Text = first_row Do While Not EOF...
用VB如何找到数据库里的最后一条记录或txt文件里的最后一行数据?
Loop Close #1 以上是读取txt文件的方法，当close后i的值就是txt文件的总行数。然后再运行下面的方法 Open StrPath For Input As #1 Do While Not EOF(1)Line Input #1, TXTCon If j= iThen msgbox TXTCon '这个就是最后一行记录 Close #1 Exit Sub End If j= j + 1 Loop Close #1 S...
请教高手怎么用vb编写读取文本下一行
dim tem as string,fildata as string open "文件" for input as #1 do until eof(1)line input #1,tem '读取的这一行的内容存入变量tem if tem="" then '如果这行的内容是空的就显示下一行内容 line input #1,filedata '将空行的下一行内容存到变量filedata print "读取的内容是:" & ...
vb中如何判断text文件中光标的位置,并在光标所在行的下一行插入...
先来说一下vb中如何将指定的内容写入到一个txt文本文件中。有一套基本的代码，如下：1.如果想要使目标txt文件不保留原来的文字内容，将所有的内容变成你要指定的内容，则 Open "这里打上txt文件的全路径，包括扩展名" For Output As #1 路径也可以用一个字符串变量来指定。如果想要使目标txt文件在...
在VB中接受数据如何读取下一行内容
这句可以，假如你要用这句把文本光标下移一行，要让text1先获得焦点 才可以往下移动一行。 具体要怎么用就看你的需要了。 Text1.SetFocus '文本框获得焦点 SendKeys "{down}" '这句就相当于你按down键 还有其它的也给你说下 Clipboard.SetText Text1.SelText '将选中的文字复制到系统剪切板 ...
如何用VB在txt文本文档中读出最后一行的数据并显示在窗体上
Private Sub Command1_Click()Dim t As String Open "C:\\Users\\u\\Desktop\\1.txt" For Input As #1 Do While Not EOF(1)Line Input #1, t Loop Print t Close #1 End Sub
