vb读取txt的方法-写入txt的方法SubWriteLineN(NAsInteger,FileNameAsString,strTAsString,InsertSAsBoolean)'功能:向FileName文件的第N行,写入strT'参数InsertS为True时,插入False时改写OpenFileNameForInputAs#1WhileNotEOF(1)LineInput#1,sS1=S1&s&IIf(EOF(1),"",vbCrLf)WendClose#1Dimaa=Split(S1,vbCrLf)IfN>UBound(a)+1Thena(UBound(a))=IIf(InsertS,a(UBound(a))&vbCrLf,"")&strTElsea(N-1)=strT&IIf(InsertS,vbCrLf&a(N-1),"")EndIfOpenFileNameForOutputAs#1Print#1,Join(a,vbCrLf)Close#1EndSub调用方法:PrivateSubCommand1_Click()WriteLineN1,"c:\tt2.txt",Text1.Text,False'将第一个文本框的内容,改写到文件的第1行EndSub