Недавние сообщения

Страницы: 1 2 [3] 4 5 ... 10
21
что то типа
\A[\d+-]?\d*но не заменять, а проверять ввод
Чтобы заменить надо делать 2 прохода
первый проход удалить  всё кроме чисел и знаков. второй проход - удалить знаки  не являющиеся началом строки
[^\d+-](?<!\A)[+-]

там можно же объединить
[^\d+-]|(?<!\A)[+-]
22
Всем доброго времени суток
Помогите с регуляркой
Как разрешить ввод знаков + или - только первым символом, а после только числа?

Код: AutoIt [Выделить]
$T1='+euyryuudgfg6+767'
$Data1 = StringRegExpReplace($T1, "[^0-9^+-]", "")
MsgBox(0,'',$Data1)
 

23
Общие вопросы по AutoIt / Редактирование XML файла
« Последний ответ от Grizli Отправлен Вчера в 06:42:17 »
Здравствуйте уважаемые. Не получается у меня отредактировать XML файл.
Нужно пройти весь файл и после каждой строки  </pac:lastChanging>
вставить строку </pac:fact> и в конце файла удалить такое количество строк </pac:fact>, какое было расставлено по файлу. Другими словами нужно снизу файла перенести эти строки на свои места, исправить неправильную структуру XML файла. Количество таких замен неизвестно, каждый раз количество их будет разное.
Сам файл прикрепил к сообщению.
У меня  проблемы:
не получается найти строку </pac:fact> не могу заэкранировать стрелки и слеш чтобы условие сравнения строк работало(чтобы удалить нужное количество строк </pac:fact> в конце файла их то нужно найти)
при добавлении строки </pac:fact> в файл у него слетает вся структура и он становится неформатированным текстом


ПС: в скрипте так же двигаю строку lastChanging на положенное ей место.
Код: AutoIt [Выделить]
#NoTrayIcon
#include <File.au3>
#include <Array.au3>
Local $aArray

$hOldFile = FileOpenDialog("Выберите файл", @DesktopDir , " (*.XML)")
_FileReadToArray($hOldFile, $aArray)

$kolich=0

For $n = UBound($aArray) - 1 to 0 Step -1

 If StringInStr( $aArray[$n],"lastChanging") <>0 Then
$kolich+=1
       ConsoleWrite( $aArray[$n] & $n&@LF)
       $string=$aArray[$n]
_ArrayDelete($aArray, $n)
_ArrayInsert ($aArray,$n+1,$string)
_ArrayInsert ($aArray,$n+2,'</pac:fact>')
 EndIf
Next
;~ _ArrayDisplay($aArray)
_FileWriteFromArray($hOldFile, $aArray, 1)
FileClose($hOldFile)

Exit
 

25
OffTopicСейчас работаю в сфере далекой от программирования. Заметил особенность (на нынешней работе) - все работники далеки от профильной темы. Но! Их это не пугает. Как и меня. 21 век - время выживания (работы не по профилю).
OffTopicТеперь по теме.
Вы я так понял работаете с браузером посредством эмулирования действий человека. Вот и думать надо в этом ключе.
Потыкайте в клавиатуру в браузере до низу, потом вверх, опять вниз. Видите изменения?
Правильно. Меняется содержимое окна и! ползунок справа перемещается.
Таким образом, берем цвет пикселя, относительно окна браузера в правом нижнем углу, эксперементально, жмякаем до упора вниз, и проверяем цвет пикселя в этой точке, когда ползунок дойдет до низа, цвет изменится, ползунок ведь другого цвета. Не забываем про задержку, сайты сейчас динамические.
26
Версия AutoIt: 3.
AutoIt Version: 3.3.14.3
Описание:
Всем привет
Можно ли програмно узнать при шаге вниз, что достигнут предел прокрутки для страницы в Google Chrome
Чтобы не делать не нужный
Код: AutoIt [Выделить]
Send("{PGUP}{PGDN}")
 

Примечания:
Спасибо
27
Дни рождения / С днём рождения Djmarka!
« Последний ответ от Представитель Сообщества Отправлен Вчера в 01:01:11 »
От имени всего Русского сообщества AutoIt поздравляем Вас Djmarka с днём рождения!



Цитировать
Пусть все мечты исполнятся,
Пусть все желанья сбудутся,
Пусть радости запомнятся,
А горести забудутся.

Здоровье будет крепкое,
В делах всегда согласие,
Любовь навеки верная —
Без ссор и разногласия.

