VBNet - Форум - Чтение текста при загрузке программы

Вопрос: Чтение текста при загрузке программы Добавлено: 20.12.11 18:31

Автор вопроса: IamProgrammer

Допустим есть код:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sr As New IO.StreamReader("C:\1.txt")
        TextBox1.Text = sr.ReadToEnd
        sr.close()
      End Sub

Нужно сделать так, чтобы вместо "C:\1.txt" был файл, через который была запущена программа.
Т.Е.
Выбрал файл ==> открыть с помощью и там выбрал свою программу, после этого запускается программа, и вместо "C:\1.txt" нужно перехватить имя файла, с которого была запущена программа.
Заранее спасибо
Ответить

Ответы Всего ответов: 20

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 21.12.11 09:38
	Environment.CommandLine Ответить

Номер ответа: 2 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #2	Добавлено: 21.12.11 12:12
	Спасибо большое Ответить

Номер ответа: 3 Автор ответа: Cramper Вопросов: 15 Ответов: 93	Профиль \| \| #3	Добавлено: 21.12.11 13:10
	ublic Class Form1 im p As New Process Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load im sr As New IO.StreamReader("C:\1.txt" TextBox1.Text = sr.ReadToEnd sr.Close() If LTrim$(RTrim$(TextBox1.Text)) = "Excell" Then p.StartInfo.FileName = "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" 'p.StartInfo.Arguments =".... Загружаемый в Excell файл, если нужно" p.Start() p.WaitForExit() MsgBox("Вы закончили работать с Excell.." End If End Sub End Class Ответить

Номер ответа: 4 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #4	Добавлено: 21.12.11 14:05
	Вы наверное не поняли, но мне не то нужно Выше ответ нужный был. Ответить

Номер ответа: 5 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #5	Добавлено: 21.12.11 14:09
	Не получается Меня интересует вопрос при чем тут командная строка?Как она имеет связь с запуском файла? Ответить

Номер ответа: 6 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #6	Добавлено: 21.12.11 14:17
	Если вдруг не поняли, то мне нужно, чтобы когда запускаешь текстовый файл на рабочем столе через открыть с помощью, то запускалась МОЯ программа и в неё текст загружался, а не отслеживать запуск exel как это было сделано до этого Ответить

Номер ответа: 7 Автор ответа: Cramper Вопросов: 15 Ответов: 93	Профиль \| \| #7	Добавлено: 21.12.11 15:16
	Ну так, сударь любезный, надо же корректно все пояснять (ставить задачу). Только думается на вскидку , что VB здесь не причем. Нужно как то в Windows прописывать вашу программу, чтобы она предлагалась в списке программ на работу с текстовыми файлами. Ответить

Номер ответа: 8 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #8	Добавлено: 21.12.11 15:38
	Сударь, вы ошибаетесь я не про это говорю!Даже если я пропишу, то нихера из этого не выйдет.Он запустит ПУСТУЮ программу, а мне надо чтобы ТЕКСТ в неё ЗАГРУЖАЛСЯ, а не выдавал пустую программу при запуске, так что это в VB дело.Почитать внимательнее тоже уметь надо. Ответить

Номер ответа: 9 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #9	Добавлено: 21.12.11 20:23
	Всем спасибо, особенно AgentFire за намек с командной строке, пропотев весь день, я сделал такой код: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = My.Computer.FileSystem.ReadAllText(My.Application.CommandLineArgs(0)) End Sub Все работает! Ответить

Номер ответа: 10 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #10	Добавлено: 21.12.11 20:54
	Тему можно закрыть Ответить

Номер ответа: 11 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| \| #11	Добавлено: 22.12.11 07:48
	IamProgrammer пишет: ...пропотев весь день, я сделал такой код: И из-за этого нужно было потеть? Ответить

Номер ответа: 12 Автор ответа: Cramper Вопросов: 15 Ответов: 93	Профиль \| \| #12	Добавлено: 22.12.11 09:36
	Попробовал. Все работает. Молодец!!!! Твой пот не пропал даром, теперь и мы знаем как это делать! Ответить

Номер ответа: 13 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #13	Добавлено: 22.12.11 13:37
	Для меня это пот и кровь Ответить

Номер ответа: 14 Автор ответа: IamProgrammer Вопросов: 1 Ответов: 13	Профиль \| \| #14	Добавлено: 22.12.11 13:38
	тока сарказма типо молодец все работает и то что не пропало даром не надо... Вы все равно знаете об этом, а я не знал =( Ответить

Номер ответа: 15 Автор ответа: Cramper Вопросов: 15 Ответов: 93	Профиль \| \| #15	Добавлено: 22.12.11 16:18
	Да нет никакого сарказма. Я и правда не знал. Хотел с утра заняться, посколку эта тема тоже интересует, да вы опередили. Ответить

Страница: 1 | 2 |