VB文件操作小结.docVIP

下载本文档

4
0
约3.82千字
约 4页
2017-08-10 发布于河南
举报
版权申诉

VB文件操作小结.doc

1、本文档共4页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

*************************************************文件统计替换字符 Private Sub Form_Load() On Error Resume Next Dim Handle As Integer, Filetext As String Handle = FreeFile Open C:\MYDIR\DATA.TXT For Binary As #Handle’打开一个文件（二进制形式打开） Filetext = Space(LOF(Handle)) ‘ Get #Handle, , Filetext Close #Handle 读取文件 Dim A As Long, B As Long A = FileLen(C:\MYDIR\DATA.TXT) B = Len(Replace(Filetext, $, )) 计算差值 Handle = FreeFile Open C:\Mydir\res.txt For Output As #Handle Print #Handle, A - B Close #Handle 保存 End Sub ***************************************读取文件内容到字符串变量 Private ? Sub ? Command1_Click() Dim ? s ? As ? String Open ? c:sql.txt ? For ? Binary ? As ? #1 s=space(lof(1)) get ? #1,1, ? s Close ? #1 Debug.Print ? s end ? sub ********************************************把一个文件复制 dim ? buf ? as ? string Open ? C:\test.txt ? for ? Input ? as ? #1 line ? input#1,buf 当用过后指针本来就是自动到下一行的!你还可以用二进制方式打开文件并自己定义读入或写入多少!! dim ? buf()as ? byte Open ? C:\test.exe ? for ? binary ? as ? #1 redim ? buf(1 ? to ? lof(1)) get#1,,buf close ? #1 open ? D:\test.exe ? for ? binary ? as ? #1 put ? #1,,buf close#1 这个程序实现把C:\test.exe复制到D盘 *********************************************寻找字符 Private Sub Command1_Click() ? ? Dim i As Long ? ? Dim b As Byte ? ? Open c:\demo.dat For Binary As #1 ? ? Do While Not EOF(1) ? ?? ???i = i + 1 ? ?? ???Get #1, , b ? ?? ???If b = Asc(A) Then Print i ? ? Loop ? ? Close End Sub *****************************************直接读文件最后一行 Private ? Sub ? Command1_Click() ? ? ? ? Dim ? Bool ? As ? Boolean ? ? ? ? Dim ? NextChar ? As ? Integer ? ? ? ? Dim ? MaxSize ? As ? Long ? ? ? ? Dim ? Mychar ? As ? String ? ? ? ? Bool ? = ? False ? ? ? ? Open ? e:\123.txt ? For ? Input ? As ? #1 ? ? ? ? Open ? file ? for ? input. ? ? ? ? MaxSize ? = ? LOF(1) ? ? ? ? Get ? size ? of ? file ? in ? bytes. ? ? ? The ? loop ? reads ? all ? characters ? starting ? from ? the ? last. ? ? ? ? For ? NextChar ? = ? MaxSize ? To ? 1 ? Step ? -1 ? ? ? ? Seek ? #1, ? NextCha