zoukankan      html  css  js  c++  java
  • 关于写文本文件的问题

    马上就要回家了,却突然冒出了好多问题,真的是好烦人!但是也没有办法啊,事终归是要做的,就赶紧抓紧时间处理问题吧!
    昨天碰到一个客户反映他们系统的导出数据有问题,说是什么结果不正确,数据导出不完全!就查了下代码:
    导出数据写txt文本文件代码如下:
        Dim objFileSys As New FileSystemObject
        Dim objStream As TextStream
        Dim strDate As String

        Set objStream = objFileSys.OpenTextFile(App.Path & "\App.Path & "\hr.bin", ForWriting)
        Do While rsAccess.EOF = False
               objStream.WriteLine rsAccess!Field
               rsAccess.MoveNext
        Loop

    在执行过程中,有时没有问题,但是有时候会报出以下信息:
    ”Invalid procedure call or argument“

    单步检查错误,发现问题是在rsAccess!Field上!当rsAccess!Field出现乱码时就会报出以上错误信息!

    找到问题,然后解决之;
    考虑到写文件时正常数据没有问题,只有在写乱码的时候出错,应该是TextStream不支持写这类数据;就改了写文件的方法!代码如下

          Open App.Path & "\hr.bin" For Append As #1
          Print #1, rsAccess!Field
          Close #1
    或者如下:
            Open App.Path & "\hr.bin" For Binary As #1
            Put #1,  rsAccess!Field
            Close #1

    读文件时如下:
            Open App.Path & "\hr.bin"For Input As #1
            While Not EOF(1)
                Line Input #1, str
            Wend

             str即为文本文件内容!




  • 相关阅读:
    汇编语言(王爽) 实验九
    汇编语言(王爽)实验十
    leetcode longest common prefix(easy) /java
    leetcode container-with-most-water(medium) /java
    jdbc 驱动设置
    天上的星星都洒在我身上(mysql重装失败指南)
    leetcode palindrome number(easy) /java
    异常处理
    递归函数
    序列化模块
  • 原文地址:https://www.cnblogs.com/MyFavorite/p/322538.html
Copyright © 2011-2022 走看看