大家好，如果您还对vb中如何读取文本文件不太了解，没有关系，今天就由本站为大家分享vb中如何读取文本文件的知识，包括vb读取txt文件解决办法的问题都会给大家分析到，还望可以解决大家的问题，下面我们就开始吧！
本文目录
VB读写文件
'显示所选择的文本文件的内容,流操作，读文件 PrivateSubshowtxt() DimaeAsNewASCIIEncoding() DimstrAsString Dimstr1AsString Dimbytes(1000)AsByte DimnodeAsTreeNode node=Me.TreeView1.SelectedNode str=getpath(node) fs=NewFileStream(str,FileMode.Open) fs.BeginRead(bytes,0,1000,AddressOfendread,NewObject()) str1=ae.GetString(bytes) Me.TextBox2.Text=str1 IfErr.Number<>0Then MsgBox(打开文件失败！) Else MsgBox(打开文件成功！) EndIf EndSub PrivateSubendread(ByVallAsIAsyncResult) fs.EndRead(l) fs.Close() EndSub
VB编程如何将*.txt文件中的数据读入到数组
dimstrlineasstringdima()dimiasintegeropenapp.path+"\1.txtforinputas#1dountileof(#1)i=i+1lineinput#1,strlineredimpreservea(i)a(i-1)=strlineloop
vb中如何读取文本文件
1.双击Command1添加如下代码
PrivateSubCommand1_Click()
DimstrFileAsString
DimintFileAsInteger
DimstrDataAsString
strFile="c:\学生成绩.txt"
intFile=FreeFile
OpenstrFileForInputAsintFile
strData=StrConv(InputB(FileLen(strFile),intFile),vbUnicode)
Debug.PrintstrData
CloseintFile
EndSub
2.运行代码读取文件
按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
3.关键代码说明
intFile=FreeFile：获取一个文件句柄
OpenstrFileForInputAsintFile：打开文件
FileLen(strFile)：获取文件内容字节大小
InputB：读取文件内容字节流
StrConv：将字节流转换为Unicode字符串
Debug.PrintstrData：将字符串内容输出到立即窗口
CloseintFile：关闭文件句柄
vb如何读取文本文件中指定内容
答：vb读取文本文件中指定内容方法：
privatesubcommand1_click()
open"c:\123.txt"forinputas#1
n=0
dowhilenoteof(1)
lineinput#1,a
n=n+1
ifn=3then
text1.text=a
exitdo
endif
loop
close#1
endsub
这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。
关于vb中如何读取文本文件的内容到此结束，希望对大家有所帮助。
