Открыть файл самописным "блокнотом" - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Мной был написан "клон" виндового блокнота на VB6, вроде почти все функции в нем есть, нет только возможности в винде, нажав правую кнопку мыши и выбрав пункт "Открыть при помощи -> Путь к моей проге" (т.к. ассоциировать txt-файлы с прогой у меня нет необходимости), открыть, скажем файл *.txt, и чтобы его содержимое отобразилось в редакторе... =(( Сейчас у меня открывается пустое поле по понятным причинам))) Из самой программы открыть файл можно (как обычно Файл -> Открыть и т.д.). Не могут ли местные гуру хотя бы подсказать, в какую сторону рыть?

Решение задачи: «Открыть файл самописным "блокнотом"»

textual
Листинг программы
  1. Private Sub Form_Load()
  2. Dim Text As String, Temp As String, FilePath As String
  3.  
  4.   If Command <> "" Then 'если есть параметр переданнй программе то
  5.  'нам передается путь файла в таком виде "FilePath" поэтому кавычки нужно убрать
  6.  FilePath = Mid(Command, 2, Len(Command) - 2)  
  7.   Open FilePath For Input As #1 'открываем файл
  8.  Do While Not (EOF(1))  'циклимся пока не конец файла
  9.    Line Input #1, Temp  'читаем строку
  10.    Text = Text + Temp + vbCrLf 'записываем все в переменную
  11.  Loop
  12.   Close #1 'закрываем файл
  13.  Text1.Text = Text 'присваиваем текст
  14.  End If
  15. End Sub

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


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

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

9   голосов , оценка 3.889 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы