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

Статус
Закрыто для дальнейших ответов.

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Подскажите, пожалуйста, как вывести стандартное диалоговое окно выбора *.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_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
*.tx? Может,все таки txt?
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Тогда так
Код:
txtname = Application.CorelScriptTools.GetFileBox("Text files (*.TXT)|*.TXT|All files (*.*)|*.*||", "Choose file", 0, "", "*.TXT", "")
 
  • Спасибо
Реакции: izrukvruki

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Спасибо. А имя и путь так сделал
Код:
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

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
А почему копируя из 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

12 лет на форуме
Сообщения
3 163
Реакции
998
Статус
Закрыто для дальнейших ответов.