从一个文件中读出，写入另一个文件，为什么文件大小不一样？-CSDN论坛

⋅求救求救，百思不得其解，无法显示微信二维码，解决了再加分！！！！！ ⋅调用Invoke，传递多个参数，JS中只能弹出一个参数，请大神们帮忙看看 ⋅com组件如何异步调用js函数？ 更多帖子 关注私信空间博客 sky-defender 本版专家分：0 结帖率 98.28%: 很短的一段代码
Dim inChar, inLine As String
    Open "C:\UnitTest.txt" For Input As #1
    Open "C:\Test.txt" For Append As #2
    While Not EOF(1)
        Line Input #1, inChar
        Print #2, inChar
    Wend
    Close #1
    Close #2

操作完成之后，文件#2的大小只有文件#1的一半。

怎么样设置能让他们一样大？

0 2009-08-26 10:18:48

回复数 8 只看楼主引用举报楼主

hanvan 本版专家分：1652: 可能你读取的文件是Unicode编码。
为了保证一抹一样，用二进制读写。。

0 2009-08-26 10:26:33

只看TA 引用举报 #1 得分 8

⋅求救求救，百思不得其解，无法显示微信二维码，解决了再加分！！！！！ ⋅调用Invoke，传递多个参数，JS中只能弹出一个参数，请大神们帮忙看看 ⋅com组件如何异步调用js函数？ 更多帖子 关注私信空间博客 sky-defender 本版专家分：0: 采用二进制读取，写入，文件大小倒是一样了，但是#2的文件很难看
   Dim inChar As Byte
    Open "C:\UnitTest.txt" For Binary As #1
    Open "C:\Test.txt" For Binary As #2
    While Not EOF(1)
        Get #1, , inChar
        Put #2, , inChar
    Wend
    Close #1
    Close #2
文件#1
<1> __CallBackTest.cpp test start...
OK ------------------- Time:    31 ms,  Condition: S_OK == m_pCosVisObject->ForceUpdate()
OK ------------------- Time:   453 ms,  Condition: S_OK == m_pCosVisObject->ReleaseICF()
OK ------------------- Time:  5766 ms,  Condition: S_OK == m_pCosVisObject->Initialize(bstrConfigeFileName)
OK ------------------- Time:     0 ms,  Condition: S_OK == m_pCosVisObject->Invoke( method_name, &sParaSize, &pbyPara, &operation_result )

文件#2
< 1 >   _ _ C a l l B a c k T e s t . c p p   t e s t   s t a r t . . .

O K   - - - - - - - - - - - - - - - - - - -   T i m e :         3 1   m s ,     C o n d i t i o n :   S _ O K   = =   m _ p C o s V i s O b j e c t - > F o r c e U p d a t e ( )

O K   - - - - - - - - - - - - - - - - - - -   T i m e :       4 5 3   m s ,     C o n d i t i o n :   S _ O K   = =   m _ p C o s V i s O b j e c t - > R e l e a s e I C F ( )

O K   - - - - - - - - - - - - - - - - - - -   T i m e :     5 7 6 6   m s ,     C o n d i t i o n :   S _ O K   = =   m _ p C o s V i s O b j e c t - > I n i t i a l i z e ( b s t r C o n f i g e F i l e N a m e )

O K   - - - - - - - - - - - - - - - - - - -   T i m e :           0   m s ,     C o n d i t i o n :   S _ O K   = =   m _ p C o s V i

0 2009-08-26 10:43:51

只看TA 引用举报 #2    得分 0

hanvan 本版专家分：1652: 那是文本编辑器的问题，你用十六进制比较软件比较两个文件就会发现，其实是一抹一样的

0 2009-08-26 11:02:17

只看TA 引用举报 #3 得分 4

