关于 多进程 无法识别 Koda创建 的变量的问题
我自己模仿着写了一个多进程的例子同时比较数据 同时计算时间 不知道什么原因 总是提示我使用了未经声明的变量 但是这个变量是通过 Koda创建的啊，如果不使用多进程的话就没问题啊 是不是我进程的地方写的不对啊望各位高手指点一下 即使我将其声明为全局变量 还是不行啊 谢谢另外还有两个小问题：1 为什么第60行If $Input1="" Or $Input2="" Then 不能执行 如果是 If $Input1=4 Or $Input2=4 Then 就行呢
2 如果我比对的文件中有5万多行的数据 这样一行一行的对比 自己运行了一下觉得效率有点慢 有没有什么好的办法呢？ 优化代码或者其他方法都行啊
这个是有多进程的代码：#include <array.au3>
#include <file.au3>
#include <CoProc.au3> ;多进程udf
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("小鹤码表比对器", 380, 220,492, 124)
Global $Label1 = GUICtrlCreateLabel("请选择旧码表：", 16, 16, 116, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("", 64, 40, 233, 25)
Global $Button1 = GUICtrlCreateButton("选择文件", 304, 40, 57, 25)
Global $Input2 = GUICtrlCreateInput("", 64, 112, 233, 25)
Global $Button2 = GUICtrlCreateButton("选择文件", 304, 112, 57, 25)
Global $Button3 = GUICtrlCreateButton("开始比较", 72, 152, 225, 41)
Global $Label2 = GUICtrlCreateLabel("请选择新码表：", 16, 85, 116, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
Global $Label3 = GUICtrlCreateLabel("已比对0行数据", 80, 200, 300, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label4 = GUICtrlCreateLabel("用时0秒", 305, 200, 100, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $min=0,$sed=0
Global $var;传送多进程，用于通知开始计时
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Local $file1=FileOpenDialog("请选择文件",@DesktopDir,"文本文件 (*.txt)" )
If @error Then
MsgBox(0,"","请重新选择！")
Else
GUICtrlSetData($Input1,$file1)
$Input1=$file1
EndIf
Case $Button2
Local $file2=FileOpenDialog("请选择文件",@DesktopDir,"文本文件 (*.txt)" )
If @error Then
MsgBox(0,"","请重新选择！")
Else
GUICtrlSetData($Input2,$file2)
$Input2=$file2
EndIf
Case $Button3
_CoProc("main")
_CoProcReciver("time") ;注册Reciver()函数来接收子进程传递过来的消息
EndSwitch
WEnd
Func main()
If $Input1="" Or $Input2="" Then
MsgBox(0,"提示","您还没有选择文件，请重新选择！",2)
Return;提前终止函数
EndIf
Local $txt1=FileOpen($Input1)
Local $txt2=FileOpen($Input2)
Local $num,$a=1
Local $array[$a];存放对比数据
Local $readline1=_FileCountLines($Input1)
Local $readline2=_FileCountLines($Input2)
;MsgBox(0,"",$readline1&@CRLF&$readline2)
If $readline1 > $readline2 Then
Local $count=$readline1
Else
$count=$readline2
EndIf
For $num=1 To $count
Local $line1,$line2
$line1=FileReadLine($txt1,$num)
$line2=FileReadLine($txt2,$num)
If $num=1 Then ;开始处理第一行数据时，开始计时
_CoProcSend($gi_CoProcParent,"1")
EndIf
If $line1<>$line2 Then
ReDim $array[$a]
$array[$a-1]=$line1
$array[$a-1]=$line2
$a+=1
EndIf
If Mod($num,1000)=0 Then
GUICtrlSetData($Label3,"共"&$count&"行，"&"已比对"&$num&"行数据")
EndIf
Next
FileClose($txt1)
FileClose($txt2)
_ArrayDisplay($array)
EndFunc
Func Time($B);计时
MsgBox(0,"",$B)
AdlibRegister("time_1",1000)
EndFunc
Func time_1()
Local $fen
$sed+=1
If $sed=60 Then
$sed=0
$min+=1
EndIf
If $min<10 Then
$fen="0"&$min
Else
$fen=$min
EndIf
If $sed<10 Then $sed="0"&$sed
GUICtrlSetData($Label1,$fen&":"&$sed)
EndFunc
CoProc.au3 文件 GUICtrlRead($input1) or GUICtrlRead($input2) 回复 2# gto250
谢谢
页:
[1]