Открыть файл самописным "блокнотом" - VB
Формулировка задачи:
Здравствуйте! Мной был написан "клон" виндового блокнота на VB6, вроде почти все функции в нем есть, нет только возможности в винде, нажав правую кнопку мыши и выбрав пункт "Открыть при помощи -> Путь к моей проге" (т.к. ассоциировать txt-файлы с прогой у меня нет необходимости), открыть, скажем файл *.txt, и чтобы его содержимое отобразилось в редакторе... =(( Сейчас у меня открывается пустое поле по понятным причинам))) Из самой программы открыть файл можно (как обычно Файл -> Открыть и т.д.). Не могут ли местные гуру хотя бы подсказать, в какую сторону рыть?
Решение задачи: «Открыть файл самописным "блокнотом"»
textual
Листинг программы
Private Sub Form_Load() Dim Text As String, Temp As String, FilePath As String If Command <> "" Then 'если есть параметр переданнй программе то 'нам передается путь файла в таком виде "FilePath" поэтому кавычки нужно убрать FilePath = Mid(Command, 2, Len(Command) - 2) Open FilePath For Input As #1 'открываем файл Do While Not (EOF(1)) 'циклимся пока не конец файла Line Input #1, Temp 'читаем строку Text = Text + Temp + vbCrLf 'записываем все в переменную Loop Close #1 'закрываем файл Text1.Text = Text 'присваиваем текст End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д