⋅用户 namedajipai 在问答区恶意刷贴 ⋅服务器时间不准！ ⋅[BUG报告](IE8)论坛页头多出多余显示 更多帖子 关注私信空间博客 Tiger_Zhao 本版专家分：129864 红花 2017年3月 VB大版内专家分月排行榜第一 2016年12月 VB大版内专家分月排行榜第一 2016年5月 VB大版内专家分月排行榜第一 2016年1月 VB大版内专家分月排行榜第一 2015年12月 VB大版内专家分月排行榜第一 2015年11月 VB大版内专家分月排行榜第一 2015年10月 MS-SQL Server大版内专家分月排行榜第一 2015年9月 VB大版内专家分月排行榜第一 2015年9月 MS-SQL Server大版内专家分月排行榜第一 2015年8月 VB大版内专家分月排行榜第一 2015年8月 MS-SQL Server大版内专家分月排行榜第一 2015年7月 VB大版内专家分月排行榜第一 2015年7月 MS-SQL Server大版内专家分月排行榜第一 2015年6月 VB大版内专家分月排行榜第一 2015年5月 VB大版内专家分月排行榜第一 2015年4月 VB大版内专家分月排行榜第一 2015年3月 VB大版内专家分月排行榜第一 2015年2月 VB大版内专家分月排行榜第一 2014年11月 VB大版内专家分月排行榜第一 2014年9月 VB大版内专家分月排行榜第一 2014年8月 VB大版内专家分月排行榜第一 2014年7月 VB大版内专家分月排行榜第一 2013年7月 VB大版内专家分月排行榜第一 2013年4月 VB大版内专家分月排行榜第一 2010年2月 VB大版内专家分月排行榜第一 2010年1月 VB大版内专家分月排行榜第一 2009年11月 VB大版内专家分月排行榜第一 2009年9月 VB大版内专家分月排行榜第一 2009年8月 VB大版内专家分月排行榜第一 2009年7月 VB大版内专家分月排行榜第一 2009年4月 VB大版内专家分月排行榜第一 2009年3月 VB大版内专家分月排行榜第一 2009年2月 VB大版内专家分月排行榜第一 2009年1月 VB大版内专家分月排行榜第一 2008年6月 VB大版内专家分月排行榜第一 2007年12月 VB大版内专家分月排行榜第一 2007年10月 VB大版内专家分月排行榜第一 2007年9月 VB大版内专家分月排行榜第一 黄花 2016年11月 VB大版内专家分月排行榜第二 2016年1月 MS-SQL Server大版内专家分月排行榜第二 2015年12月 MS-SQL Server大版内专家分月排行榜第二 2015年11月 MS-SQL Server大版内专家分月排行榜第二 2015年5月 MS-SQL Server大版内专家分月排行榜第二 2015年4月 MS-SQL Server大版内专家分月排行榜第二 2015年1月 VB大版内专家分月排行榜第二 2015年1月 MS-SQL Server大版内专家分月排行榜第二 2014年12月 VB大版内专家分月排行榜第二 2014年11月 MS-SQL Server大版内专家分月排行榜第二 2014年9月 MS-SQL Server大版内专家分月排行榜第二 2013年8月 VB大版内专家分月排行榜第二 2013年6月 VB大版内专家分月排行榜第二 2013年5月 VB大版内专家分月排行榜第二 2010年4月 VB大版内专家分月排行榜第二 2010年3月 VB大版内专家分月排行榜第二 2008年12月 VB大版内专家分月排行榜第二 2008年8月 VB大版内专家分月排行榜第二 2008年7月 VB大版内专家分月排行榜第二 2007年11月 VB大版内专家分月排行榜第二 蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三 2015年6月 MS-SQL Server大版内专家分月排行榜第三 2015年3月 MS-SQL Server大版内专家分月排行榜第三 2015年2月 MS-SQL Server大版内专家分月排行榜第三 2014年12月 MS-SQL Server大版内专家分月排行榜第三 2014年10月 VB大版内专家分月排行榜第三 2014年10月 MS-SQL Server大版内专家分月排行榜第三 2014年8月 MS-SQL Server大版内专家分月排行榜第三 2013年9月 VB大版内专家分月排行榜第三 2013年3月 VB大版内专家分月排行榜第三 2012年5月 VB大版内专家分月排行榜第三 2012年4月 VB大版内专家分月排行榜第三 2010年10月 VB大版内专家分月排行榜第三 2010年8月 VB大版内专家分月排行榜第三 2010年7月 VB大版内专家分月排行榜第三 2009年5月 VB大版内专家分月排行榜第三 2008年9月 VB大版内专家分月排行榜第三 2008年4月 VB大版内专家分月排行榜第三 2008年2月 VB大版内专家分月排行榜第三

