预览加载中，请您耐心等待几秒...

vb读取和写入txt的方法.doc

预览
1/2
2/2

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

(完整word版)vb读取和写入txt的方法(完整word版)vb读取和写入txt的方法(完整word版)vb读取和写入txt的方法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