本帖最后由 binghc 于 2010-11-14 21:21 编辑
回复 15# kn007
你是说这个录像软件？
这是下载地址：
http://ys-g.ys168.com/?屏幕录像专家V7.5绿色完美破解版.rar_71ejtjs5bs0bt0bkit7bt0cl5bt2bi5bs7bikt2biu14z97f14z
回复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 于 2010-11-14 21:30 编辑
回复 17# kn007
不要单击这个链接，这是个真实的下载地址，右击，然后迅雷下载
正在下载3.3.1.4第一汉化版。。。。
回复kn007
不要单击这个链接，这是个真实的下载地址，右击，然后迅雷下载
binghc 发表于 2010-11-14 21:25 http://www.autoitx.com/images/common/back.gif
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 文件创建成功，开始下载数据......
360报毒啊，郁闷。。。。。
现在正常了：
马上进入本题的主题。。。。
我郁闷了。。。
回复 22# binghc
难道这就是正题？
回复 23# 3mile
还没开始呢，就。。。。。。。。。
我想说说三个符号：@CR、@LF.@CRLF
更换版本中。。。。。。
我这里测试正常。。。。
本帖最后由 binghc 于 2010-11-14 22:36 编辑
现在正常了，进入本贴主题。。。
测试代码：
$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 于 2010-11-14 23:05 编辑
每行后面有两个@CR
可以看下图，源字符串的换行格式为 CRLF + CR
而 Msgbox 对 @CR 也是做换行显示的~
#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)
又有怪事发生了，大家请看：
这个文件是用26#代码生成的“result.txt”
测试代码
#include<file.au3>
$file='result.txt'
$s=_FileCountLines($file)
MsgBox(0,'',$s)
这个代码用函数_FileCountLines读取文件总行数，结果却是：
本帖最后由 binghc 于 2010-11-15 11:28 编辑
看看这个录像：对这个代码生成的result文本进行复制，再到其地方粘贴，就会发现，这个代码用@CRLF生成的文件是怎么回事
这是该录像网盘地址，有效期30天
http://u.115.com/file/f0b14067a