Dim inLine As String 

    Open "C:\UnitTest.txt" For Input As #1 

    Open "C:\Test.txt" For Output As #2 

    While Not EOF(1) 

        Line Input #1, inLine 

        Print #2, inLine 

    Wend 

    Close #1 

    Close #2

0 2009-08-26 11:09:22

只看TA 引用举报 #4 得分 8

⋅求救求救，百思不得其解，无法显示微信二维码，解决了再加分！！！！！ ⋅调用Invoke，传递多个参数，JS中只能弹出一个参数，请大神们帮忙看看 ⋅com组件如何异步调用js函数？ 更多帖子 关注私信空间博客 sky-defender 本版专家分：0: 引用 4 楼 tiger_zhao 的回复:
VB codeDim inLineAsString
    Open"C:\UnitTest.txt"For InputAs #1
    Open"C:\Test.txt"For OutputAs #2WhileNot EOF(1)
        Line Input #1, inLine
        Print #2, inLineWend
    Close #1
    ¡

这个文件大小不一样

0 2009-08-26 11:17:29

只看TA 引用举报 #5    得分 0

⋅用户 namedajipai 在问答区恶意刷贴 ⋅服务器时间不准！ ⋅[BUG报告](IE8)论坛页头多出多余显示 更多帖子 关注私信空间博客 Tiger_Zhao 本版专家分：129864 红花 2017年3月 VB大版内专家分月排行榜第一 2016年12月 VB大版内专家分月排行榜第一 2016年5月 VB大版内专家分月排行榜第一 2016年1月 VB大版内专家分月排行榜第一 2015年12月 VB大版内专家分月排行榜第一 2015年11月 VB大版内专家分月排行榜第一 2015年10月 MS-SQL Server大版内专家分月排行榜第一 2015年9月 VB大版内专家分月排行榜第一 2015年9月 MS-SQL Server大版内专家分月排行榜第一 2015年8月 VB大版内专家分月排行榜第一 2015年8月 MS-SQL Server大版内专家分月排行榜第一 2015年7月 VB大版内专家分月排行榜第一 2015年7月 MS-SQL Server大版内专家分月排行榜第一 2015年6月 VB大版内专家分月排行榜第一 2015年5月 VB大版内专家分月排行榜第一 2015年4月 VB大版内专家分月排行榜第一 2015年3月 VB大版内专家分月排行榜第一 2015年2月 VB大版内专家分月排行榜第一 2014年11月 VB大版内专家分月排行榜第一 2014年9月 VB大版内专家分月排行榜第一 2014年8月 VB大版内专家分月排行榜第一 2014年7月 VB大版内专家分月排行榜第一 2013年7月 VB大版内专家分月排行榜第一 2013年4月 VB大版内专家分月排行榜第一 2010年2月 VB大版内专家分月排行榜第一 2010年1月 VB大版内专家分月排行榜第一 2009年11月 VB大版内专家分月排行榜第一 2009年9月 VB大版内专家分月排行榜第一 2009年8月 VB大版内专家分月排行榜第一 2009年7月 VB大版内专家分月排行榜第一 2009年4月 VB大版内专家分月排行榜第一 2009年3月 VB大版内专家分月排行榜第一 2009年2月 VB大版内专家分月排行榜第一 2009年1月 VB大版内专家分月排行榜第一 2008年6月 VB大版内专家分月排行榜第一 2007年12月 VB大版内专家分月排行榜第一 2007年10月 VB大版内专家分月排行榜第一 2007年9月 VB大版内专家分月排行榜第一 黄花 2016年11月 VB大版内专家分月排行榜第二 2016年1月 MS-SQL Server大版内专家分月排行榜第二 2015年12月 MS-SQL Server大版内专家分月排行榜第二 2015年11月 MS-SQL Server大版内专家分月排行榜第二 2015年5月 MS-SQL Server大版内专家分月排行榜第二 2015年4月 MS-SQL Server大版内专家分月排行榜第二 2015年1月 VB大版内专家分月排行榜第二 2015年1月 MS-SQL Server大版内专家分月排行榜第二 2014年12月 VB大版内专家分月排行榜第二 2014年11月 MS-SQL Server大版内专家分月排行榜第二 2014年9月 MS-SQL Server大版内专家分月排行榜第二 2013年8月 VB大版内专家分月排行榜第二 2013年6月 VB大版内专家分月排行榜第二 2013年5月 VB大版内专家分月排行榜第二 2010年4月 VB大版内专家分月排行榜第二 2010年3月 VB大版内专家分月排行榜第二 2008年12月 VB大版内专家分月排行榜第二 2008年8月 VB大版内专家分月排行榜第二 2008年7月 VB大版内专家分月排行榜第二 2007年11月 VB大版内专家分月排行榜第二 蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三 2015年6月 MS-SQL Server大版内专家分月排行榜第三 2015年3月 MS-SQL Server大版内专家分月排行榜第三 2015年2月 MS-SQL Server大版内专家分月排行榜第三 2014年12月 MS-SQL Server大版内专家分月排行榜第三 2014年10月 VB大版内专家分月排行榜第三 2014年10月 MS-SQL Server大版内专家分月排行榜第三 2014年8月 MS-SQL Server大版内专家分月排行榜第三 2013年9月 VB大版内专家分月排行榜第三 2013年3月 VB大版内专家分月排行榜第三 2012年5月 VB大版内专家分月排行榜第三 2012年4月 VB大版内专家分月排行榜第三 2010年10月 VB大版内专家分月排行榜第三 2010年8月 VB大版内专家分月排行榜第三 2010年7月 VB大版内专家分月排行榜第三 2009年5月 VB大版内专家分月排行榜第三 2008年9月 VB大版内专家分月排行榜第三 2008年4月 VB大版内专家分月排行榜第三 2008年2月 VB大版内专家分月排行榜第三: 差多少？