Зарплата только вовремя,
Стабильная, высокая.
Работа будет лёгкая
И не совсем далёкая.

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
28
Общие вопросы по AutoIt / Re: Неизвестная папка на пути к исполняющему файлу
« Последний ответ от Alofa Отправлен Июнь 19, 2018, 21:06:41 »
... (например 8.9.3.4 меньше чем 8.9.4.1)...
... На всякий случай путь: C:\Program Files\1cv8\8.2.3.2170\bin\chdbfl.exe  (8.2.3.2170 не константа)
:o :blink: :stars:

Код: AutoIt [Выделить]
Local $sPath = 'Ни один из файлов или каталогов не соответствует маске поиска'
Local $sPathStart = EnvGet('SystemDrive') & '\Program Files\1с\'
Local $hSearch = FileFindFirstFile($sPathStart & '?.?.?.*')
If $hSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        $sFile = $sPathStart & $sFile & '\bin\file.exe'
        If FileExists($sFile) Then $sPath = $sFile
    WEnd
    FileClose($hSearch)
EndIf
MsgBox(262144, 'Результат:', $sPath) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< П Р О В Е Р К А >>>>>>>>>>>>>>>>>>>>>>>>

29
Общие вопросы по AutoIt / Re: Неизвестная папка на пути к исполняющему файлу
« Последний ответ от Tempo Отправлен Июнь 19, 2018, 19:54:39 »
Dobrodei, разрядность ОС? Проверьте существует ли изначальный путь

Код: AutoIt [Выделить]
MsgBox(0, @OSArch, @ProgramFilesDir & "\1cv8" & @CRLF & "Путь " & (FileExists(@ProgramFilesDir & "\1cv8") ? "существует" : "не существует"))

30
Общие вопросы по AutoIt / Re: Неизвестная папка на пути к исполняющему файлу
« Последний ответ от Dobrodei Отправлен Июнь 19, 2018, 18:09:12 »
Напишите код ошибки
Код: AutoIt [Выделить]
#include <File.au3>
#include <Misc.au3>
Opt("TrayIconHide", 1)
Opt("SendKeyDelay", 0)

Local $sTarget = _GetPath(@ProgramFilesDir & "\1cv8") & "\bin\chdbfl.exe"
If @error Then Exit MsgBox(0, "Ошибка: " & @error, "Не удалось получить путь")

If $CmdLine[0] <> 2 Then
    MsgBox(0, "Описание параметров запуска", "Check1CD.exe ИсправлятьОшибки ИмяФайлаБД" & @CRLF & @CRLF & _
            "ИсправлятьОшибки: 0 или 1" & @CRLF & "ИмяФайлаБД: путь к файлу 1Cv8.1CD")
    Exit
EndIf
Run($sTarget)
WinWait("Проверка физической целостности файла БД")
Send($CmdLine[2], 1)
Send("{TAB}")
If $CmdLine[1] = "1" Then
    Send("{SPACE}")
EndIf
Send("{TAB 2}{ENTER}")

Func _GetPath($sStartPath)
    Local $aFolderList = _FileListToArray($sStartPath, "?.?.?.?", $FLTA_FOLDERS), $sCurVer, $sFilePath
    If @error Then Return SetError(@error, 0, 0)
    For $i = 1 To $aFolderList[0]
        If _VersionCompare($sCurVer, $aFolderList[$i]) = -1 Then $sCurVer = $aFolderList[$i]
    Next
    $sFilePath = $sStartPath & "\" & $sCurVer
    If Not FileExists($sFilePath) Then Return SetError(5, 0, 0)
    Return $sFilePath
EndFunc   ;==>_GetPath

 

Ошибка 1


Добавлено: Июнь 19, 2018, 18:09:39
Код: AutoIt [Выделить]
If MsgBox(4 + 64, Default, 'Вы уверены что начало пути такое: "' & @ProgramFilesDir & '\1с\..."?') = 7 Then Exit

Local $sPath = 'Ни один из файлов или каталогов не соответствует маске поиска'
Local $hSearch = FileFindFirstFile(@ProgramFilesDir & '\1с\?.?.?.?')

If $hSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        $sFile = @ProgramFilesDir & '\1с\' & $sFile & '\bin\file.exe'
        If FileExists($sFile) Then $sPath = $sFile
    WEnd
    FileClose($hSearch)
EndIf
MsgBox(262144, 'Результат:', $sPath) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< П Р О В Е Р К А >>>>>>>>>>>>>>>>>>>>>>>>


Dobrodei
Учитесь ставить правильные кавычки в коде, а не это “”.

OffTopicРаньше, когда на форуме были модераторы, они бы выдали вам вот такое Предупреждение.
Ни один из файлов или каталогов не соответствует маске поиска  :(
На всякий случай путь: C:\Program Files\1cv8\8.2.3.2170\bin\chdbfl.exe  (8.2.3.2170 не константа)
Страницы: 1 2 [3] 4 5 ... 10