完整word版vb读取txt文件.docx

1、完整word版vb读取txt文件vb读取txt文件1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dim gfilenum as integergfilenum = FreeFileOpen 文件路径及文件名 For Random As gfilenum len=3以随即方式打开一文件如果文件不存在就新建用get #gfilenum ,记录在文件中位置,要放取得的数据的变量读取操作用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量写操作close #filenum关闭文件以下为顺序方式打开的文件dim gfilenum as integerg

2、filenum = FreeFileOpen 文件路径及文件名 For output As gfilenum 以写入方式打开文本print #gfilenum,要写入的文本write #filenum,要写入的文本dim gfilenum as integergfilenum = FreeFileOpen 文件路径及文件名 For input As gfilenum 以读出方式打开文本input #gfilenum ,用来放读取的内容的内存变量名还可用line input#,input()等读取更详细的查msdn2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFil

3、e报错了。如果是Set f = fs.OpenTextFile(E:tabletrace.txt, forreading, True, TristateUseDefault)出现错误：Run-time error 5:Invalid procedure call or argument如果是Set f = fs.OpenTextFile(E:tabletrace.txt)则不会报错。用文件对象啊FileSystemControl操作就好了啊再加上一个TextStream读取文件第一行就好了啊。3.VB通过FileSystemObject,可以读取文本文件(.txt)。对于.bat文件，VB可否

4、直接读取?bat也属于文本类文件可以读取不用FSO也行：把文本文件内容读取TextBox：Dim TempFile As LongDim LoadBytes() As ByteTempFile=FreeFileOpen 文件名 For Binary As #TempFileRedim LoadBytes(1 To Lof(TempFile) As ByteGet #TempFile,LoadBytesClose TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：Dim TempFile As LongDim Save

5、Bytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFileOpen 文件名 For Binary As #TempFilePut #TempFile,SaveBytesClose TempFile4.打开文本文件 open app.path &/你的文本文件名.txt for output as #1 Message.Name=text1.text Message.Phone=text2.text . message.PostCode=text5.textPut #1,i,Message (此处i=1,

6、如要多次写入,可用循环设置i的值)close #1写入的同时即已保存查询的话就取出文本里的内容,用instr()函数就可实现了5.查找vbCrLf、vbLf换行标记6.怎样读取一个文本文件的全部内容dim lenfile as integerdim filenum as integerfilenum=freefile()open file.dat for input as filenumlenfile=lof(#filenum)strfile=input(lenfile,#filenum)将所有数据放入变量strfile中close filenumPrivate Sub Form_Load()

7、 Const ForReading = 1, ForWriting = 2 Dim fso, f Dim SkipLineInFile As String Set fso = CreateObject(Scripting.FileSystemObject) Set f = fso.OpenTextFile(c:testfile.txt, ForWriting, True) f.Write Hello world! & vbCrLf & VB Script is fun! Set f = fso.OpenTextFile(c:testfile.txt, ForReading) SkipLineI

8、nFile = f.readall Debug.Print SkipLineInFileEnd Sub7.把文本文件内容读取TextBox：Dim TempFile As LongDim LoadBytes() As ByteTempFile=FreeFileOpen 文件名 For Binary As #TempFileRedim LoadBytes(1 To Lof(TempFile) As ByteGet #TempFile,LoadBytesClose TempFileText1.Text=StrConv(LoadBytes,vbUniCode)8. 把TextBox内容写入文本文件：

9、Dim TempFile As LongDim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFileOpen 文件名 For Binary As #TempFilePut #TempFile,SaveBytesClose TempFile9.已知文本文件，要从中搜索一段特定的字符串信息。如搜索MAGIC_DATABASES,该怎么做?dim str as stringopen commondialog1.filename for input #1input #1, strdim where

10、 as integerwhere = instr(str,magic_databases)10.Line Input # 语句示例本示例使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。Dim TextLineOpen TESTFILE For Input As #1 打开文件。Do While Not EOF(1) 循环至文件尾。 Line Input #1, TextLine 读入一行数据并将其赋予某变量。 Debug.Print TextLine 在立即窗口中显示数据。LoopClose #1 关闭

11、文件。11.如何操作“文本文件”fso(Filesystemobject)对象集中的文件集合里有readline方法。Dim of As ObjectDim fs as Objectdim TextLine as stringSet fs=createobject(scripting.Filesystemobject)set of=fs.OpenTextFile(app,path+myfile.aaa)/myfile.aaa 是一个文本文件textling=of.readline/如果你要读取第14行，可以用一个循环，跳过前面的13行，如下dim lop as integerfor lop=0

12、 to 12 of.skipnext/然后再读取12.搜索了一下，大家主要用两种方法对文本文件加密。1.对文本文件的ASC码加减2.用XOR函数我发现都有问题举例1.代码Public Function nnnn(ByVal s As String) As String 解密On Error Resume NextDim ss As String, i As Byte, lens As Bytelens = Len(s)For i = 1 To lens ss = ss & Chr(Asc(Mid(s, i, 1) - lens - i)Nextnnnn = ssEnd FunctionPubl

13、ic Function mmmm(ByVal s As String) As String 加密On Error Resume NextDim ss As String, i As Byte, lens As Bytelens = Len(s)For i = 1 To lens ss = ss & Chr(Asc(Mid(s, i, 1) + lens + 1)Nextmmmm = ssEnd Function当文件中有“！”时出错XOR加密Dim I as longFor I=1 To UBound(LoadBytes) LoadBytes(I)=LoadBytes(I) Xor &HFFN

14、ext I13.怎么判断一个文本文件是否打开？判断如果没打开就删除该文本文件！要用到FileSystemObject 对象的 FileExists 和 deletefile方法if dir(myfile)= then exit subFileNumber = FreeFile 取得未使用的文件号。On Error GoTo ErrorHandler 打开错误处理程序。Open MyFile For Output As #FileNumber 打开输出文件。Kill TESTFILE 试图删除已打开的文件。Exit Sub 退出程序，以避免进入错误处理程序。ErrorHandler: 错误处理程序。 Select Case Err.Number 检查错误代号。 Case 55 发生“文件已打开”的错误。 Close #FileNumber 关闭已打开的文件。 Case Else 处理其他错误状态 . . . End Select Resume 将执行返回到发生错误的语