[已解决]对回车符@CR换行符@LF还有@CRLF的疑问（好奇怪，我要疯掉了）

binghc

回复 15# kn007


    你是说这个录像软件？

这是下载地址：

http://ys-g.ys168.com/?屏幕录 ... s7bikt2biu14z97f14z

kn007

回复  kn007


    你是说这个录像软件？

这是下载地址：

屏幕录像专家V7.5绿色完美破解版.rar_7 ...
binghc 发表于 2010-11-14 21:20 <a target=_blank href="http://www.autoitx.com/images/common/back.gif"><img style="border:1px solid black" alt="http://www.autoitx.com/images/common/back.gif" src="http://www.autoitx.com/images/common/back.gif"></a>

    对，而且期待你的问题。。。因为我也想知道。。。
ys168不支持外链

binghc

回复 17# kn007


    不要单击这个链接，这是个真实的下载地址，右击，然后迅雷下载


正在下载3.3.1.4第一汉化版。。。。

kn007

回复  kn007


    不要单击这个链接，这是个真实的下载地址，右击，然后迅雷下载
binghc 发表于 2010-11-14 21:25

    2010-11-14 21:28:22 开始连接......
2010-11-14 21:28:22 开始搜索候选资源......
2010-11-14 21:28:24 搜索到1个候选资源
2010-11-14 21:28:24 使用候选资源进行连接......
2010-11-14 21:28:24 没搜索到候选资源，稍后重试搜索
2010-11-14 21:28:25 原始资源得到的文件长度太小，抛弃
2010-11-14 21:28:29 开始创建文件......
2010-11-14 21:28:30 文件创建成功，开始下载数据......

binghc

360报毒啊，郁闷。。。。。

binghc

现在正常了：



马上进入本题的主题。。。。

binghc

我郁闷了。。。

3mile

回复 22# binghc
难道这就是正题？

binghc

回复 23# 3mile


    还没开始呢，就。。。。。。。。。

我想说说三个符号：@CR、@LF.@CRLF

更换版本中。。。。。。

yeqing880

我这里测试正常。。。。

binghc

现在正常了，进入本贴主题。。。

测试代码：

$fileA = 'a.txt'
$fileB = 'b.txt'
$StrA = FileRead($fileA)
$StrB = FileRead($fileB)
$StrA = StringRegExp($StrA, '(?m)^.*', 3)
$StrB = StringRegExp($StrB, '(?m)^.*', 3)
If UBound($StrA) <> UBound($StrB) Then
        MsgBox(0, '', $fileA & ':' & UBound($StrA) & ' 不等于 ' & $fileB & ':' & UBound($StrB))
        Exit
EndIf
Dim $STR3
For $i = 0 To UBound($StrA) - 1
        $STR3 &= $StrA[$i] & @CRLF & $StrB[$i] & @CRLF
Next
$resultfile = 'result.txt'
If FileExists($resultfile) Then FileDelete($resultfile)
FileWrite($resultfile, $STR3)
$str = FileRead($resultfile)
ShellExecute($resultfile)
MsgBox(0, '结果', $str)

中间很长的MSGBOX是从右上角的result.txt读出来的，为什么这个文本文件中间没有空白行，而msgbox显示了这么多空白行

现在再看一下这个msgbox最后两行。。。却又没有空行!!

回头再看看代码中的$STR3所用的换行是用@CRLF连接的

afan

每行后面有两个@CR
可以看下图，源字符串的换行格式为 CRLF + CR

而 Msgbox 对 @CR 也是做换行显示的~

3mile

#include <array.au3>
$fileA = 'a.txt'
$fileB = 'b.txt'
$StrA = FileRead($fileA)
$StrB = FileRead($fileB)
$StrA = StringRegExp($StrA, '(?m)^.*', 3)
$StrB = StringRegExp($StrB, '(?m)^.*', 3)
If UBound($StrA) <> UBound($StrB) Then
        MsgBox(0, '', $fileA & ':' & UBound($StrA) & ' 不等于 ' & $fileB & ':' & UBound($StrB))
        Exit
EndIf
Dim $STR3=''
For $i = 0 To UBound($StrA) - 1
    $STR3 &= $StrA[$i] & @CRLF & $StrB[$i] & @CRLF
Next
MsgBox(0,'@crlf',$STR3)

Dim $STR3=''
For $i = 0 To UBound($StrA) - 1
    $STR3 &= $StrA[$i] & @LF & $StrB[$i] & @LF
Next
MsgBox(0,'@crlf',$STR3)

Dim $STR3=''
For $i = 0 To UBound($StrA) - 1
    $STR3 &= $StrA[$i] & @CR & $StrB[$i] & @CR
Next
MsgBox(0,'@crlf',$STR3)

;~ $resultfile = 'resul.txt'
;~ If FileExists($resultfile) Then FileDelete($resultfile)
;~ FileWrite($resultfile, $STR3)
;~ $str = FileRead($resultfile)
;~ ShellExecute($resultfile)
;~ MsgBox(0, '结果', $str)

binghc

又有怪事发生了，大家请看：

这个文件是用26#代码生成的“result.txt”






测试代码

#include<file.au3>
$file='result.txt'
$s=_FileCountLines($file)
MsgBox(0,'',$s)

这个代码用函数_FileCountLines读取文件总行数，结果却是：

binghc

看看这个录像：对这个代码生成的result文本进行复制，再到其地方粘贴，就会发现，这个代码用@CRLF生成的文件是怎么回事

这是该录像网盘地址，有效期30天
http://u.115.com/file/f0b14067a