完整word版vb读取txt文件Word文档格式.docx
《完整word版vb读取txt文件Word文档格式.docx》由会员分享，可在线阅读，更多相关《完整word版vb读取txt文件Word文档格式.docx（15页珍藏版）》请在冰豆网上搜索。
以写入方式打开文本
print#gfilenum,要写入的文本
write#filenum,要写入的文本
ForinputAsgfilenum\'
以读出方式打开文本
input#gfilenum,用来放读取的内容的内存变量名
还可用lineinput#,input（）等读取更详细的查msdn
2.VB读取文本文件时，调用TextStream对象中使用OpenTextFile报错了。
如果是
Setf=fs.OpenTextFile（"
E:
\\table\\trace.txt"
forreading,True,TristateUseDefault）
出现错误：
Run-timeerror\'
5\'
:
Invalidprocedurecallorargument
\\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内容写入文本文件：
DimSaveBytes（）AsByte
SaveBytes=StrConv（Text1.Text,vbFromUniCode）
Put#TempFile,,SaveBytes
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!
ForReading）
SkipLineInFile=f.readall
Debug.PrintSkipLineInFile
EndSub
7.把文本文件内容读取TextBox：
8.把TextBox内容写入文本文件：
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
加密
Chr（Asc（Mid（s,i,1））+lens+1）
mmmm=ss
当文件中有“！
~”时出错
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"
试图删除已打开的文件。
ExitSub
退出程序，以避免进入错误处理程序。
ErrorHandler:
错误处理程序。
SelectCaseErr.Number
检查错误代号。
Case55
发生“文件已打开”的错误。
Close#FileNumber
关闭已打开的文件。
CaseElse
处理其他错误状态...
EndSelect
Resume
将执行返回到发生错误的语
升级会员 