vb读取txt文件到textbox vb读取txt文件到textbox1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For Random As gfilenum len=3\'以随即方式打开一文件如果文件不存在就新建用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作close #filenum\'关闭文件以下为顺序方式打开的文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For output As gfilenum \'以写入方式打开文本print #gfilenum,要写入的文本write #filenumber,要写入的文本dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For input As gfilenum \'以读出方式打开文本input #gfilenum ,用来放读取的内容的内存变量名还可用line input#,input()等读取更详细的查msdn2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。
如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)出现错误：Run-time error \'5\':Invalid procedure call or argument如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt)"则不会报错。
用文件对象啊FileSystemControl操作就好了啊再加上一个TextStream读取文件第一行就好了啊。
3.VB通过FileSystemObject,可以读取文本文件(.txt)。
对于.bat文件，VB可否直接读取?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 SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFileOpen 文件名For Binary As #TempFilePut #TempFile,,SaveBytesClose TempFile4.打开文本文件open app.path &"/你的文本文件名.txt" for output as #1 =text1.textMessage.Phone=text2.text.......................message.PostCode=text5.textPut #1,i,Message \'(此处i=1,如要多次写入,可用循环设置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()Const ForReading = 1, ForWriting = 2Dim fso, fDim SkipLineInFile As StringSet 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)SkipLineInFile = f.readallDebug.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内容写入文本文件：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 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.如何操作“文本文件”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 to 12of.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 lensss = ss & Chr(Asc(Mid(s, i, 1)) - lens - i)Nextnnnn = ssEnd FunctionPublic 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 lensss = 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 &HFFNext I13.怎么判断一个文本文件是否打开？判断如果没打开就删除该文本文件！要用到FileSystemObject 对象的FileExists 和deletefile方法if dir(myfile)="" then exit subFileNumber = FreeFile \' 取得未使用的文件号。