0 2009-08-26 15:17:14

只看TA 引用举报 #6 得分 0

⋅2012.12.20，明天准备怎么过？ ⋅2012.12.20，散分啊! ⋅好长时间没来了，一点好玩的都没有 更多帖子 关注私信空间博客 cqq_chen 本版专家分：13982: filecopy

0 2009-08-26 16:01:16

只看TA 引用举报 #7 得分 0

⋅快过年了，好人一生平安。 ⋅关于VB的0、""(空字符串)、Null、Empty、与 Nothing 的区别，升三星散分。 ⋅[已处理] =========================c s d n为何反复要求登录=================== 更多帖子 关注私信空间博客 chinaboyzyq 本版专家分：54077 红花 2010年7月 VB大版内专家分月排行榜第一 2010年6月 VB大版内专家分月排行榜第一 2010年5月 VB大版内专家分月排行榜第一 2010年4月 VB大版内专家分月排行榜第一 黄花 2011年12月 VB大版内专家分月排行榜第二 2011年9月 VB大版内专家分月排行榜第二 2011年8月 VB大版内专家分月排行榜第二 2010年8月 VB大版内专家分月排行榜第二 2009年9月 VB大版内专家分月排行榜第二 蓝花 2012年2月 VB大版内专家分月排行榜第三 2011年11月 VB大版内专家分月排行榜第三 2011年3月 VB大版内专家分月排行榜第三 2011年1月 VB大版内专家分月排行榜第三 2010年3月 VB大版内专家分月排行榜第三 2010年2月 VB大版内专家分月排行榜第三 2009年10月 VB大版内专家分月排行榜第三 2009年8月 VB大版内专家分月排行榜第三: 引用楼主 benbencoco 的回复:
很短的一段代码
Dim inChar, inLine As String
    Open "C:\UnitTest.txt" For Input As #1
    Open "C:\Test.txt" For Append As #2
    While Not EOF(1)
        Line Input #1, inChar
        Print #2, inChar
    Wend
    Close #1
    Close #2

操作完成之后，文件#2的大小只有文件#1的一半。

怎么样设置能让他们一样大？

把C:\UnitTest.txt这个文件用记事本打开,然后选择--->[另存为]-->编码选择-->ANSI,确定.
再用你的程序试试.

0 2009-08-26 17:46:58

只看TA 引用举报 #8    得分 0

从一个文件中读出，写入另一个文件，为什么文件大小不一样？ [问题点数：20分，结帖人benbencoco]