本文目录一览:
vb6.0 读取文本文件帮助
文件指针是顺序读取的。无法指定到某一行。
假设要读取第50行的文本。
方法1:读取所有文本到字串,然后Split转成行数组。
Function readline(txtpath As String, linenum As Integer) As String
Dim filetxt As String, x As Variant, i As Integer
filetxt = String(FileLen(txtpath), " ")
Open txtpath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
If linenum UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Function
If linenum = UBound(x) Then readline = x(linenum - 1)
Set x = Nothing
End Function
Private Sub Command1_Click()
MsgBox readline("c:\1.txt", 50)
End Sub
方法2:一行一行的读到指定行。
Dim szFileName As String
Dim szInputData As String
Dim i As Integer
szFileName = App.Path "\1.txt"
Open szFileName For Input As #1
Do While Not EOF(1)
i = i + 1
If i = 50 Then
Line Input #1, szInputData
Text1.Text = szInputData
End If
Loop
Close #1
vb6.0读写文件?
读文件
Dim s As String
Dim filename As String
filename = shuxiang xingzuo ".txt"
Open filename For Input As #1
Do While Not EOF(1)
Line Input #1, s
Print s
Loop
Close #1
追加写文件
Dim i As Integer, n As Integer, a(6) As Integer
n = 6
Open "D:\1122.txt" For Append As #1
Randomize
For i = 1 To n
a(i) = Int(Rnd * 1000 + 1)
Print #1, a(i)
Next i
Close #1
覆盖写文件
Dim i As Integer, n As Integer, a(6) As Integer
n = 6
Open "D:\1122.txt" For output As #1
Randomize
For i = 1 To n
a(i) = Int(Rnd * 1000 + 1)
Print #1, a(i)
Next i
Close #1
VB6.0读取TXT内容
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:\1122.txt" 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(Text1.Text)
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