Пример 3

на сайте на Народ.Ру на Яндексе


Главная Назад Пример 1 Пример 2 Пример 3 Пример 4 Пример 5 Пример 6 Пример 7 Пример 8 Пример 9 Пример 10 Пример 11 Пример 12 Пример 13 Пример 14 Пример 15 Пример 16 Пример 17 Пример 18 Пример 19 Пример 20 Пример 21 Пример 22

Яndex

www.yandex.ru

Rambler's Top100

Рейтинг@Mail.ru

Последнее обновление 11/24/02.

Перекодировкa текста DOS (866 кодовая таблица) в Windows (1251). Код можно вставить в любую программу для просмотра текстового файла DOS в NotePad.

 

Private Sub mnuFileOpen_Click()
    '---------------------------------------------------
    'Открытие текстового файла DOS
    '(866 кодовой таблицы) из выбираемой директории
    'для просмотра в NotePad. Для случая с большим по
    'размеру файлом (например потенциальной базы данных)
    'системой выдается запрос на использование WordPad.
    '---------------------------------------------------
'Эти строки - в General основной формы
          Private Declare Function GetOEMCP Lib "kernel32" () As Long
          Private Declare Function GetACP Lib "kernel32" () As Long
          Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
'-------------------------------------------------------
         Dim sFile As String
        Dim nShell As Integer
        On Error GoTo InputError
        With dlgCommonDialog
            'To Do
            'set the flags and attributes of the
            'common dialog control
            .Filter = "All Files (*.*)|*.*"
            .ShowOpen
             If Len(.filename) = 0 Then
                    Exit Sub
            End If
            sFile = .filename
        End With
        'To Do
        'process the opened file
        FilePath$ = dlgCommonDialog.filename
        Open FilePath$ For Input As 1
        InputStr$ = Input(LOF(1), 1)
        OutputStr$ = Space$(Len(InputStr$))
        Code& = OemToChar(InputStr$, OutputStr$)
        Close 1
        Open "c:/Program Files/Fuel/fueltemp.doc" For Output As 2
        Print #2, OutputStr$
        Close 2
        nShell = Shell("Notepad " & "c:\Program Files\Fuel\fueltemp.doc", vbNormalFocus)
InputError:
        Exit Sub
End Sub
 
Найди на Бегуне:
Интернет-услуги и сервисы Интернет-услуги и сервисы
Компьютеры и оргтехника Компьютеры и оргтехника
Бытовая техника Бытовая техника
Связь Связь
Авто-мото Авто-мото
Книги, музыка и видео Книги, музыка и видео
Продаем целевых
посетителей!

Используются технологии uCoz