'循环读取,直到文件末尾。 Do Until EOF(1) '通过line input方法读取文件#1,并赋值给strline变量。一次读取一行。 Line Input #1, strLine ActiveCell = strLine ActiveCell.Offset(1, 0).Select Loop '关闭文件#1--打开的文件一定要关。 Close #1 End Sub Sub WriteToTextFile() Dim FileName As String D...
Do Until EOF(1) Line Input #1, line ' 进行处理操作 Loop ``` 通过使用EOF函数,我们可以判断文件是否已读取完毕。在每次循环中,使用Line Input语句将一行内容读取到line变量中,并在需要时进行处理。 方法二:写入和保存文本文件 除了读取文件,VBA还提供了写入和保存文本文件的功能。您可以使用Open语句打开文件,...
Sub Test0412()Dim I As IntegerDim src As StringI = 1Open "D:\Test.txt" For Input As #1Do Until EOF(1) Line Input #1, src Sheets("ReadFile").Range("A" & I) = src I = I + 1LoopClose #1End Sub 上面代码执行后,发现把txt文本的内容都读到一个格子里面去了,并不是我们想要的结果...
1 这个是一个有效的文件号，范围在1到511之间。一般的用法是给一个变量 fnum=FreeFile open "c:\text.txt" for input as #fnum EOF(1)是End Of File的意思，表示到达文件的结尾处。一般使用Do...Loop循环加上EOF函数来循环获得文本文件的每一行数据 Chr(13)已经有解释了 ...
Do Until EOF(1) '循环复制操作直到test1.txt文件末尾 Line Input #1, Content '按行复制内容到粘贴板 Print #2, Content '把内容写入Firsthalf.txt中 Loop Close #1 '关闭test1.txt文件 '把后半段的坐标插入Firsthalf+test1的后面 Secondhalf = ThisWorkbook.Path & "\Secondhalf.txt" '读取Secondhalf.txt...
Filename, 0 Open Filename For Binary As #1 DoEvents index = 1 Do Until EOF(1)Get #1, index, B If B = 67 Then index = index + 1 Get #1, index, B If B = 77 Then index = index + 1 Get #1, index, B If B = 71 Then Put #1, index + 1, 10 End If End If Else ...
Close 1 Open Filename For Binary As #1 index = 1 Do Until EOF(1) Get #1, index, B If B = 71 Then index = index + 1 Get #1, index, B If B = 67 Then Put #1, index + 1, 10 End If Else index = index + 1 End If ...
Do Until EOF(1) '当指针越界时结束循环 Line Input #1, str '按行读取到变量中 k = k + 1 '累加 ReDim Preserve ar(1 To 1, 1 To k) As Variant '扩展数组 ar(1, k) = str '写入到数组中 Loop Close #1 '关闭1号文件 Kill iPt '杀列iPt文件(彻底删除,非放入回收站)'将数组...
Set fs = CreateObject("Scripting.FileSystemObject")strBomName = fs.getfilename(路径)Set fs = Nothing Open strBomDir For Input As #1 Do While Not EOF(1)intLine = intLine + 1 Line Input #1, strLine Loop 你可以参考下 数据存在Strline里 ...
(1) 参数filename 和filenumber 分别表示文件名或文件号. (2)关键字Binary 表示打开的是二进制文件 (3)对于二进制文件,不能指定字节长度.每个打开的二进制文件都有一个自己的指针,文件指针是一个数字值,指向下一次读写操作的文件中的位置.二进制文件中的每个”位置”对应一个数据字节,因此,有n个字节的文件,就...