VB获取txt指定内容

Dim b(), c(), j%

Private Sub Command1_Click()

Dim i%, x, l%

If Text1 = "" Then Exit Sub

x = Split(Text1, vbCrLf)

Text2 = ""

For i = 0 To UBound(x)

For l = 0 To UBound(c)

If Trim(x(i)) = c(l) Then Text2 = Text2 & b(l) & " " & c(l) & vbCrLf

Next

Next

End Sub

Private Sub Form_Load()

Dim a$, x

j = -1

Open "c:\1txt" For Input As #1

Do While Not EOF(1)

Line Input #1, a

If a <> "" Then

x = Split(a, " ")

j = j + 1

ReDim Preserve b(j)

ReDim Preserve c(j)

b(j) = x(0)

c(j) = x(1)

End If

Loop

Close #1

Text1 = ""

Text2 = ""

End Sub

1、对于文件的 *** 作vb提供了open语句、print #语句、input #语句等语句来处理文件。

2、读取多行文本，可以使用Line input #语句，一行行读取，再连接在一起，这种方法对大一点txt文件效率不高。

3、下面提供一个高效率、一次性读入所有文本的vb6示例：

Private Sub Command1_Click()

  Dim r

  Open "d:\readmetxt" For Binary As #1

  r = StrConv(InputB(LOF(1), 1), vbUnicode)

  Close #1

  

  DebugPrint r

  

End Sub

TXT指什么？是文本文件还是文本框？

文本文件：

Option Explicit

Private Sub Command1_Click()

Dim SZtxt() As String

Dim d() As String

Dim n As Integer

Dim LinStr As String

Dim i As Integer

n = 0

Open "c:\1122txt" For Input As #1 '以读的方式打开文件

Do While Not EOF(1) ' 循环至文件尾

n = n + 1

ReDim Preserve SZtxt(1 To n) As String '数组增加1个元素

Line Input #1, LinStr '读入一行用户名

d = Split(LinStr, ",")

SZtxt(n) = d(2)

Loop

Close #1 ' 关闭文件。

End Sub

文本框：

Dim SZtxt() As String

Dim d() As String

Dim ls() As String

Dim LinStr As String

Dim i As Integer

LinStr = Trim(Text1Text)

ls = Split(LinStr, vbCrLf)

ReDim SZtxt(UBound(ls)) As String

For i = 0 To UBound(ls) - 1

d = Split(ls(i), ",")

SZtxt(i + 1) = d(2)

Next i

你好!

1、对于TXT文件,用什么语言都不能实现任意10条内容,只能从头开始读取；但可能有变通的办法：先产生一个随机数，打开TXT文件，从头开始读取数据，当已读取的数据=随机数时，开始将读取的数据放到变量中，连续存放10个；

2、用OFFICE的WORD文档控件的DLL链接到VB中，在VB中创建一个WORD文档工作平台（空间）,将10个数据写入到该文档中，文档取名为>

以上就是关于VB获取txt指定内容全部的内容，包括:VB获取txt指定内容、vb如何读取多行txt文本、VB6.0读取TXT内容等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！