请问这段代码还能简化吗?

sex123

If $FileDX23<500000  Then
IniWrite("XZ.ini", "XZ8","上传等待时间","500");写入上传等待时间       
ElseIf $FileDX23<1000000  Then;1M
IniWrite("XZ.ini", "XZ8","上传等待时间","550")       
ElseIf $FileDX23<1500000  Then;1.5M
IniWrite("XZ.ini", "XZ8","上传等待时间","580")
ElseIf $FileDX23<2000000  Then;2M
IniWrite("XZ.ini", "XZ8","上传等待时间","600")
ElseIf $FileDX23<2500000  Then;2.5M
IniWrite("XZ.ini", "XZ8","上传等待时间","640")
ElseIf $FileDX23<3000000  Then;3M
IniWrite("XZ.ini", "XZ8","上传等待时间","700")
ElseIf $FileDX23<4000000  Then;4M
IniWrite("XZ.ini", "XZ8","上传等待时间","720")
ElseIf $FileDX23<6000000  Then;6M
IniWrite("XZ.ini", "XZ8","上传等待时间","760")
ElseIf $FileDX23<8000000  Then;8M
IniWrite("XZ.ini", "XZ8","上传等待时间","800")
ElseIf $FileDX23<10000000  Then;10M
IniWrite("XZ.ini", "XZ8","上传等待时间","840")
ElseIf $FileDX23>=10000000  Then;10M
IniWrite("XZ.ini", "XZ8","上传等待时间","860")
EndIf

代码的意思是文件越大,上传等待时间越长.可是代码实在是太长了.上传时间在一个大体的范围内,不是一定在上面的时间,怎么办?

kevinch

Dim $arr[10][2]=[[500000,500],[1000000,550],[1500000,580],[2000000,600],[2500000,640],[3000000,700],[4000000,720],[6000000,760],[8000000,800],[10000000,840]]
$FileDX23=Random(1,10000000,1)
$delay=860
For $i=0 To UBound($arr)-1
        If $FileDX23<$arr[$i][0] Then
                $delay=$arr[$i][0]
                ExitLoop
        EndIf
Next
IniWrite("XZ.ini", "XZ8","上传等待时间",$delay)

不知道你是不是想要简化成这样

xiaowo

不知这样是否符合LZ的意思

Local $FileDX23
Local $size = 500000, $time = 500
Local $up = $time * $FileDX23 / $size
IniWrite("XZ.ini", "XZ8", "上传等待时间", $up);写入上传等待时间