sppk.net
当前位置:首页 >> vB如何读取文本文件中指定内容 >>

vB如何读取文本文件中指定内容

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

代码: Private Sub Command_Click() Dim a As String Open "C:\\mytext.txt" For Input As #1 Do While Not EOF(1) Line Input #1, a Text1.Text=Text & a & vbCrLf Loop Close #1

Dim A, S As String Dim FreeNum As Integer FreeNum = FreeFile 'Freenum表示一个空闲的文件号 open "D:\date.txt" for input as #FreeNum '这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或...

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来控制行数。当到达了第三行,...

用API函数的ReadStringA命令。 这是给的标准例子: Dim TextLine Open "TESTFILE" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine ' 在立...

Private Sub Form_click() Dim a$ Open "c:\1.txt" For Input As #1 Do Input #1, a Text1.Text = Text1.Text & a & vbCrLf Loop Until EOF(1) Close #1 End Sub 貌似1楼的只能读取1行而已。。

'这个代码有要求:每个数据不能大于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 = ...

dim num() dim i as long i=0 ReDim ri(0) Open "C:\SAM.txt" For Input As #1 ' 打开文件。 Do While Not EOF(1) '循环至文件尾。 Line Input #1, TextLine '读入一行数据并将其赋予某变量。 num(i)=TextLine i=i+1 ReDim Preserve ri(i) Loop ...

VB读取dat文件需要看dat文件是如何写成的,通常应该是以二进制方式来读龋用Get语句来将数据从文件读到变量中。 同样将数据写入dat文件也应使用二进制方式写,用Put语句实现。 以下是Get语句和Put语句的使用实例: Option Explicit Private Type ...

读取: Dim StringA As String Open "(此处输入txt路径)" For Input As #1 Input #1, StringA Close #1 Text1.Text = StringA 写入: Open "(此处输入txt路径)" For Output As #1 Input #1, Text1.Text Close #1 Holihand原创,yzhiyu_123的不行...

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