[CDR X5-X8] Нужна помощь в создании кода для кнопки макроса

[splxgf]

Ну я с запасом сделал оба, я ж не знаю какой именно символ станок воспринимает как разделитель или сразу все

Оба зачастую нормально воспринимаются, но важен порядок, обычно CR+LF.

 

[elshad66]

Всем привет,всем крепкого здоровья и всех благ.
lev, splxgf, _MBK_, dastin .Вы мне помогли создать этот код для кнопки .Огромное Спасибо Вам
Я создал еще кнопку,для котор нужен код для открытия папки C:\CDR2Mill ,с последующим выбора файла ,
содержимое которого вставить в окошко макроса TextCode

Private Sub ComButImportgcode_Click() 'импортирует содержимое
Dim gcode
Dim s
Dim ss
gcode = "C:\CDR2Mill\CDR2Mill.gcode"
  Open gcode For Input As #1
  Do While Not EOF(1)
    Line Input #1, s
    ss = ss & Chr(10) & Chr(13) & s
  Loop
  Close #1
  TextCode = ss
End Sub

Гугл подкинул этот сайт, клик но эти макросы для экзел ,или их как то можно подружить с корел,
отредактировать и объединить с кодом выше,чтоб вставить в кнопку, файлы будут с расширением
.gcode .nc . gc
Спасибо за помощь

 

[_MBK_]

Не пойму сути вопроса - на уровне исходников .bas они вполне совместимы (разумеется, с поправкой на обьектную модель)

 

[elshad66]

спасибо что отозвались, ну я не бум бум , какой выбрать и как объеденить

 

[_MBK_]

Что выбрать и с чем обьединить????

 

[elshad66]

ну на том сайте есть разные варианты кодов ,а обьединить нужно с кодом выше

 

[_MBK_]

Вы можете конкретно написать что именно вам надо???? Я честно говоря, подзабыл уже что вам надо было изначально, а теперь вообще суть хотелки не пойму. Из эксела вы кореловский макрос запустить можете путем кучи дополнительных телодвижений, то же самое и наоборот. Но для начала надо понять суть задачи.

 

[elshad66]

вот автор пишет

Ещё один вариант кода (который я использую) для выбора файла
Его отличие - функция запоминает папку, из которой последний раз выбирался файл,
и при повторном запуске диалогового окна выбора файла,
обзор папок будет начат с той папки, откуда последний раз был взят файл.

Sub AttachFile_test()    ' пример использования
    Filename$ = GetFilePath()
    If Filename$ = "" Then Exit Sub
    MsgBox "Выбран файл: " & Filename$
End Sub
 
Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:\", _
                     Optional ByVal FilterDescription As String = "Файлы счетов", _
                     Optional ByVal FilterExtention As String = "*.*") As String
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title:
        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        SaveSetting Application.Name, "GetFilePath", "folder", folder$
    End With
End Function

 

[elshad66]

ок,, изначально мне надо было создать код чтод при клике на кнопке макроса содержимое текстого файла из папки C:\CDR2Mill попало в окошко макроса ,,вы помогли сделать код и он работает код этот

Private Sub ComButImportgcode_Click() 'импортирует содержимое
Dim gcode
Dim s
Dim ss
gcode = "C:\CDR2Mill\CDR2Mill.gcode"
  Open gcode For Input As #1
  Do While Not EOF(1)
    Line Input #1, s
    ss = ss & Chr(10) & Chr(13) & s
  Loop
  Close #1
  TextCode = ss
End Sub

 

[_MBK_]

А в кореловской модели у Application разве есть метод FileDialog?

 

[elshad66]

щяс я создал еще одну кнопку в макросе чтоб при клике открывалась папка C:\CDR2Mill, а потом яб выбрал нужный файл и он открылся в окошке макроса

 

[_MBK_]

Ну так и в чем проблема?

 

[elshad66]

т,е нужен код открытия папки + выбор файла + открытия содержимого в окошке макроса

 

[elshad66]

проблема в том что я не бум бум как это сделать я только кнопку создал без кода выполнения

 

[dastin]

код открытия папки + выбор файла

GetFileBox

Dim path As String
'Set the current folder (may not take effect, the author did not find the reason)
SETCURRFOLDER = "D:\document"
'Call the file open dialog
path = CorelScriptTools.GetFileBox("Text file type|*.txt|All file types|*.*", "Please select a file", 0, "default file name")

gcode = path

 

[elshad66]

спасибо что отзвалься ,при клике на кнопку выходит ошибка

 

[_MBK_]

Отключите option explicit хотя да согласен плохому учу но так всем нам будет проще

 

[dastin]

Или напишите
Dim SETCURFOLDER
или
поставьте перед SETCURFOLDER знак [']
или
удалите эту строку

 

[_MBK_]

Или напишите
Dim SETCURFOLDER
или
поставьте перед SETCURFOLDER знак [']
или
удалите эту строку

И кстати а какой смысл в присвоении пути локальной переменной path которая нигде не используется?

 

[elshad66]

отключил option explicit ,сработала кнопка но открывает только папку gms ,а если перейти в папку C:\CDR2Mill, то она пуста