完整word版vb读取txt文件.docx
- 文档编号:1823146
- 上传时间:2022-10-24
- 格式:DOCX
- 页数:15
- 大小:20.53KB
完整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 \'将执行返回到发生错误的语
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完整 word vb 读取 txt 文件
![提示](https://static.bdocx.com/images/bang_tan.gif)