本帖最后由 binghc 于 2010-11-15 19:41 编辑
这是a.txt00000000000000000000000
11111111111111111111111
22222222222222222222222
33333333333333333333333
44444444444444444444444
55555555555555555555555
66666666666666666666666
77777777777777777777777
88888888888888888888888
99999999999999999999999
这是b.txt第一章 平安夜的堕落天使
第二章 女生不能召之即来
第三章 补英语是一门艺术
第四章 仇富是穷人的义务
第五章 温士顿广场的圆舞
第六章 玩游戏付出的感情
第七章 公车是暧昧的摇篮
第八章 明天请帮我买早饭
第九章 如此无辜的闭上眼
第十章 梦中是谁偷吻了谁
测试代码:
$fileA = 'a.txt'
$fileB = 'b.txt'
$StrA = FileRead($fileA)
$StrB = FileRead($fileB)
$StrA = StringRegExp($StrA, '(?m)^.*', 3)
MsgBox(0, '', $StrB)
$StrB = StringRegExp($StrB, '(?m)^.*', 3)
MsgBox(0, '', 'b.txt数组维度:' & UBound($StrB))
For $i = 0 To UBound($StrB) - 1
MsgBox(0, '', $StrB[$i])
Next
Exit
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 = 'resul.txt'
If FileExists($resultfile) Then FileDelete($resultfile)
FileWrite($resultfile, $STR3)
$str = FileRead($resultfile)
ShellExecute($resultfile)
MsgBox(0, '', $str)
先不进入正题,大家先来看几张图片(很奇怪){稍后进入正题}:
这是代码中的a.txt和b.txt
代码运行后:
。。。
这是怎么回事呢?!!好奇怪,b.txt中只有十行,解析出来后前面都正常,然后怎么就出现a.txt中的内容,你们也试试,会这样吗! |