есть текстовый файл.....
есть текстовый файл как сделать так чтобы можно было прочитать его содержимое в ВБ, причем там записан html код.
Цитата:
Originally posted by BSI
есть текстовый файл как сделать так чтобы можно было прочитать его содержимое в ВБ, причем там записан html код.
есть текстовый файл как сделать так чтобы можно было прочитать его содержимое в ВБ, причем там записан html код.
Во-первых, вопросы надо задавать так, что бы их понимали все, а не только вы.
Во-вторых, что есть ВБ (Вирусный Белок, Вселенский Бардак, Вижуал Басиц)?
В-третьих, вам надо просто читать файло или еще и парсить html?
Цитата:
Originally posted by honeybeer
Во-первых, вопросы надо задавать так, что бы их понимали все, а не только вы.
Во-вторых, что есть ВБ (Вирусный Белок, Вселенский Бардак, Вижуал Басиц)?
В-третьих, вам надо просто читать файло или еще и парсить html?
Во-первых, вопросы надо задавать так, что бы их понимали все, а не только вы.
Во-вторых, что есть ВБ (Вирусный Белок, Вселенский Бардак, Вижуал Басиц)?
В-третьих, вам надо просто читать файло или еще и парсить html?
надо чтобы отображался текст в html.
тоесть:
Цитата:
вам надо просто читать файло или еще и парсить html?
Вот, держи исходничек сохранения и загрузки...
[FONT=courier new][COLOR=teal]Private Sub Command1_Click()
'Загрузка файла
Dim Text() As Byte
Open "c:\1.html" For Binary As #1
ReDim Text(LOF(1))
Get #1, , Text
Close #1
Text1.Text = StrConv(Text, vbUnicode)
End Sub
Private Sub Command2_Click()
Dim Text() As Byte
Text = StrConv(Text1.Text, vbFromUnicode)
' Если такой файл уже существует, то его нужно удалить.
' Дело в том, что оператор Put вписывает новые значения, не удаляя полностью
' предыдущие.
' Например, если файл содержал строчку "Текстовый файл"
' и Вы решили заменить ее на просто "Файл", то в результате
' получится "Файлтовый файл"
If Dir("c:\1.html") <> "" Then Kill "c:\1.html"
Open "c:\1.html" For Binary As #1
Put #1, , Text
Close #1
End Sub
[/COLOR][/FONT]
[FONT=courier new][COLOR=teal]Private Sub Command1_Click()
'Загрузка файла
Dim Text() As Byte
Open "c:\1.html" For Binary As #1
ReDim Text(LOF(1))
Get #1, , Text
Close #1
Text1.Text = StrConv(Text, vbUnicode)
End Sub
Private Sub Command2_Click()
Dim Text() As Byte
Text = StrConv(Text1.Text, vbFromUnicode)
' Если такой файл уже существует, то его нужно удалить.
' Дело в том, что оператор Put вписывает новые значения, не удаляя полностью
' предыдущие.
' Например, если файл содержал строчку "Текстовый файл"
' и Вы решили заменить ее на просто "Файл", то в результате
' получится "Файлтовый файл"
If Dir("c:\1.html") <> "" Then Kill "c:\1.html"
Open "c:\1.html" For Binary As #1
Put #1, , Text
Close #1
End Sub
[/COLOR][/FONT]
Цитата:
Originally posted by PeeJay
Вот, держи исходничек сохранения и загрузки...
[FONT=courier new][COLOR=teal]Private Sub Command1_Click()
'Загрузка файла
Dim Text() As Byte
Open "c:\1.html" For Binary As #1
ReDim Text(LOF(1))
Get #1, , Text
Close #1
Text1.Text = StrConv(Text, vbUnicode)
End Sub
Private Sub Command2_Click()
Dim Text() As Byte
Text = StrConv(Text1.Text, vbFromUnicode)
' Если такой файл уже существует, то его нужно удалить.
' Дело в том, что оператор Put вписывает новые значения, не удаляя полностью
' предыдущие.
' Например, если файл содержал строчку "Текстовый файл"
' и Вы решили заменить ее на просто "Файл", то в результате
' получится "Файлтовый файл"
If Dir("c:\1.html") <> "" Then Kill "c:\1.html"
Open "c:\1.html" For Binary As #1
Put #1, , Text
Close #1
End Sub
[/COLOR][/FONT]
Вот, держи исходничек сохранения и загрузки...
[FONT=courier new][COLOR=teal]Private Sub Command1_Click()
'Загрузка файла
Dim Text() As Byte
Open "c:\1.html" For Binary As #1
ReDim Text(LOF(1))
Get #1, , Text
Close #1
Text1.Text = StrConv(Text, vbUnicode)
End Sub
Private Sub Command2_Click()
Dim Text() As Byte
Text = StrConv(Text1.Text, vbFromUnicode)
' Если такой файл уже существует, то его нужно удалить.
' Дело в том, что оператор Put вписывает новые значения, не удаляя полностью
' предыдущие.
' Например, если файл содержал строчку "Текстовый файл"
' и Вы решили заменить ее на просто "Файл", то в результате
' получится "Файлтовый файл"
If Dir("c:\1.html") <> "" Then Kill "c:\1.html"
Open "c:\1.html" For Binary As #1
Put #1, , Text
Close #1
End Sub
[/COLOR][/FONT]
если открыть файл который в архиве то он пишет ошибку. если переписать все в форму то работает, спасибо.
но можно ли сделать так, чтобы отображался не код страницы а уже готовая страница, тоесть как в броузере.
надеюсь понятно?
Смотри, тут все просто:
1) Включаешь вот эти компоненты в верхнем меню (Проект>Компоненты...)
Microsoft internet Controls
Microsoft internet Transfer Control 6.0 (SP4)
2) Ставишь на поле один текстбокс и один WebBrowser. Для выполнения сценария пригодлась бы кнопочка.
3) Далее в свою кнопочку записываешь:
[COLOR=teal]Dim strView As String
Dim intFile As Integer
intFile = FreeFile
'пишем фсе, что в текстовике
Open "c:\Test.html" For Output As #intFile
Print #intFile, Text1.Text
Close #intFile
'читаем
WebBrowser1.Navigate ("c:\Test.html")
End If[/COLOR]
Помню, был у меня подобный проект, но я че то забил.
Так что, если чё, мыляй [EMAIL=PeeJay@rambler.ru]сюда[/EMAIL] и скидываешь мне свой exe'шник поглядеть.
А программку в архиве не следует запускать.
А вдруг это вирус или троян?
Че тогда? Пипец тогда - вот что.
Так что дружок не надо открывать палёные архивы в которых вирусы.
_
1) Включаешь вот эти компоненты в верхнем меню (Проект>Компоненты...)
Microsoft internet Controls
Microsoft internet Transfer Control 6.0 (SP4)
2) Ставишь на поле один текстбокс и один WebBrowser. Для выполнения сценария пригодлась бы кнопочка.
3) Далее в свою кнопочку записываешь:
[COLOR=teal]Dim strView As String
Dim intFile As Integer
intFile = FreeFile
'пишем фсе, что в текстовике
Open "c:\Test.html" For Output As #intFile
Print #intFile, Text1.Text
Close #intFile
'читаем
WebBrowser1.Navigate ("c:\Test.html")
End If[/COLOR]
Помню, был у меня подобный проект, но я че то забил.
Так что, если чё, мыляй [EMAIL=PeeJay@rambler.ru]сюда[/EMAIL] и скидываешь мне свой exe'шник поглядеть.
А программку в архиве не следует запускать.
А вдруг это вирус или троян?
Че тогда? Пипец тогда - вот что.
Так что дружок не надо открывать палёные архивы в которых вирусы.
_
Цитата:
Originally posted by PeeJay
Смотри, тут все просто:
1) Включаешь вот эти компоненты в верхнем меню (Проект>Компоненты...)
Microsoft internet Controls
Microsoft internet Transfer Control 6.0 (SP4)
2) Ставишь на поле один текстбокс и один WebBrowser. Для выполнения сценария пригодлась бы кнопочка.
3) Далее в свою кнопочку записываешь:
[COLOR=teal]Dim strView As String
Dim intFile As Integer
intFile = FreeFile
'пишем фсе, что в текстовике
Open "c:\Test.html" For Output As #intFile
Print #intFile, Text1.Text
Close #intFile
'читаем
WebBrowser1.Navigate ("c:\Test.html")
End If[/COLOR]
Помню, был у меня подобный проект, но я че то забил.
Так что, если чё, мыляй [EMAIL=PeeJay@rambler.ru]сюда[/EMAIL] и скидываешь мне свой exe'шник поглядеть.
А программку в архиве не следует запускать.
А вдруг это вирус или троян?
Че тогда? Пипец тогда - вот что.
Так что дружок не надо открывать палёные архивы в которых вирусы.
_
Смотри, тут все просто:
1) Включаешь вот эти компоненты в верхнем меню (Проект>Компоненты...)
Microsoft internet Controls
Microsoft internet Transfer Control 6.0 (SP4)
2) Ставишь на поле один текстбокс и один WebBrowser. Для выполнения сценария пригодлась бы кнопочка.
3) Далее в свою кнопочку записываешь:
[COLOR=teal]Dim strView As String
Dim intFile As Integer
intFile = FreeFile
'пишем фсе, что в текстовике
Open "c:\Test.html" For Output As #intFile
Print #intFile, Text1.Text
Close #intFile
'читаем
WebBrowser1.Navigate ("c:\Test.html")
End If[/COLOR]
Помню, был у меня подобный проект, но я че то забил.
Так что, если чё, мыляй [EMAIL=PeeJay@rambler.ru]сюда[/EMAIL] и скидываешь мне свой exe'шник поглядеть.
А программку в архиве не следует запускать.
А вдруг это вирус или троян?
Че тогда? Пипец тогда - вот что.
Так что дружок не надо открывать палёные архивы в которых вирусы.
_
антивирус молчит значит не вирус :))))
а вообще можно токим же способом открыть тхт файл но только из интернета http://www.x.ru/text.txt?
Цитата:
я уже сделал что-то вроде броузера своего,а попутно и то что хотел.
а есть ли такая возможность запустить какую нибудь картинку посредине экрана как это делается во многих программах
?
Ну я пошёл по легкому пути сразу, и просто сделал
отдельную форму на которой картинка.
Чтобы казалось, что программа грузится,размещаю
вот этот код в модуль:
[COLOR=teal]
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
[/COLOR]
и далее в форме с картинкой ставил таймер с
интервалом 100 например, и записывал:
слип 3000
фрм.моуспоинтер = 13
а как, чтоб без формы - не знаю.
Это. Хотел поинтересоваться... А дадите ли вы посмотреть на ваше творение в виде *.exe'шника?
-
отдельную форму на которой картинка.
Чтобы казалось, что программа грузится,размещаю
вот этот код в модуль:
[COLOR=teal]
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
[/COLOR]
и далее в форме с картинкой ставил таймер с
интервалом 100 например, и записывал:
слип 3000
фрм.моуспоинтер = 13
а как, чтоб без формы - не знаю.
Это. Хотел поинтересоваться... А дадите ли вы посмотреть на ваше творение в виде *.exe'шника?
-
Цитата:
Originally posted by PeeJay
Ну я пошёл по легкому пути сразу, и просто сделал
отдельную форму на которой картинка.
Чтобы казалось, что программа грузится,размещаю
вот этот код в модуль:
[COLOR=teal]
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
[/COLOR]
и далее в форме с картинкой ставил таймер с
интервалом 100 например, и записывал:
слип 3000
фрм.моуспоинтер = 13
а как, чтоб без формы - не знаю.
Это. Хотел поинтересоваться... А дадите ли вы посмотреть на ваше творение в виде *.exe'шника?
-
Ну я пошёл по легкому пути сразу, и просто сделал
отдельную форму на которой картинка.
Чтобы казалось, что программа грузится,размещаю
вот этот код в модуль:
[COLOR=teal]
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
[/COLOR]
и далее в форме с картинкой ставил таймер с
интервалом 100 например, и записывал:
слип 3000
фрм.моуспоинтер = 13
а как, чтоб без формы - не знаю.
Это. Хотел поинтересоваться... А дадите ли вы посмотреть на ваше творение в виде *.exe'шника?
-
если вы про пбоудер то, скажите емил ваш, туда и пришлю
Цитата:
Originally posted by PeeJay
Вот он, [EMAIL=PeeJay@rambler.ru]мыльничек[/EMAIL]
И кстати, не надо на вы, я в 9(ом) классе учусь.
Вот он, [EMAIL=PeeJay@rambler.ru]мыльничек[/EMAIL]
И кстати, не надо на вы, я в 9(ом) классе учусь.
отправил, жди