完整word版vb读取txt文件.docx
《完整word版vb读取txt文件.docx》由会员分享，可在线阅读，更多相关《完整word版vb读取txt文件.docx（15页珍藏版）》请在冰豆网上搜索。
完整word版vb读取txt文件
vb读取txt文件
1.怎么通过代码创建一个文本文件，并读取，更新内容
以上为随即方式打开的文本文件
dimgfilenumasinteger
gfilenum=FreeFile
Open "文件路径及文件名"ForRandomAsgfilenumlen=3
\'以随即方式打开一文件如果文件不存在就新建
用get#gfilenum,记录在文件中位置,要放取得的数据的变量\'读取操作
用put#gfilenum,记录在文件中位置,要放着要写入数据的变量\'写操作
close#filenum\'关闭文件
以下为顺序方式打开的文件
dimgfilenumasinteger
gfilenum=FreeFile
Open "文件路径及文件名"ForoutputAsgfilenum\'以写入方式打开文本
print#gfilenum,要写入的文本
write#filenum,要写入的文本
dimgfilenumasinteger
gfilenum=FreeFile
Open "文件路径及文件名"ForinputAsgfilenum\'以读出方式打开文本
input#gfilenum,用来放读取的内容的内存变量名
还可用lineinput#,input（）等读取更详细的查msdn
2.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：
DimTempFileAsLong
DimLoadBytes（）AsByte
TempFile=FreeFile
Open文件名ForBinaryAs#TempFile
RedimLoadBytes（1ToLof（TempFile））AsByte
Get#TempFile,,LoadBytes
CloseTempFile
Text1.Text=StrConv（LoadBytes,vbUniCode）
把TextBox内容写入文本文件：
DimTempFileAsLong
DimSaveBytes（）AsByte
SaveBytes=StrConv（Text1.Text,vbFromUniCode）
TempFile=FreeFile
Open文件名ForBinaryAs#TempFile
Put#TempFile,,SaveBytes
CloseTempFile
4.
打开文本文件
openapp.path&"/你的文本文件名.txt"foroutputas#1
Message.Name=text1.text
Message.Phone=text2.text
.......................
message.PostCode=text5.text
Put#1,i,Message \'（此处i=1,如要多次写入,可用循环设置i的值）
close#1
\'写入的同时即已保存
查询的话就取出文本里的内容,用instr（）函数就可实现了
5.
查找vbCrLf、vbLf换行标记
6.怎样读取一个文本文件的全部内容
dimlenfileasinteger
dimfilenumasinteger
filenum=freefile（）
open"file.dat"forinputasfilenum
lenfile=lof（#filenum）
strfile=input（lenfile,#filenum）\'将所有数据放入变量strfile中
closefilenum
PrivateSubForm_Load（）
ConstForReading=1,ForWriting=2
Dimfso,f
DimSkipLineInFileAsString
Setfso=CreateObject（"Scripting.FileSystemObject"）
Setf=fso.OpenTextFile（"c:
\\testfile.txt",ForWriting,True）
f.Write"Helloworld!
"&vbCrLf&"VBScriptisfun!
"
Setf=fso.OpenTextFile（"c:
\\testfile.txt",ForReading）
SkipLineInFile=f.readall
Debug.PrintSkipLineInFile
EndSub
7.把文本文件内容读取TextBox：
DimTempFileAsLong
DimLoadBytes（）AsByte
TempFile=FreeFile
Open文件名ForBinaryAs#TempFile
RedimLoadBytes（1ToLof（TempFile））AsByte
Get#TempFile,,LoadBytes
CloseTempFile
Text1.Text=StrConv（LoadBytes,vbUniCode）
8.把TextBox内容写入文本文件：
DimTempFileAsLong
DimSaveBytes（）AsByte
SaveBytes=StrConv（Text1.Text,vbFromUniCode）
TempFile=FreeFile
Open文件名ForBinaryAs#TempFile
Put#TempFile,,SaveBytes
CloseTempFile
9.已知文本文件，要从中搜索一段特定的字符串信息。
如搜索[MAGIC_DATABASES],该怎么做?
dimstrasstring
opencommondialog1.filenameforinput#1
input#1,str
dimwhereasinteger
where=instr（str,"magic_databases"）
10.
LineInput#语句示例
本示例使用LineInput#语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。
本示例假设TESTFILE文件内含数行文本数据。
DimTextLine
Open"TESTFILE"ForInputAs#1 \'打开文件。
DoWhileNotEOF
（1） \'循环至文件尾。
LineInput#1,TextLine \'读入一行数据并将其赋予某变量。
Debug.PrintTextLine \'在立即窗口中显示数据。
Loop
Close#1 \'关闭文件。
11.如何操作“文本文件”
fso（Filesystemobject）对象集中的文件集合里有readline方法。
DimofAsObject
DimfsasObject
dimTextLineasstring
Setfs=createobject（"scripting.Filesystemobject"）
setof=fs.OpenTextFile（app,path+"\\myfile.aaa"）
//myfile.aaa是一个文本文件
textling=of.readline
//如果你要读取第14行，可以用一个循环，跳过前面的13行，如下
dimlopasinteger
forlop=0to12
of.skip
next
//然后再读取
12.
搜索了一下，大家主要用两种方法对文本文件加密。
1.对文本文件的ASC码加减
2.用XOR函数
我发现都有问题举例
1.代码
PublicFunctionnnnn（ByValsAsString）AsString\'解密
OnErrorResumeNext
DimssAsString,iAsByte,lensAsByte
lens=Len（s）
Fori=1Tolens
ss=ss&Chr（Asc（Mid（s,i,1））-lens-i）
Next
nnnn=ss
EndFunction
PublicFunctionmmmm（ByValsAsString）AsString \'加密
OnErrorResumeNext
DimssAsString,iAsByte,lensAsByte
lens=Len（s）
Fori=1Tolens
ss=ss&Chr（Asc（Mid（s,i,1））+lens+1）
Next
mmmm=ss
EndFunction
当文件中有“！
~”时出错
XOR加密
DimIaslong
ForI=1ToUBound（LoadBytes）
LoadBytes（I）=LoadBytes（I）Xor&HFF
NextI
13.怎么判断一个文本文件是否打开？
判断如果没打开就删除该文本文件！
要用到FileSystemObject对象的FileExists和deletefile方法
ifdir（myfile）=""thenexitsub
FileNumber=FreeFile \'取得未使用的文件号。
OnErrorGoToErrorHandler \'打开错误处理程序。
OpenMyFileForOutputAs#FileNumber \'打开输出文件。
Kill"TESTFILE" \'试图删除已打开的文件。
ExitSub \'退出程序，以避免进入错误处理程序。
ErrorHandler:
\'错误处理程序。
SelectCaseErr.Number \'检查错误代号。
Case55 \'发生“文件已打开”的错误。
Close#FileNumber \'关闭已打开的文件。
CaseElse
\'处理其他错误状态...
EndSelect
Resume \'将执行返回到发生错误的语
升级会员 