[CDR X5-X8] Чтение из файла

[izrukvruki]

Подскажите, пожалуйста, как вывести стандартное диалоговое окно выбора *.txt файла с диска?

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

Open "D:\HS\text.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, myFileString
Loop
Close #1

И как после этого получить полный путь, путь папке где лежит файл и имя файла без расширения, т.е. D:\HS\text.txt, D:\HS\, text

Суть такая, что я из текстового файла считаю строки, вставлю их в файл и хочу с тем же именем, в туже папку сохранить *.cdr и *.pdf

 

[_MBK_]

*.tx? Может,все таки txt?

 

[izrukvruki]

да

 

[_MBK_]

Тогда так

txtname = Application.CorelScriptTools.GetFileBox("Text files (*.TXT)|*.TXT|All files (*.*)|*.*||", "Choose file", 0, "", "*.TXT", "")

 

[izrukvruki]

Спасибо. А имя и путь так сделал

Dim fn, ii, jj, fnName, fnPath
fn = txtname                        'полный путь
tochka = InStrRev(txtname, ".")     'последняя точка
slesh = InStrRev(txtname, "\")      'послед слеш
fnPath = VBA.Mid(txtname, 1, slesh) 'путь без имени
fnName = VBA.Mid(txtname, slesh + 1, tochka - slesh - 1)    'имя файла без расширения

 

[izrukvruki]

А почему копируя из VBA редактора код с русскими буквами получается абракатабра?

Dim fn, ii, jj, fnName, fnPath
fn = txtname                        'ïîëíûé ïóòü ôàéëà
tochka = InStrRev(txtname, ".")     'ïîëîæåíèå ïîñëåäíåé òî÷êè
slesh = InStrRev(txtname, "\")      'ïîëîæåíèå ïîñëåäíåãî ñëåøà
fnPath = VBA.Mid(txtname, 1, slesh) 'ïóòü áåç èìåíè
fnName = VBA.Mid(txtname, slesh + 1, tochka - slesh - 1)    'èìÿ áåç ðàñøèðåíèÿ

Notepad++ играя кодировками исправить не удалось

и обратная проблема существует вроде. Из блокнота русский текст крокозябрится при вставки в редактор кода

 

[Fog_patch]

Новое А почему копируя из VBA редактора код с русскими буквами получается абракатабра?

Раньше помогал такой трюк – копируешь при RU и вставляешь при RU.