Открыть файл самописным "блокнотом" - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы