Какие есть средства ,способы ,команды для ускорения работы программы "перевертыша" ?

[polzovatelau]

Есть файл с любыми данными например "В лесу родилась "После работы программы получаем необходимый результат "ьсалидор усел В" При совсем малых размерах файла до 1000 байт работает сносно . При 20к считает уже 50 мин . Многовато будет . В программе используются операторы FileOpen FileRead(.FileWrite .Просто осуществляется последовательное побайтовое считывание с одного файла и побайтовое в другой .Можно ли ускорить этот процесс ?

 

[Tempo]

;~ AutoIt Version: 3.3.14.5
#include <FileConstants.au3>
Local $sFile = FileOpenDialog("", "", "Все (*.*)", $FD_FILEMUSTEXIST)
If @error Then Exit

Local $sReverse = StringReverse(FileRead($sFile))
Local $hFile = FileOpen($sFile, $FO_OVERWRITE + $FO_UTF8)
FileWrite($hFile, $sReverse)
FileClose($sFile)
ShellExecute($sFile)

 

[polzovatelau]

Большое спасибо !
( Что 5 байт что 50Мб программа работает отлично .Единственное что после 52Мб начинаются проблемы с памятью.Error allocating memory Интересно это проблемы моего компьютера или ограничения Autoit ? )

 

[Tempo]

это проблемы моего компьютера

Откройте диспетчер задач и проверьте потребление памяти

 

[xXx]

начинаются проблемы с памятью.

Попробуйте:

; ...
Local $sReverse = _StringReverse(FileRead($sFile))
; ...
Func _StringReverse($s_String)
    Local $RS = Chr(30)
    $s_String = StringRegExpReplace($s_String, '(\r\n)', $RS)

    Local $i_len = StringLen($s_String)
    If $i_len < 1 Then Return SetError(1, 0, "")

    Local $t_chars = DllStructCreate("char[" & $i_len + 1 & "]")
    DllStructSetData($t_chars, 1, $s_String)

    Local $a_rev = DllCall("msvcrt.dll", "ptr:cdecl", "_strrev", "struct*", $t_chars)
    If @error Or $a_rev[0] = 0 Then Return SetError(2, 0, "")

    Return StringRegExpReplace(DllStructGetData($t_chars, 1), $RS, @CRLF)
EndFunc   ;==>_StringReverse

 

[polzovatelau]

Откройте диспетчер задач и проверьте потребление памяти

2 Гиг до мах в запасе (занято ~6 из 8 Работающий скрипт потребляет ~4 Гига.) .Что интересно сообщение Error allocating memory не одно а тем больше чем больше превышение над граничным ~52 Мбайт программы .

Сообщение автоматически объединено: 27 Окт 2019

Попробуйте:

Скрипт видимых действий не производит . Честно сказать пока сам разобраться в нем не могу .

 

[joiner]

код возвращает строку. её остается только записать

 

[xXx]

сам разобраться в нем не могу

Я имел ввиду заменить вызов функции StringReverse(), в скрипте поста #2, на _StringReverse() - это немного измененная ф-я из UDF Autoit v 3.3.8.1.
Т.е. нужно было сделать так:

Спойлер

#include <FileConstants.au3>
Local $sFile = FileOpenDialog("", "", "Все (*.*)", $FD_FILEMUSTEXIST)
If @error Then Exit

Local $sReverse = _StringReverse(FileRead($sFile))
Local $hFile = FileOpen($sFile, $FO_OVERWRITE + $FO_UTF8)
FileWrite($hFile, $sReverse)
FileClose($sFile)
ShellExecute($sFile)

Func _StringReverse($s_String)
    Local $RS = Chr(30)
    $s_String = StringRegExpReplace($s_String, '(\r\n)', $RS)

    Local $i_len = StringLen($s_String)
    If $i_len < 1 Then Return SetError(1, 0, "")

    Local $t_chars = DllStructCreate("char[" & $i_len + 1 & "]")
    DllStructSetData($t_chars, 1, $s_String)

    Local $a_rev = DllCall("msvcrt.dll", "ptr:cdecl", "_strrev", "struct*", $t_chars)
    If @error Or $a_rev[0] = 0 Then Return SetError(2, 0, "")

    Return StringRegExpReplace(DllStructGetData($t_chars, 1), $RS, @CRLF)
EndFunc   ;==>_StringReverse

 

[polzovatelau]

код возвращает строку. её остается только записать

Спасибо .
(Буду разбираться в данном направлении )

Сообщение автоматически объединено: 28 Окт 2019

Я имел ввиду заменить вызов функции StringReverse(), в скрипте поста #2, на _StringReverse() - это немного измененная ф-я из UDF Autoit v 3.3.8.1.
Т.е. нужно было сделать так:

Спойлер

#include <FileConstants.au3>
Local $sFile = FileOpenDialog("", "", "Все (*.*)", $FD_FILEMUSTEXIST)
If @error Then Exit

Local $sReverse = _StringReverse(FileRead($sFile))
Local $hFile = FileOpen($sFile, $FO_OVERWRITE + $FO_UTF8)
FileWrite($hFile, $sReverse)
FileClose($sFile)
ShellExecute($sFile)

Func _StringReverse($s_String)
    Local $RS = Chr(30)
    $s_String = StringRegExpReplace($s_String, '(\r\n)', $RS)

    Local $i_len = StringLen($s_String)
    If $i_len < 1 Then Return SetError(1, 0, "")

    Local $t_chars = DllStructCreate("char[" & $i_len + 1 & "]")
    DllStructSetData($t_chars, 1, $s_String)

    Local $a_rev = DllCall("msvcrt.dll", "ptr:cdecl", "_strrev", "struct*", $t_chars)
    If @error Or $a_rev[0] = 0 Then Return SetError(2, 0, "")

    Return StringRegExpReplace(DllStructGetData($t_chars, 1), $RS, @CRLF)
EndFunc   ;==>_StringReverse

Спасибо.
(Буду разбираться с Func )
(