vb读取txt文件.doc

(完整word版)vb读取txt文件(完整word版)vb读取txt文件(完整word版)vb读取txt文件vb读取txt文件1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dimgfilenumasintegergfilenum=FreeFileOpen"文件路径及文件名”ForRandomAsgfilenumlen=3\'以随即方式打开一文件如果文件不存在就新建用get#gfilenum，记录在文件中位置,要放取得的数据的变量\’读取操作用put＃gfilenum，记录在文件中位置，要放着要写入数据的变量\’写操作close＃filenum\'关闭文件以下为顺序方式打开的文件dimgfilenumasintegergfilenum=FreeFileOpen"文件路径及文件名”ForoutputAsgfilenum\’以写入方式打开文本print＃gfilenum，要写入的文本write#filenum,要写入的文本dimgfilenumasintegergfilenum=FreeFileOpen"文件路径及文件名"ForinputAsgfilenum\'以读出方式打开文本input＃gfilenum，用来放读取的内容的内存变量名还可用lineinput＃，input()等读取更详细的查msdn2.VB读取文本文件时，调用TextStream对象中使用OpenTextFile报错了。如果是Setf=fs。OpenTextFile("E：\\table\\trace.txt”,forreading，True，TristateUseDefault)出现错误：Run-timeerror\'5\':Invalidprocedurecallorargument如果是Setf=fs.OpenTextFile("E：\\table\\trace。txt)"则不会报错.用文件对象啊FileSystemControl操作就好了啊再加上一个TextStream读取文件第一行就好了啊。3.VB通过FileSystemObject，可以读取文本文件(。txt).对于。bat文件，VB可否直接读取?bat也属于文本类文件可以读取不用FSO也行:把文本文件内容读取TextBox:DimTempFileAsLongDimLoadBytes()AsByteTempFile=FreeFileOpen文件名ForBinaryAs＃TempFileRedimLoadBytes(1ToLof(TempFile))AsByteGet＃TempFile,,LoadBytesCloseTempFileText1.Text=StrConv(LoadBytes，vbUniCode)把TextBox内容写入文本文件：DimTempFileAsLongDimSaveBytes（)AsByteSaveBytes=StrConv(Text1.Text,vbFromUniCode）TempFile=FreeFileOpen文件名ForBinaryAs＃TempFilePut＃TempFile，，SaveBytesCloseTempFile4。打开文本文件openapp。path&”/你的文本文件名。txt"foroutputas＃1Message。Name=text1.textMessage。Phone=text2。text.。.。...。。.。。..。.。...。。.message.PostCode=text5。textPut#1,i,Message\'（此处i=1，如要多次写入,可用循环设置i的值）close#1\'写入的同时即已保存查询的话就取出文本里的内容，用instr()函数就可实现了5.查找vbCrLf、vbLf换行标记6.怎样读取一个文本文件的全部内容dimlenfileasintegerdimfilenumasintegerfilenum=freefile（）open"file。dat"forinputasfilenumlenfile=lof(＃filenum)strfile=input(lenfile，#filenum)\’将所有数据放入变量strfile中closefilenumPrivateSubForm_Load（）ConstForReading=1，ForWriting=2Dimfso,fDimSkipLineInFileAsStringSetfso=CreateObject（"Scripting。FileSystemObject”)Setf=fso.OpenTextFile("c:\\testfile.txt"，ForWriting,True）f。Write"Helloworld!"&vbCrLf＆”VBScriptisfun