VermanVendetta13
Новичок
- Сообщения
- 147
- Репутация
- 0
Autoit: 3.3.14.1
Описание: Требуется скрипт который делал так, что бы в таблицу excel занеслись данные в том порядке как в MsgBox
но не все так просто, данные должны браться из FileList. То есть как лично я вижу это процесс. Чтение - ввод чтение -ввод. Может быть есть и попроще дела
Сам смысл заключается вот в чем, существует некое количество файлов txt, в которых записаны цифры 1,2 и 0 в рандомном порядке. Необходимо сделать так, что бы скрипт создавал таблицу в которую заносит уже посчитанные отдельно в каждом файле цифры.
Код подсчета есть в нароботках.
пример
файл 1 | цифра | цифра
файл 2 | цифра | цифра
Примечание: есть два кода
этот сделал я
а этот помог сделать очень хороший человек с ником Каспер
PS Для того что бы полноценно понять смысл нужно создать папку "123" или любую другую, там создать три txt файла в которых надо написать любые комбинации из цифр 1, 2 и 0. Пример: 111122200011202020
Если кто то знает как это занести в таблицу таким способ прошу откликнуться
заранее спасибо
Описание: Требуется скрипт который делал так, что бы в таблицу excel занеслись данные в том порядке как в MsgBox
но не все так просто, данные должны браться из FileList. То есть как лично я вижу это процесс. Чтение - ввод чтение -ввод. Может быть есть и попроще дела
Сам смысл заключается вот в чем, существует некое количество файлов txt, в которых записаны цифры 1,2 и 0 в рандомном порядке. Необходимо сделать так, что бы скрипт создавал таблицу в которую заносит уже посчитанные отдельно в каждом файле цифры.
Код подсчета есть в нароботках.
пример
файл 1 | цифра | цифра
файл 2 | цифра | цифра
Примечание: есть два кода
этот сделал я
Код:
#include <Array.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <Word.au3>
#include <File.au3>
#include <Excel.au3>
$FileList=_FileListToArray(@DesktopDir&'\123', "*txt")
$sText = FileRead($FileList)
FileClose($FileList)
For $i = 1 To $FileList[0]
StringReplace($sText, '1', '')
MsgBox(0,"" & $FileList[$i] & "" , @Extended)
StringReplace($sText, '2', '')
MsgBox(0, "" & $FileList[$i] & "", @Extended)
Next
$oExcel = _ExcelBookNew()
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1)
For $i = 1 To $FileList[0]
StringReplace($sText, '1', '')
Local $aArray[5][3] = [["" & $FileList[$i] & "", @Extended ,@Extended],["" & $FileList[$i] & "",@Extended, @Extended],["" & $FileList[$i] & "", @Extended,@Extended],["" & $FileList[$i] & "" ,@Extended,@Extended],["" & $FileList[$i] & "" ,@Extended,@Extended]]
StringReplace($sText, '2', '')
_ExcelWriteSheetFromArray($oExcel, $aArray, 1, 1, 0, 0)
StringReplace($sText, '2', '')
Local $aArray[5][4] = [["" & $FileList[$i] & "", @Extended],["" & $FileList[$i] & "", @Extended],["" & $FileList[$i] & "", @Extended],["" & $FileList[$i] & "" ,@Extended],["" & $FileList[$i] & "" ,@Extended]]
_ExcelWriteSheetFromArray($oExcel, $aArray, 6, 1, 0, 0)
MsgBox(0, "Выход", "Нажмите ОК что бы сохранить или крестик для выхода")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1)
_ExcelBookClose($oExcel)
Next
а этот помог сделать очень хороший человек с ником Каспер
Код:
#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <Word.au3>
#include <Excel.au3>
$FileList=_FileListToArray(@DesktopDir&'\123', "*txt")
If @error=4 Then
MsgBox (0,"","Файлы/папки не найдены.")
Exit
EndIf
For $i = 1 To $FileList[0]
$nFile = StringSplit($FileList[$i],'.')
$sFile = FileOpen(@DesktopDir&'\123\'&$FileList[$i], 0)
$sText = FileRead($sFile)
StringReplace($sText, '1', '')
$MsgBox = MsgBox(1, $FileList[$i],''&@CRLF&' Имя файла '&$nFile[1]&' '&@CRLF&''&@CRLF&'Ответов с 1 баллом '&@CRLF&' '&@extended&''&@CRLF&'')
StringReplace($sText, '2', '')
$MsgBox = MsgBox(1, $FileList[$i],''&@CRLF&' Имя файла '&$nFile[1]&' '&@CRLF&''&@CRLF&'Ответов с 2 баллом '&@CRLF&' '&@extended&' '&@CRLF&'')
StringReplace($sText, '0', '')
$MsgBox = MsgBox(1, $FileList[$i],''&@CRLF&' Имя файла '&$nFile[1]&' '&@CRLF&''&@CRLF&'Ответов с 0 баллом '&@CRLF&' '&@extended&' '&@CRLF&'')
If $MsgBox = 2 Then ExitLoop
Next
;ВВЕРХУ ОБРАЗЕЦ ТОГО КАК ДОЖНО БЫТЬ ЗАПИСАНО
For $i = 1 To $FileList[0]
$nFile = StringSplit($FileList[$i],'.')
$sFile = FileOpen(@DesktopDir&'\123\'&$FileList[$i], 0)
$sText = FileRead($sFile)
Local $oExcel = _ExcelBookNew()
Local $aArray[6][3] = [["" & $FileList[$i] & "", @Extended , @Extended],["" & $FileList[$i] & "", @Extended , @Extended],["" & $FileList[$i] & "", @Extended , @Extended]]
_ExcelWriteSheetFromArray($oExcel, $aArray, 1, 1, 0, 0)
MsgBox(0, "Выход", "Нажмите ОК что бы сохранить или крестик для выхода")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1)
_ExcelBookClose($oExcel)
Next
PS Для того что бы полноценно понять смысл нужно создать папку "123" или любую другую, там создать три txt файла в которых надо написать любые комбинации из цифр 1, 2 и 0. Пример: 111122200011202020
Если кто то знает как это занести в таблицу таким способ прошу откликнуться
заранее спасибо