Автор Тема: Помогите с проверкой текста и добавление даты  (Прочитано 452 раз)

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

Онлайн gunter123 [?]

  • Осваивающий
  • **
  • Сообщений: 78
  • Репутация: 31
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Если используете функцию с подчеркиванием, то попробуйте такой код:
Код: AutoIt [Выделить]
#include <Array.au3>
#include <File.au3>
#include <Date.au3>

$iDaysCount = 6            ; Количество дней
Dim $aList[0]
_FileReadToArray(@ScriptDir & '\Список.txt', $aList)
If @error Then Exit 1
_ArrayDelete($aList, 0)

For $i = UBound($aList) -1 To 0 Step -1
   If _IsDate($aList[$i]) Then
      If _DateDiff('d', StringRight($aList[$i], 4) & '/' & StringMid($aList[$i], 4, 2) & '/' & StringLeft($aList[$i], 2) & ' 00:00:00', _NowCalc()) > $iDaysCount Then
         Do
            _ArrayDelete($aList, $i)
         Until $i = UBound($aList) OR _IsDate($aList[$i]) OR UBound($aList) = 0
      EndIf
   EndIf
Next

_ArrayAdd($aList, @CRLF & @MDAY & '.' & @MON & '.' & @YEAR & @CRLF & "Группа а. ")
_ArrayAdd($aList, @CRLF & @MDAY & '.' & @MON & '.' & @YEAR & @CRLF & "Группа б. ")
_FileWriteFromArray(@ScriptDir & '/Список.txt', $aList)

Func _IsDate($sDate)
   Return ((StringLen($sDate) = 10) AND (StringRegExp($sDate, "(\d{2}\.\d{2}\.\d{4})") = 1))
EndFunc

Если не работает, прикрепите ваш файл с датами
У вас в первом сообщении написано, что разница в датах должна быть больше 6 дней, а не 5. Добавил переменную в начале скрипта, можете изменять
« Последнее редактирование: Апрель 17, 2018, 09:25:52 от gunter123 »
Is it future or is it past?

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

Re: Помогите с проверкой текста и добавление даты
« Ответ #15 Отправлен: Апрель 17, 2018, 09:16:31 »

Оффлайн Serega1383 [?]

  • Новичок
  • *
  • Сообщений: 24

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Выдаёт ошибку: array variable subscript badly formatted.
Dim $aList[0]
Dim $aList[^ ERROR

Онлайн gunter123 [?]

  • Осваивающий
  • **
  • Сообщений: 78
  • Репутация: 31
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Замените эту строку на
Код: AutoIt [Выделить]
Local $aList


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

Re: Помогите с проверкой текста и добавление даты
« Ответ #17 Отправлен: Апрель 18, 2018, 12:14:22 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
4 Ответов
2726 Просмотров
Последний ответ Март 10, 2011, 16:28:33
от madmasles
6 Ответов
3495 Просмотров
Последний ответ Декабрь 05, 2011, 05:45:39
от AZJIO
1 Ответов
2788 Просмотров
Последний ответ Февраль 02, 2012, 09:55:21
от madmasles
5 Ответов
2162 Просмотров
Последний ответ Июнь 10, 2014, 17:03:53
от Talany
8 Ответов
1347 Просмотров
Последний ответ Октябрь 20, 2014, 13:59:37
от Nefakt
0 Ответов
1244 Просмотров
Последний ответ Февраль 16, 2015, 17:30:38
от itskun
3 Ответов
2064 Просмотров
Последний ответ Декабрь 22, 2015, 22:12:27
от ra4o
18 Ответов
6081 Просмотров
Последний ответ Февраль 08, 2016, 21:33:10
от avtoIT
0 Ответов
778 Просмотров
Последний ответ Август 22, 2016, 19:48:31
от endpoints
7 Ответов
1277 Просмотров
Последний ответ Февраль 05, 2017, 12:08:34
от axsmak