VBNet - Форум - Хелп ! Работа с текстом.VB6

Вопрос: Хелп ! Работа с текстом.VB6 Добавлено: 11.10.10 19:59

Автор вопроса: MISTER X | Web-сайт: studioartf.ru | ICQ: 463865965

Суть вопроса такова...Имеется: Text1 Command1
Что надо: по нажатию на Command1 вывести весь текст из блокнота по опр пути(например C:\text.txt) в Text1.
Никак не могу вывести весь текст,при условии что я незнаю,или нет..Сколько бы там нибыло текста и строчек, надо все оттуда вывести в Text1.Как так сделать?Что знал перепробовал...Хелп!
Ответить

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

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 11.10.10 20:22
	Text1.Text = IO.File.ReadAllText("C:\text.txt") Ответить

Номер ответа: 2 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #2	Добавлено: 11.10.10 21:07
	AgentFire пишет: Text1.Text = IO.File.ReadAllText("C:\text.txt" Run-tome error 424 Object required (( Ответить

Номер ответа: 3 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #3	Добавлено: 11.10.10 21:11
	AgentFire, ну ты жжешь )) Ответить

Номер ответа: 4 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #4	Добавлено: 11.10.10 21:14
	Он же написал: VB6. Смекаешь? К тому же сразу видны недостатки .NET. Какой-то IO,File, ReadAllText. В VB6 все гораздо удобнее. Просто вставь в какой-нибудь модуль или код формы вот этот код: Public Property Get File(Path As String) As String Dim s As String, h As String Dim i As Long i = FreeFile Open Path For Input As #i Do Until EOF(i) Line Input #i, h s = s & vbCrLf & h Loop Close #i File = Mid$(s, 3) End Property Public Property Let File(Path As String, ByVal Value As String) Dim i As Long i = FreeFile Open Path For Output As #i Print #i, Value Close #i End Property Теперь у тебя появилась новая переменная - File, которая представляет собой текст файла. Какого именно указывается в скобках. Примерно так: 'Запись в файл File("C:\файл1.txt") = "Я хочу сожрать пиццу" 'Чтение текста из файла в переменную s Dim s As String s = File("C:\файл1.txt") В твоем случае все просто: Private Sub Command1_Click() Text1 = File("C:\test.txt") End Sub Ответить

Номер ответа: 5 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #5	Добавлено: 11.10.10 21:14
	Private Sub Command1_Click() Text1.Text = IO.File.ReadAllText("C:\text.txt") End Sub не работает(( Ответить

Номер ответа: 6 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #6	Добавлено: 11.10.10 21:19
	VбUниt,чето у меня твой код тоже не работает...может я как то не так код вставил.. Ответить

Номер ответа: 7 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #7	Добавлено: 11.10.10 21:20
	я сдаюсь... Ответить

Номер ответа: 8 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #8	Добавлено: 11.10.10 21:22
	у меня на Open Path For Input As #i ругается. объект не найден. вместо Path надо путь указать? Ответить

Номер ответа: 9 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #9	Добавлено: 11.10.10 21:24
	VβÐUηìt пишет: я сдаюсь... Все не сдавайся)спс тебе) надо было вместо Path путь указать Ответить

Номер ответа: 10 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #10	Добавлено: 11.10.10 21:24
	Ответить

Номер ответа: 11 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #11	Добавлено: 11.10.10 21:26
	Бооо( Ответить

Номер ответа: 12 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #12	Добавлено: 11.10.10 21:28
	и код модуля тогда будет такой Public Property Get File(Path As String) As String Dim s As String, h As String Dim i As Long i = FreeFile Path = ("C:\text.txt") Open Path For Input As #i Do Until EOF(i) Line Input #i, h s = s & vbCrLf & h Loop Close #i File = Mid$(s, 3) End Property Public Property Let File(Path As String, ByVal Value As String) Dim i As Long i = FreeFile Open Path For Output As #i Print #i, Value Close #i End Property Ответить

Номер ответа: 13 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #13	Добавлено: 11.10.10 21:32
	А при попытке вывести файл не уже с заданным путем а например путь указывается в тексте2 пытаюсь сделать следущее Public Property Get File(Path As String) As String Dim s As String, h As String Dim i As Long i = FreeFile Path = Text2 Open Path For Input As #i Do Until EOF(i) Line Input #i, h s = s & vbCrLf & h Loop Close #i File = Mid$(s, 3) End Property Public Property Let File(Path As String, ByVal Value As String) Dim i As Long i = FreeFile Open Path For Output As #i Print #i, Value Close #i End Property на жирным он ругается : Path/File access error '75' отсюда вопрос: как заставить его вывести по пути который забит в Text2 ? Ответить

Номер ответа: 14 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #14	Добавлено: 11.10.10 21:35
	VβÐUηìt пишет: В VB6 все гораздо удобнее. Просто вставь в какой-нибудь модуль или код формы вот этот код: Стеб оценил. Гж Ответить

Номер ответа: 15 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #15	Добавлено: 11.10.10 21:53
	Да, есть малость MISTER X, зайди в аську. Или я умру щас. Ответить

Страница: 1 | 2 | 3 | 4 | 5 | 6 ..... 8 | 9 | 10 | 11 | 12