分太少了
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并锋裤枯将其赋银洞予某变量。纯镇
Debug.Print TextLine ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。
按钮的代培者码大手自己写调用下面函数就可以了
Function 读取指定行文本内容(文本路径, 行数)
Dim fso,myfile,i,flag,tempp
flag = 1
Set fso=CreateObject("scripting.FileSystemObject")
If fso.FileExists(文本路径) then
Set myfile = fso.openTextFile(文本路径,1,false)
Else
flag = 0
End If
For i=1 To 行数 - 1
If Not myfile.AtEndOfLine Then
myfile.SkipLine
tempp = myfile.Line
Next
If flag = 1 Then
读取指定行文本内容 = myfile.ReadLine
读取指定行文本内容 = "溢出！"
myfile.close
读取指定行文本内容 = "文件不存在！"
End Function
sub 写入剪切版(内容)
dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank"配仿薯)
objIE.document.parentwindow.clipboardData.SetData "Text", 内容
Set objIE = Nothing
End sub
Dim myStr() As String = Split(File.ReadAllText("贺孙data1.txt"), vbCrLf) '读取data1
'myStr(0)表示禅高链第一行
'myStr(1)表示第二行
System.IO.File.WriteAllText("data2.txt", myStr(0) ◆ vbCrLf ◆ myStr(1))'写入念埋data2
以上就是土嘎嘎小编大虾米为大家整理的如何vb应用程序内读取文件相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！