Andrey_A
|
 Posted: Sat Nov 03, 2012 12:39 Post subject: |
 |
|
Loopback, в твоём скрипте (и в других тоже) используется функция
| Code: | Func _TCHLoadFileList($sFileName)
Local $asList[1] = [0]
Local $hfList = FileOpen($sFileName, 0)
While 1
$sLine = FileReadLine($hfList)
If @error Then Exitloop
ReDim $asList[UBound($asList)+1]
$asList[UBound($asList)-1] = $sLine
Wend
FileClose($hfList)
$asList[0] = UBound($asList)-1
Return $asList
EndFunc |
при большом количестве файлов она работает очень медленно, недавно разбирая эту проблему, нашёл другой вариант - работает почти моментально
| Code: | Func _TCHLoadFileList($sFileName)
Return StringRegExp(FileRead($sFileName), "(?m)^([^\r\n]*)", 3)
EndFunc |
единственное цикл обработки надо начинать с 0
и использовать UBound для размера массива |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
