Автор Тема: Вырезание, сохранение, и замена  (Прочитано 150 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн barrows [?]

  • Новичок
  • *
  • Сообщений: 1
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Версия AutoIt: 3.
3.3.14.2
Описание:
Привет, есть txt файл, с такими строками:
Погода сегодня хорошая
Пойду посмотрю на ютубе
Ночью в 03 00 хоккей
Курс битка вырос до 7.0к
и т.д.

Нужно вырезать рандомное количество строк ( от 700 до 1800 ), сохранить тот файл с которого вырезали, сохранить вырезанные строки в файл temply.txt, подсчитать количество вырезанных строк и вставить подсчитанное число в файл figure.txt, в строку под
номером 57, вместо 1222, строка имеет такой вид
$countys = '1222';

Может кто-нибудь поможет, спасибо.
Примечания:

Русское сообщество AutoIt

Вырезание, сохранение, и замена
« Отправлен: Ноябрь 08, 2017, 22:41:52 »

Оффлайн gunter123 [?]

  • Новичок
  • *
  • Сообщений: 36
  • Репутация: 15
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Вырезание, сохранение, и замена
« Ответ #1, Отправлен: Ноябрь 09, 2017, 11:00:13 »
Код: AutoIt [Выделить]
#include <Array.au3>
#include <File.au3>

$aFile = FileReadToArray(@ScriptDir & "/Строки.txt")          ; Читаем весь файл со строками в массив построчно
If @error Then Exit MsgBox(4096, "Ошибка", "Файл не найден")
Dim $aCutLines[0]

$iLinesCount = Random(700, 1800, 1)                         ; Целое число от 700 до 1800
If $iLinesCount-1 > UBound($aFile) Then Exit MsgBox(4096, "Ошибка", "В файле недостаточно строк")

For $i = 1 To $iLinesCount
   $iNumber = Random(0, UBound($aFile)-1, 1)                ; Берём случайный номер строки
   _ArrayAdd($aCutLines, $aFile[$iNumber])                  ; Записываем его в массив
   _ArrayDelete($aFile, $iNumber)                           ; И удаляем из первого массива
Next

_FileWriteFromArray(@ScriptDir & "/Строки.txt", $aFile)       ; Записываем в файлы то что получилось
_FileWriteFromArray(@ScriptDir & "/temply.txt", $aCutLines)

$aCount = FileReadToArray(@ScriptDir & "/figure.txt")       ; Так же читаем последний файл
If @error Then Exit MsgBox(4096, "Ошибка", "Файл не найден")
$aCount[56] = "$countys = '" & $iLinesCount & "';"          ; Записываем в 57 строку количество вырезанных строк
_FileWriteFromArray(@ScriptDir & "/figure.txt", $aCount)

Is it future or is it past?

Русское сообщество AutoIt

Re: Вырезание, сохранение, и замена
« Ответ #1 Отправлен: Ноябрь 09, 2017, 11:00:13 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
10 Ответов
6134 Просмотров
Последний ответ Май 14, 2010, 15:37:26
от -BlackJack-
7 Ответов
4283 Просмотров
Последний ответ Март 30, 2013, 21:54:25
от madmasles
0 Ответов
1818 Просмотров
Последний ответ Март 29, 2013, 21:35:22
от madmasles
62 Ответов
20066 Просмотров
Последний ответ Июнь 23, 2014, 21:44:02
от slavik83
6 Ответов
1196 Просмотров
Последний ответ Январь 15, 2015, 01:21:23
от RuFraz
5 Ответов
2923 Просмотров
Последний ответ Февраль 22, 2015, 20:50:14
от Leonid Feclichev
0 Ответов
495 Просмотров
Последний ответ Февраль 22, 2015, 13:58:26
от madmasles
1 Ответов
1381 Просмотров
Последний ответ Май 20, 2015, 14:29:42
от alex33
11 Ответов
642 Просмотров
Последний ответ Июль 06, 2017, 15:59:25
от ra4o
2 Ответов
231 Просмотров
Последний ответ Сентябрь 01, 2017, 13:51:13
от VadimKHL