sppk.net
当前位置:首页 >> vB读取文本文件某行的内容 >>

vB读取文本文件某行的内容

VB可以使用二进制方式打开文本文件,以Get 语句读到字节数组,再使用StrConv 函数将其转换为字符串,而后使用Split函数文本的字符串数组及总句数,使用InputBox 函数来输入需要读某行文本。 Get 语句 将一个已打开的磁盘文件读入一个变量之中。 ...

1个Split就能解决你的问题 Dim lie() As String Open App.Path & "\*.txt" For Input As #1 ' 打开你的*.txt文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 lie = Split(TextLine, ";"...

用Open打开文件,然后用Line行读取即可。 代码如下: Dim tempStr as String '定义变量tempStr为字符串Open "C:\Test.txt" For Input As #1 '打开文件While Not EOF(1) '读取到结束 Line Input #1, tempStr '读取一行到变量tempStr'对应的处理We...

Dim TextLine Dim ret as String Open "目录\a.txt" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 '这时就是取到的第一行的值了,如果你确定每行都是这种格式...

Private Sub Command1_Click() Open "C:\123.txt" For Input As #1 n = 0 Do While Not EOF(1) Line Input #1, a n = n + 1 If n = 3 Then Text1.Text = a Exit Do End If Loop Close #1 End Sub 这样就可以了。用n来控制行数。当到达了第三行,...

'这个代码有要求:每个数据不能大于8个字符(tab键默认的所占的字符长度) Private Sub Form_Click() '请点击窗体 Me.Cls Dim xRow, yLine, i, j As Long, Temp As String, Arr(1 To 99) As String xRow = Val(InputBox("输入行数:")) yLine = ...

Private Sub Command1_Click() i = 0 n = InputBox("请输入要读取的行数") Open "d:\1.txt" For Input As #1 Do Until i = Val(n) Line Input #1, a i = i + 1 Loop Print a Close End Sub

Dim xx() As String, aa As IntegerPrivate Sub Command1_Click()Text1.Text = "" '清空文本框,这样可以多次点击按钮得到不同的内容Dim zz As IntegerRandomizezz = Int(Rnd * aa + 1) '得到一个随机数Text1.Text = xx(zz) '在文本框显示随机数...

那也得全部读取 Function dq(Path_txt As String, n As Integer) As String Dim a As String, i As Integer Open Path_txt For Input As #1 Do While Not EOF(1) Line Input #1, a i = i + 1 If i = n Then dq = a LoopEnd Function

Line Input就是每次读取一行,n = n + 1就是每次读取一行时就把n递增1,所以程序运行完毕后n就是行数了。 还有更简单的方法: Open "c:\1.txtt" For Binary As #1 MsgBox "文件有 " & UBound(Split(Input(LOF(1), #1), vbCrLf)) + 1 & " 条记录...

网站首页 | 网站地图
All rights reserved Powered by www.sppk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com