Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Кодировка / 9 сообщений из 9, страница 1 из 1
20.04.2007, 17:21
    #34476984
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
кароче проблем такая: когда с помощью проги код которой приложен ниже, пытаюсь открыть файл (тоже приложен) он выдаёт белиберду

код проги


Private Sub Command2_Click()
p = inputbox("Enter path")
Open p For Input As #1
Do While Not EOF(1)
Line Input #1, s
f = f & s & "<br>" & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = f
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 17:22
    #34476989
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
ой ёлки файл текстовый забыл приложить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 17:22
    #34476993
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
ДА ЧЁ ТАКОЕ?? ааа, понял почему не прикладывается всё смотрите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 17:22
    #34476994
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2007, 11:53
    #34479777
Wasup!
Wasup!
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
Кракозябры, потому что файл в кодировке Unicode. Правильно прочитать его у меня получилось только через FSO.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("c:\Progtest\temp\pr2.txt")
Set TextStream = File.OpenAsTextStream( 1 , - 1 )
'<Iomode> - необязательный, число. Возможные значения:
'1 - Открыть файл только для чтения.
'2 - Открыть файл для записи. Если файл уже существовал, его содержимое теряется.
'8 - Открыть файл для добавления. Если файл уже существовал, информация будет дописываться в конец файла.
'<Format> - необязательный, число. Возможные значения:
'-2 - Открыть файл в формате, используемом системой по умолчанию.
'-1 - Открыть файл в формате Unicode.
'0 - Открыть файл в формате ASCII (по умолчанию).
MsgBox TextStream.ReadAll()
TextStream.Close

А анекдоты есть прикольные :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2007, 20:15
    #34484764
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
спасибо. все анекдоты лежат на сайте [modered] слева в углу. модер сорри за рекламу.
Модератор: Рекламу нельзя. Но если очень хочется то можно обратится к Александру Сибилеву и купить баннер.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2007, 17:50
    #34496315
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
ну ладно нельзя - значит нельзя. тогда я просто файл прикреплю и мы мирно разойдёмся :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2007, 17:51
    #34496318
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
Кста, а баннер скока стоит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2007, 18:10
    #34496349
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кодировка
mailto:admin@sql.ru

И хорош оффтпопить :).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Кодировка / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 420ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164119]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 161ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 201ms
total:  420ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]