Конвертация комментариев из баз Zet в базы SF

[aslan182]

1.Сначала открываем зетовскую базу в любом текстовом редакторе. Выделить все - копировать.
Запускаем EXCEL - вставляем. Дальше данные - текст по столбцам. галочку поставить "c разделителями", галочку ставим "точка с запятой". Далее. Готово.
Теперь текст разбит по столбцам - можно коментарии оставить остальное столбцы удалить. Пока EXCEL можно отложить.
2. Ту же базу конвертируем в формат SF - думаю все знают как это делается.
Дальше 2 варианта:
3а. качаем AutoIt v3 http://www.autoitscript.com/cgi-bin/...t-v3-setup.exe
после установки при клике правой кнопкой мыши в проводнике, в меню создать появляется пункт AutoIt v3 Script. Создаем, потом правой кнопкой мыши на скрипте из контекстного меню выбираем Edit Script. И вставляем этот текст:

WinActivate("[CLASS:XLMAIN]", "")
WinWaitActive("[CLASS:XLMAIN]")
Send("^c")
WinActivate("Solar Fire", "")
WinWaitActive("Solar Fire")
Send("{F3}")
WinWaitActive("Chart Database")
ControlFocus("Edit C&omments...", "Button", "[CLASS:Button; INSTANCE:10]")
ControlClick("Chart Database", "", "[CLASS:Button; INSTANCE:10]")
WinWaitActive("Edit Charts Comments")
Send("^v")
ControlFocus("&Save", "Button", "[CLASS:Button; INSTANCE:2]")
ControlClick("Edit Charts Comments", "", "[CLASS:Button; INSTANCE:2]")
For $i = 2 to 10000 Step 1
WinActivate("[CLASS:XLMAIN]", "")
WinWaitActive("[CLASS:XLMAIN]")
Send("{DOWN}")
Send("^c")
WinActivate("Solar Fire", "")
WinWaitActive("Solar Fire")
WinActivate("Chart Database", "")
WinWaitActive("Chart Database")
Send("{DOWN}")
ControlFocus("Edit C&omments...", "Button", "[CLASS:Button; INSTANCE:10]")
ControlClick("Chart Database", "", "[CLASS:Button; INSTANCE:10]")
WinWaitActive("Edit Charts Comments")
Send("^v")
ControlFocus("&Save", "Button", "[CLASS:Button; INSTANCE:2]")
ControlClick("Edit Charts Comments", "", "[CLASS:Button; INSTANCE:2]")
Next

В 14 строке "For $i = 2 to 1000 Step 1" 1000 это количество скопированных комментариев, после которых скрипт отключится
(но можно скрипт и вручную отключать или приостанавливать кликом правой кнопкой мыши по иконке в трее) Но удобнее поставить число записей в базе.
С большими базами есть проблема - этот корявый SF начинает сильно тормозить. база на 500-800 записей - оптимально, очень быстро копируется. Вместо 1000 ставим нужное количество, сохраняем скрипт и пока сворачиваем окно.
Перед запуском должны быть запущен EXCEL с выделенной верхней ячейкой с комментариями и Solar Fier c выбранной нужной базой.
3б. Для тех кто ниченепонил - во вложении уже откомпилированный скрипт.

Перед запуском должны быть запущен EXCEL с выделенной верхней ячейкой с комментариями и Solar Fier c выбранной нужной базой.
4а. далее продвинутые юзьвери AutoIt нажимают F5 либо через меню Tool - Go
4б. задвинутые могут тупо запустить скачаный скрипт.

если кто хочет этот "автоматизатор ctrl-c ctrl-v" улучшить - вэлком например диалоговое окно прикрутить и все такое.

[Rusea]

отлично. оптимальный вариант - соорудить тему. потом хоть понятно где искать.

[aslan182]

Сообщение от Rusea

отлично. оптимальный вариант - соорудить тему. потом хоть понятно где искать.

так может еще тему с базами создать? а то я в чате выложил - теперь и сам не найду

[sergey]

Сообщение от aslan182

так может еще тему с базами создать? а то я в чате выложил - теперь и сам не найду

было бы здорово

[aslan182]

привел в более человеческий вид - добавил диалоговое окно - в котором вводится кол-во записей. также в архиве вариант для х64 систем

[aslan182]

выше ерунду сырую выложил( - вот полностью готовая программа, работает как атомные часы:

[aslan182]

Вот исходный текст если кому надо:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
If WinExists("Solar Fire")=0 Then
      MsgBox(0, "", "запустите SF")
   Exit
EndIf
If WinExists("[CLASS:XLMAIN]")=0 Then
      MsgBox(0, "", "запустите EXCEL")
   Exit
EndIf
#Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("", 252, 111, 359, 368)
   GUISetBkColor(0x0080FF)
    $Input1 = GUICtrlCreateInput("", 176, 16, 65, 21, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
    $Button1 = GUICtrlCreateButton("OK", 88, 64, 73, 33)
    $Label1 = GUICtrlCreateLabel("Введите количество записей базы", 8, 8, 156, 41)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
   GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
           $sInput1 = GUICtrlRead($Input1)
         ExitLoop
      Exit
    EndSwitch
WEnd

WinActivate("[CLASS:XLMAIN]", "")
WinWaitActive("[CLASS:XLMAIN]")
Send("^c")
WinActivate("Solar Fire", "")
WinWaitActive("Solar Fire")
Send("{F3}")
WinWaitActive("Chart Database")
ControlFocus("Edit C&omments...", "Button", "[CLASS:Button; INSTANCE:10]")
ControlClick("Chart Database", "", "[CLASS:Button; INSTANCE:10]")
WinWaitActive("Edit Charts Comments")
Send("^v")
ControlFocus("&Save", "Button", "[CLASS:Button; INSTANCE:2]")
ControlClick("Edit Charts Comments", "", "[CLASS:Button; INSTANCE:2]")
For $i = 2 to Number ($sInput1) Step 1
WinActivate("[CLASS:XLMAIN]", "")
WinWaitActive("[CLASS:XLMAIN]")
Send("{DOWN}")
Send("^c")
WinActivate("Solar Fire", "")
WinWaitActive("Solar Fire")
WinActivate("Chart Database", "")
WinWaitActive("Chart Database")
Send("{DOWN}")
ControlFocus("Edit C&omments...", "Button", "[CLASS:Button; INSTANCE:10]")
ControlClick("Chart Database", "", "[CLASS:Button; INSTANCE:10]")
WinWaitActive("Edit Charts Comments")
Send("^v")
ControlFocus("&Save", "Button", "[CLASS:Button; INSTANCE:2]")
ControlClick("Edit Charts Comments", "", "[CLASS:Button; INSTANCE:2]")
Next
MsgBox(0, "итог", "конв. записей  " & $sInput1)
Exit